Reputation: 11
Set emailObj = CreateObject("CDO.Message")
emailObj.Sender = "[email protected]"
emailObj.To = "[email protected]"
emailObj.Subject = "Test CDO"
emailObj.TextBody = "Test CDO"
Set emailConfig = emailObj.Configuration
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.live.com"
emailConfig.Fields("----/smtpserverport") = 465
emailConfig.Fields("----/sendusing") = 2
emailConfig.Fields("----/smtpauthenticate") = 1
emailConfig.Fields("----/smtpusessl") = true
emailConfig.Fields("----/sendusername") = "[email protected]"
emailConfig.Fields("----/sendpassword") = "*****"
emailConfig.Fields.Update
emailObj.Send
If Err.Number = 0 Then
MsgBox "Done"
End If
If Err.Number <> 0 Then
MsgBox "Can't Proceed"
End If
It's a code to send email via live.com, but I am getting "The transport failed to connect to the server" error. Can anyone help me out in resolving this error?
Upvotes: 1
Views: 2652
Reputation: 200483
mail.live.com is just a webserver(farm):
xxx@iridium:~ $ nmap mail.live.com Starting Nmap 6.47 ( http://nmap.org ) at 2016-03-31 08:53 CEST Nmap scan report for mail.live.com (157.56.198.204) Host is up (0.029s latency). Other addresses for mail.live.com (not scanned): 157.55.230.252 rDNS record for 157.56.198.204: origin.du130w.dub130.mail.live.com Not shown: 965 closed ports, 33 filtered ports PORT STATE SERVICE 80/tcp open http 443/tcp open https Nmap done: 1 IP address (1 host up) scanned in 8.32 seconds
For mail submission to outlook.com use smtp-mail.outlook.com and port 25 or 587 (see here).
Not sure if you can use a Gmail address to authenticate to Microsoft's mail service, though.
Upvotes: 1