2016-03-31 79 views
0
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 

這是通過live.com發送電子郵件的代碼,但我得到「傳輸失敗連接到服務器」錯誤。任何人都可以幫我解決這個錯誤嗎?傳輸失敗連接到服務器錯誤

回答

0

mail.live.com只是一個web服務器(羣):

[email protected]:~ $ 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

對於郵件提交到outlook.com使用smtp-mail.outlook.com和端口25或587(見here)。

不確定您是否可以使用Gmail地址向Microsoft郵件服務進行身份驗證。

+0

我也試過這個,但錯誤仍然相同 –

+0

http://schemas.microsoft.com/cdo/configuration/smtpserver 此鏈接也不能正常工作。 –

+0

確保您的憑據在outlook.com上正常工作。 –

相關問題