- 帖子
- 549
- 主題
- 152
- 精華
- 0
- 積分
- 691
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- OFFICE 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-8-10
- 最後登錄
- 2022-9-7
 
|
各位大大好,小弟不才
搜尋了大約十組的GAMIL CODE 全部都無法寄信,會出現相同的錯誤
不曉得是甚麼問題
想請教大大們兩個部分
一:如何正確寄出信件
二:有辦法預覽信件不寄出嗎?- Sub send_email_via_Gmail()
- Dim myMail As CDO.Message
- Set myMail = New CDO.Message
- myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
- myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
- myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
- myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
- myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
- myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"
- myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "your_password"
- myMail.Configuration.Fields.Update
- With myMail
- .Subject = "Test Email from Dr. Takyar"
- .From = "[email protected]"
- .To = "receipt"
- .CC = ""
- .BCC = ""
- .TextBody = "Good morning!"
- '.AddAttachment "C:\Users\takyar\Desktop\email-via-gmail.txt"
- End With
- myMail.Send
- Set myMail = Nothing
- End Sub
|
|
發表於 2016-6-14 16:09
| 
