Board logo

標題: [發問] VBA Gmail寄信問題 [打印本頁]
作者: PKKO    時間: 2016-6-14 16:09     標題: VBA Gmail寄信問題

各位大大好,小弟不才
搜尋了大約十組的GAMIL CODE 全部都無法寄信,會出現相同的錯誤
[attach]24490[/attach]
不曉得是甚麼問題
想請教大大們兩個部分
一:如何正確寄出信件
二:有辦法預覽信件不寄出嗎?
  1. Sub send_email_via_Gmail()
  2. Dim myMail As CDO.Message

  4. Set myMail = New CDO.Message

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

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

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

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

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

  16. myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"

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

  20. myMail.Configuration.Fields.Update

  22. With myMail
  23. .Subject = "Test Email from Dr. Takyar"
  24. .From = "[email protected]"
  25. .To = "receipt"
  26. .CC = ""
  27. .BCC = ""
  28. .TextBody = "Good morning!"
  29. '.AddAttachment "C:\Users\takyar\Desktop\email-via-gmail.txt"
  30. End With
  31. myMail.Send
  32. Set myMail = Nothing

  34. End Sub
複製代碼
作者: ML089    時間: 2016-6-15 00:46

回復 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 = "寄給"
作者: PKKO    時間: 2016-6-15 07:28

回復 2# ML089

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

回復 1# PKKO


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

http://wordpress.bestdaylong.com/blog/archives/12745
作者: ML089    時間: 2016-6-15 09:17

回復 3# PKKO

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

要注意，需要用GMAIL郵件地址
作者: PKKO    時間: 2016-6-15 15:44

回復 4# imingho

感謝大大協助可以寄信了
原來是這樣
作者: PKKO    時間: 2016-6-15 15:46

請問有大大們知道GMAIL如何可以預覽信件而不寄出嗎?
像OUTLOOK
可以用.Display '預覽信件
作者: starry1314    時間: 2016-6-30 09:14

回復 1# PKKO


    [attach]24595[/attach]
試試這個可批次傳送與附加檔案~



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)