ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

¦U¦ì¤j¤j¦n,¤p§Ì¤£¤~
·j´M¤F¤j¬ù¤Q²ÕªºGAMIL CODE ¥þ³¡³£µLªk±H«H,·|¥X²{¬Û¦Pªº¿ù»~
Â^¨ú.GIF
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. 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") = "[email protected]"

  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 = "[email protected]"
  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
½Æ»s¥N½X
PKKO

¦^´_ 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µ¹"
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 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¥ó?
PKKO

TOP

¦^´_ 1# PKKO


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

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

TOP

¦^´_ 3# PKKO

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

­nª`·N¡A»Ý­n¥ÎGMAIL¶l¥ó¦a§}
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 4# imingho

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

TOP

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

TOP

¦^´_ 1# PKKO


    §å¦¸µoMAIL.rar (18.04 KB)
¸Õ¸Õ³o­Ó¥i§å¦¸¶Ç°e»Pªþ¥[ÀÉ®×~

TOP

        ÀR«ä¦Û¦b : ¬°¤H³B¥@­n¤p¤ß²Ó¤ß¡A¦ý¤£­n¡u¤p¤ß²´¡v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD