我想用VBA发送电子邮件。我的提供商是:Hotmail Live。在邮件设置中,SMTP服务器名称为:SELECT BM.BOOKING_NO, BM.REF, BM.ACCOUNT, BM.NAME, BM.STATUS, BM.DATE_IN, BM.DATE_OUT, BM.TOTNIGHTS, BM.ROOM_NO, BM.TOTFRGN,
(CASE REC.PRICE_CATAGORY
WHEN 1 THEN 'YES'
WHEN 2 THEN 'NO'
WHEN 3 THEN 'MAYBE'
ELSE 'Whatever you want to print'
END) AS PRICE_CATAGORY
FROM BOOKMASTER BM LEFT JOIN
RECEIVABLES REC
ON BM.ACCOUNT = REC.ACCOUNT_NO
WHERE BM.STATUS = 'CHECK IN';
,端口为:smtp.office365.com
。
587
错误是:传输无法连接到服务器
并且调试在Sub SendEmailLive()
Dim mail As New Message
Dim Config As Configuration
Set Config = mail.Configuration
Config(cdoSendUsingMethod) = cdoSendUsingPort
Config(cdoSMTPServer) = "smtp.office365.com"
Config(cdoSMTPServerPort) = 587
Config(cdoSMTPAuthenticate) = cdoBasic
Config(cdoSMTPUseSSL) = True
Config(cdoSendUserName) = "mymail@live.it"
Config(cdoSendPassword) = "mailpassword"
Config.Fields.Update
mail.Configuration = Config
mail.To = "to_mail@gmail.com"
mail.From = "mymail@live.it"
mail.Subject = "Mail test"
mail.HTMLBody = "This is a text"
mail.Send
MsgBox "Sent"
End Sub