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

[µo°Ý] ½Ð°Ý¥ÎVBAµ{¦¡©I¥s OUTLOOK EXPRESS

[µo°Ý] ½Ð°Ý¥ÎVBAµ{¦¡©I¥s OUTLOOK EXPRESS

½Ð°Ý¥ÎVBAµ{¦¡©I¥s OUTLOOK EXPRESS µo°e¥»¤åµ¹¤u§@ªí¤W¦h¦ì¦¬«HªÌ,¦p¦ó¦Û°Ê°e¥X..ÁÂÁÂ
¾Ç¦p°f¤ô¦æ¦à ¤£¶i«h°h

¤j¬ù¦p¦¹§a¡A¨S´ú¸Õ¤£ª¾¬O§_¦³bug
¦b³]©w¤Þ¥Î¶µ¥Ø¤¤¤Þ¥Îoutlook object library
µ{¦¡
Dim objOutlook As New Outlook.Application
Dim objMail As MailItem
Set objOutlook = New Outlook.Application  
Set objMail = objOutlook.CreateItem(olMailItem)  
for each a in [a1:a10] '©ñ¸m«H½c
   With objMail
            .To = a  '³]¸m¦¬¥ó¤H«H½c¡A¦³¦h¤H¥i³]¸mÅܼƨӴ`Àô
            .Subject = "§A¦n¶Ü" '³]¸m¶l¥ó¥DÃD
            .Body = "§Ú«Ü¦n¡I" '³]¸m¶l¥ó¤º®e
            .Attachments.Add "C:\abcd.TXT" '³]¸mªþ¥ó
            .Send      'µo°e¶l¥ó
  End With
Application.Wait (Now + TimeSerial(0, 0, 5))'³]¸mµ¥«Ý®É¶¡¶i¦æ¤U¤@­Ó
Next
Set objMail = Nothing  'ÄÀ©ñª«¥ó
Set objOutlook = Nothing  'ÄÀ©ñª«¥ó

TOP

¦^´_ 2# chin15

ÁÂÁ©p
    ¦ý¥¦¬O¥Ñoffice outlookµo°eªº
   ¬O¥Ñ¥~³¡«ü´§outlookµo°e«H¥ó
  ¤£¬Ooutlook expressµo°e
¾Ç¦p°f¤ô¦æ¦à ¤£¶i«h°h

TOP

http://qa.pcuser.com.tw/modules/ ... =34461&forum=24

    ¥Î¥H¤Ushell¨ç¼Æ,§Q¥Îfor next ±H¤F50«Ê¥ª¥k¦ý±`·|Åã¥Ü±H°e¥¢±ÑµLªk¥þ³¡¶Ç¥X,¤£ª¾¬O§_ÁÙ¦³¨ä¥L°Ñ¼Æ¥i¥Î?
For i = 2 To 50
mymail = Range("g" & i)
myno = Range("c" & i)
main = Range("c" & i) Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" & mymail & "?subject=" & myno & "&Body=" & main, vbMaximizedFocus
next i
¾Ç¦p°f¤ô¦æ¦à ¤£¶i«h°h

TOP

ÁÂÁÂgbª©¥D
½Ð°Ý¥H¤Uªºµ{¦¡½X¥i¥H¥[¶Çªþ¥ó¶Ü?ÁÂÁ±z

    Sub SendMail()
  With Application.ActiveSheet.MailEnvelope
        'Add some introductory text before the body of the e-mail.
        .Introduction = "Please read this and send me your comments."
        'Return a Microsoft Outlook MailItem object that
        'you can use to send the document.
        With .Item
            'All of the mail item settings are saved with the document.
            'When you add a recipient to the Recipients collection
            'or change other properties, these settings will persist.
            .Recipients.Add "[email protected]"
            .Subject = "Here is the Sheet"
            'The body of this message will be
            'the content of the active document.
            .Send
        End With
    End With
End Sub
¾Ç¦p°f¤ô¦æ¦à ¤£¶i«h°h

TOP

¦^´_ 5# PD961A
¥i¥H¶Ç¤@¦¸¤§«á,ÁÙ¬O­nÃö³¬Excel ­«¶}ÀɮצA¶Ç°e.

TOP

¦^´_ 6# GBKEE


    ÁÂÁÂGBª©¥D
¸Õ¤F¤§«á¥L¯à±a¥XEXCEL¸Ìªº¤å¦r
¦ý¬Oªþ¥ó­n±q­þ¸Ì³]©w??
ÁÂÁ±z ^ ^
¾Ç¦p°f¤ô¦æ¦à ¤£¶i«h°h

TOP

¦^´_ 7# PD961A
ªþ¥ó -> Application.ActiveSheet.MailEnvelope

TOP

        ÀR«ä¦Û¦b : ¬°¦Û¤v§äÂǤfªº¤H¥Ã»·¤£·|¶i¨B¡C
ªð¦^¦Cªí ¤W¤@¥DÃD