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

[µo°Ý] ª½±µ¦bEXCELµoMAIL

[µo°Ý] ª½±µ¦bEXCELµoMAIL

¤£¦n·N«ä ¤p§Ìªì¾ÇVBA  ²{¦b¥¿¦b¾Ç²ß«ç¼Ë¥ÎEXCELµoMAIL  «e´X¤Ñ¤w½Ð±Ð¹Lª©¤º°ª¤â  ¤£¹L¥Î¤F´X¤Ñµo²{ÁÙ¬O¦³¤@¨Ç°ÝÃD. ¥H¤U¬O§Ú­ì¨Óªºµ{¦¡½X

Sub sendmail()
Dim objEmail As Object
Const SMTPSERVER = "msa.hinet.net" '¨Ï¥Î msa.hinet.net ¶Ç°e¶l¥ó

Set objEmail = CreateObject("CDO.Message") '«Ø¥ß CDO ª«¥ó
With objEmail.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPSERVER
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With

objEmail.From = "[email protected]" '±H¥óªÌ¡]ºô°ì¥²¶·¦s¦b¡^
objEmail.To = Range("ZZ1").Value '¦¬¥óªÌ
objEmail.CC = Range("ZZ2").Value
objEmail.BCC = Join(Array([V7], [V8], [V9], [V10], [V11], [V12], [V13], [V14], [V15], [V16]), "; ")
objEmail.Subject = Range("V5").Value '¶l¥ó¥D¦®
objEmail.HTMLBody = Range("V6")  'HTML¶l¥ó¤º¤å
objEmail.Send
Set objEmail = Nothing
End Sub

¤p§Ìªº°ÝÃD¦p¤U

1. ÀÉ®×Âà¦s¨ì¨ä¥L¹q¸£®É¦bµo«H®É.·|µo¥Í¿ù»~.¨Ò¦p "°õ¦æ¶¥¬q¿ù»~ Automation¿ù»~". ¤£ª¾¹D¬O¤£¬Oºô°ìªº°ÝÃDÁÙ¬Oµo«Hªºnet¦³°ÝÃD?

2. ¦pªGobjEmail.BCC = Join(Array([V7], [V8], [V9], [V10], [V11], [V12], [V13], [V14], [V15], [V16]), "; ").  
·Q­n±N±H°e½d³ò¼W¤j¬° V7:V200. ³o³¡¤À»yªk­n§ï¦¨«ç¼Ë·|¤ñ¸û¦n.

3. objEmail.HTMLBody = Range("V6")   ³o³¡¤À¬O§_¤]¥i¥H¥[¤j±H°e¶l¥ó¤º¤åªº½d³ò ¨Ò¦pV6:W8?

4. objEmail.Subject = Range("V5").Value '¶l¥ó¥D¦®
objEmail.HTMLBody = Range("V6")  'HTML¶l¥ó¤º¤å
³o¨â­Ó³¡¤À¬O§_¥i¥H ¥H¦Û­qªí³æªº§Î¦¡¿é¤J?  ¨Ò¦p³o¼Ëªº InputBox
¥¼©R¦W.jpg
2015-9-4 15:16


5.  ¦³µL¿ìªk®r¤Jª«¥ó(¨Ò¦p¨ä¥LÀɮשάO¹Ï¤ù)¦b"Z6"Àx¦s®æ¤º.µM«á¦bµo«H¥X¥h®É.¥i¥H±Nªþ¥ó¤@¨Ö¸sµo¥X¥h?

6. ¥Ñ©óMAIL¤º¤å³£¦bÀx¦s®æ¤º.¦³µL¿ìªk¤À¬q.¨Ï¨ä¤å³¹¤£­n±qÀY¨ì§À³£³s¦b¤@°_?

¦pªG¦P®É­nº¡¨¬¥H¤Wªº»Ý¨D.µ{¦¡½X­n¦p¦ó§ó§ï·|¤ñ¸û²z·Q?©êºp¤p§Ìªº°ÝÃD¤ñ¸û¦h. ¥ý¸ò¦U¦ì¤j¤j­ÌÁÂÁÂ. ¸U¤À·PÁÂ.
¤p§Ì¬OVBA·s¤â  ½Ð¤j®a¦h¦h«ü±Ð

±zªº°ÝÃD¥H¤Uºô§}À³¸Ó³£¦³»ôµª®×
http://www.rondebruin.nl/tips.htm

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD