- ©«¤l
- 560
- ¥DÃD
- 159
- ºëµØ
- 0
- ¿n¤À
- 723
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWS
- ³nÅ骩¥»
- xp
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2014-9-10
- ³Ì«áµn¿ý
- 2023-10-31
|
DEAR ALL ¤j¤j
1.¦pªí¤@.°õ¦æ«á·|¥X²{µøµ¡ "¤@ÓÀ³¥Îµ{¦¡¹Á¸Õ¥N²z§A¦Û°Ê¶Ç°e¹q¤l¶l¥ó.§An¿ï¨ú§@·~¶Ü. ¤f¬O¤f§_"»Ý¿ï¬O¤è¥i¦Û°ÊMAIL.
2.¤£·Q¨q¥X¸Ó´£¥Üµøµ¡.·Q°õ¦æ«áª½±µMAIL,¥[IApplication.DisplayAlerts = False ©ó¥ô¦ó³B³£¨S¥Î.
3.½Ð°Ý¦U¦ì¤j¤j¸Ó¦p¦óקï. ·Ð¤£§[½ç±Ð THANKS ROBERT 12/02
ªí¤@
Option Explicit
Sub SenddMail()
Dim oltAPP As Outlook.Application
Dim myMail As MailItem
Dim Sender As Long
Set oltAPP = CreateObject("Outlook.Application")
Set myMail = oltAPP.CreateItem(olMailItem)
With myMail
.To = "[email protected];[email protected]"
.CC = "[email protected];[email protected]"
.BodyFormat = olFormatPlain
.Body = "" & Sheet1.Range("A1") & "" & Chr(10) & "" & Sheet1.Range("A2") & "" & Chr(10) & "" & Sheet1.Range("A3") & "" '¤º®e
.Subject = "" & Sheet1.Range("A4") & "" '¥D¦®
.Send
End With
Set oltAPP = Nothing
Set myMail = Nothing
End Sub |
|