[發問] VBA Gmail寄信問題

PKKO

各位大大好,小弟不才
搜尋了大約十組的GAMIL CODE 全部都無法寄信,會出現相同的錯誤

下載 (22.14 KB)

2016-6-14 16:09

不曉得是甚麼問題
想請教大大們兩個部分
一:如何正確寄出信件
二:有辦法預覽信件不寄出嗎?

1. Sub send_email_via_Gmail()
   
2. Dim myMail As CDO.Message
   
3. 
   
4. Set myMail = New CDO.Message
   
5. 
   
6. myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
   
7. 
   
8. myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
   
9. 
   
10. myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
    
11. 
    
12. myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    
13. 
    
14. myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    
15. 
    
16. myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "your@gmail.com"
    
17. 
    
18. myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "your_password"
    
19. 
    
20. myMail.Configuration.Fields.Update
    
21. 
    
22. With myMail
    
23. .Subject = "Test Email from Dr. Takyar"
    
24. .From = "your@gmail.com"
    
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
    
33. 
    
34. End Sub

複製代碼

ML089

回復 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

回復 2# ML089

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

imingho

回復 1# PKKO


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

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

ML089

回復 3# PKKO

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

要注意，需要用GMAIL郵件地址

PKKO

回復 4# imingho

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

PKKO

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

starry1314

回復 1# PKKO


    批次發MAIL.rar (18.04 KB)

下載次數: 39

2016-6-30 09:13

試試這個可批次傳送與附加檔案~