返回列表 上一主題 發帖

[發問] VBA Gmail寄信問題

[發問] VBA Gmail寄信問題

各位大大好,小弟不才
搜尋了大約十組的GAMIL CODE 全部都無法寄信,會出現相同的錯誤
擷取.GIF
2016-6-14 16:09

不曉得是甚麼問題
想請教大大們兩個部分
一:如何正確寄出信件
二:有辦法預覽信件不寄出嗎?
  1. Sub send_email_via_Gmail()
  2. Dim myMail As CDO.Message

  3. Set myMail = New CDO.Message

  4. myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

  5. myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

  6. myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"

  7. myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

  8. myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

  9. myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "your@gmail.com"

  10. myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "your_password"

  11. myMail.Configuration.Fields.Update

  12. With myMail
  13. .Subject = "Test Email from Dr. Takyar"
  14. .From = "your@gmail.com"
  15. .To = "receipt"
  16. .CC = ""
  17. .BCC = ""
  18. .TextBody = "Good morning!"
  19. '.AddAttachment "C:\Users\takyar\Desktop\email-via-gmail.txt"
  20. End With
  21. myMail.Send
  22. Set myMail = Nothing

  23. End Sub
複製代碼
PKKO

回復 1# PKKO

以下4個紅色字資料依照你的實際資料填寫

myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "輸入GMAIL帳號@gmail.com"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "輸入信箱密碼"


    With myMail
        .Subject = "Test Email from XXXXX"
        .From = "輸入GMAIL帳號@gmail.com"
        .To = "寄給"
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

回復 2# ML089

版主大大您好,我都有輸入我實際的資料哦!但仍然出現圖片中的錯誤,所以才po文求救
程式碼裡面是我已經修改過的,畢竟不能把我的真實mail密碼都貼出來= =
請問版主大大用此code可以寄出信件嗎?還是有哪一個code可以寄出信件?
PKKO

TOP

回復 1# PKKO


    您好,
          請參考
如何解決Excel用gmail寄信會出現傳輸錯誤碼為 0x80040217

http://wordpress.bestdaylong.com/blog/archives/12745

TOP

回復 3# PKKO

就是用你的CODE輸入4個地方的正確資料就能傳送了

要注意,需要用GMAIL郵件地址
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

回復 4# imingho

感謝大大協助可以寄信了
原來是這樣
PKKO

TOP

請問有大大們知道GMAIL如何可以預覽信件而不寄出嗎?
像OUTLOOK
可以用.Display '預覽信件
PKKO

TOP

回復 1# PKKO


    批次發MAIL.rar (18.04 KB)
試試這個可批次傳送與附加檔案~
做該做的事是智慧,做不該做的事是愚癡。
程式分享 搜尋 partylin_程式學習營
https://partylin.azurewebsites.net/

TOP

        靜思自在 : 能幹不幹,不如苦幹實幹。
返回列表 上一主題