[µo°Ý] VBA Gmail±H«H°ÝÃD

PKKO

¦U¦ì¤j¤j¦n,¤p§Ì¤£¤~
·j´M¤F¤j¬ù¤Q²ÕªºGAMIL CODE ¥þ³¡³£µLªk±H«H,·|¥X²{¬Û¦Pªº¿ù»~

¤U¸ü (22.14 KB)

2016-6-14 16:09

¤£¾å±o¬O¬Æ»ò°ÝÃD
·Q½Ð±Ð¤j¤j­Ì¨â­Ó³¡¤À
¤@:¦p¦ó¥¿½T±H¥X«H¥ó
¤G:¦³¿ìªk¹wÄý«H¥ó¤£±H¥X¶Ü?

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") = "[email protected]"
    
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 = "[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
    
33. 
    
34. End Sub

½Æ»s¥N½X

ML089

¦^´_ 1# PKKO

¥H¤U4­Ó¬õ¦â¦r¸ê®Æ¨Ì·Ó§Aªº¹ê»Ú¸ê®Æ¶ñ¼g

myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "¿é¤JGMAIL±b¸¹@gmail.com"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "¿é¤J«H½c±K½X"


    With myMail
        .Subject = "Test Email from XXXXX"
        .From = "¿é¤JGMAIL±b¸¹@gmail.com"
        .To = "±Hµ¹"

PKKO

¦^´_ 2# ML089

ª©¥D¤j¤j±z¦n,§Ú³£¦³¿é¤J§Ú¹ê»Úªº¸ê®Æ®@!¦ý¤´µM¥X²{¹Ï¤ù¤¤ªº¿ù»~,©Ò¥H¤~po¤å¨D±Ï
µ{¦¡½X¸Ì­±¬O§Ú¤w¸g­×§ï¹Lªº,²¦³º¤£¯à§â§Úªº¯u¹êmail±K½X³£¶K¥X¨Ó= =
½Ð°Ýª©¥D¤j¤j¥Î¦¹code¥i¥H±H¥X«H¥ó¶Ü?ÁÙ¬O¦³­þ¤@­Ócode¥i¥H±H¥X«H¥ó?

imingho

¦^´_ 1# PKKO


    ±z¦n,
          ½Ð°Ñ¦Ò
¦p¦ó¸Ñ¨MExcel¥Îgmail±H«H·|¥X²{¶Ç¿é¿ù»~½X¬° 0x80040217

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

ML089

¦^´_ 3# PKKO

´N¬O¥Î§AªºCODE¿é¤J4­Ó¦a¤èªº¥¿½T¸ê®Æ´N¯à¶Ç°e¤F

­nª`·N¡A»Ý­n¥ÎGMAIL¶l¥ó¦a§}

PKKO

¦^´_ 4# imingho

·PÁ¤j¤j¨ó§U¥i¥H±H«H¤F
­ì¨Ó¬O³o¼Ë

PKKO

½Ð°Ý¦³¤j¤j­Ìª¾¹DGMAIL¦p¦ó¥i¥H¹wÄý«H¥ó¦Ó¤£±H¥X¶Ü?
¹³OUTLOOK
¥i¥H¥Î.Display '¹wÄý«H¥ó

starry1314

¦^´_ 1# PKKO


    §å¦¸µoMAIL.rar (18.04 KB)

¤U¸ü¦¸¼Æ: 39

2016-6-30 09:13

¸Õ¸Õ³o­Ó¥i§å¦¸¶Ç°e»Pªþ¥[ÀÉ®×~