[µo°Ý] EXCEL¦Û°ÊMAIL°ÝÃD½Ð±Ð

rouber590324

DEAR ALL  ¤j¤j
1.¦p¤Uªþ1°õ¦æ«á·|¦Û°Ê¶Ç°eµL¸ÓEXCEL·íªþÀɤ§MAIL-µL¨q¥Xµøµ¡´M°Ý.ª½±µµoMAIL.
2.¦p¤Uªþ2°õ¦æ«á·|¦Û°Ê¶Ç°e¦³¸ÓEXCEL·íªþÀɤ§MAIL.¦ý·|¸õ¥X¤@µøµ¡"¤@­ÓÀ³¥Îµ{¦¡¹Á¸Õ­n¥Nªí±z¦Û°Ê¶Ç°e¹q¤l¶l¥ó.±z­n¤¹¨ú¥¦°õ¦æ¦¹¶µ§@
   ·~¶Ü??  ¤f¬O  ¤f§_"  ­n¨D¿ï¨ú«á¤è¦Û°ÊµoMAIL
3.½Ð±Ð ALL ¤j¤j.¦³µL¿ìªk§ó§ïVBA±Nªþ1µL¨q¥Xµøµ¡´M°Ý.ª½±µµoMAIL§ï¬°¦³ªþ¥[¸ÓEXCELÀÉ·íªþÀɤ§¦Û°ÊMAIL OR
   ±Nªþ2¦³¨q¥Xµøµ¡´M°Ý¤§¨¾§bµøµ¡¨ú®ø.¦Û°Ê¤£´M°Ý´Nµo¦Û°ÊMAIL.
4.·Ð¤£§[½ç±Ð  THANKS*10000

ªþ1
Sub MAILµLªþ¥[EXCELÀÉ()
    Dim myOlApp As Outlook.Application
    Dim myMail  As Outlook.MailItem
    Dim myBody  As String
    Set myOlApp = CreateObject("OutLook.Application")
    Set myMail = myOlApp.CreateItem(olMailItem)
    With myMail
        .To = Sheet1.Cells(1, 1).Text
        .Subject = "a"
        .CC = "[email protected]" & ";" & "[email protected]"
        .BCC = "[email protected]" & ";" & "[email protected]"
        myBody = "b" & vbCrLf & vbCrLf
        myBody = myBody & "c" & vbCrLf
        myBody = myBody & "d" & vbCrLf
        myBody = myBody & "e" & vbCrLf & vbCrLf
        myBody = myBody & "f"
        .body = myBody
        .Display
        SendKeys "%s", True
        .Close olDiscard
    End With
End Sub

ªþ2
Sub Mail¦³ªþ¥[EXCELÀÉ()
Sheet3.Visible = True
Sheet4.Visible = False
Sheet3.Select
Range("A1").Select
Dim myOlApp As Outlook.Application
Dim myName As Name
Dim myWb   As Workbook
Set myWb = Workbooks("¤G¼tMIS¤U®Æ²M³æ.XLS")
    Sender = Array("[email protected]", "[email protected]")
    myWb.SendMail Recipients:=Sender, Subject:="BGA¨C¤é¤U®Æ²M³æ-¦Û°ÊÀÉ®×°e°T"
     Set myWb = Nothing
    Sheet1.Range("B3") = 1
End Sub