Starting email Host: Port: 587 UserName: Password: xxxxxxx Explicit TLS SSL-Host: SSL-Port: 587 SSL-Destination: :587 Starting email Connected IdSSLIOHandlerSocketOpenSSL1.PassThrough := True idMessage1.clear idSMTP1.Host := fifEmailHost idSMTP1.Port := fifEmailPort idSMTP1.Username := fifEmailUserName idSMTP1.Password := fifEmailPassword idSMTP1.HeloName := GetComputerNetName idSMTP1.UseTLS := utUseExplicitTLS if workswitch then begin if idSMTP1.UseTLS = utUseExplicitTLS then ('Uses utUseExplictTLS') if idSMTP1.UseTLS = utNoTLSSupport then ('Uses utNoTLSSupport') if idSMTP1.UseTLS = utUseImplicitTLS then ('Uses utUseImplicitTLS') if idSMTP1.UseTLS = utUseRequireTLS then ('Uses utUseRequireTLS') end if workswitch then begin ('Host:'+idSMTP1.Host) ('Port: '+inttostr(idSMTP1.Port)) ('UserName: '+idSMTP1.Username) ('Password: '+idSMTP1.Password) ('HeloName: '+idSMTP1.HeloName) ('Explicit TLS') //utUseExplicitTLS ('SSL-Host:'+IdSSLIOHandlerSocketOpenSSL1.Host) ('SSL-Port: '+inttostr(IdSSLIOHandlerSocketOpenSSL1.Port)) ('SSL-Destination: '+IdSSLIOHandlerSocketOpenSSL1.Destination) end if workswitch then ('Starting email') try idSMTP1.Connect if workswitch then ('Connected') except on E:Exception do begin writeLog(e.classname+' '+e.message+' Connect') ('Error: '+e.classname+' '+e.message+' Connect') exit end else begin memo3.lines. I have looked in the event viewer and have not found any related entries. I have not found a way to trace after the connect. A Microsoft account does not need a Microsoft email The email address used to sign into your Microsoft account can be from, , Gmail, Yahoo, or other providers.

I have tried to 'exit' and disconnect after the connect, but neither stops the program.

Office360