[發問] 請問用VBA程式呼叫 OUTLOOK EXPRESS

PD961A

請問用VBA程式呼叫 OUTLOOK EXPRESS 發送本文給工作表上多位收信者,如何自動送出..謝謝

chin15

大約如此吧，沒測試不知是否有bug
在設定引用項目中引用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] '放置信箱
   With objMail
            .To = a  '設置收件人信箱，有多人可設置變數來循環
            .Subject = "你好嗎" '設置郵件主題
            .Body = "我很好！" '設置郵件內容
            .Attachments.Add "C:\abcd.TXT" '設置附件
            .Send      '發送郵件
  End With
Application.Wait (Now + TimeSerial(0, 0, 5))'設置等待時間進行下一個
Next
Set objMail = Nothing  '釋放物件
Set objOutlook = Nothing  '釋放物件

PD961A

回復 2# chin15

謝謝妳
    但它是由office outlook發送的
   是由外部指揮outlook發送信件
  不是outlook express發送

PD961A

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

    用以下shell函數,利用for next 寄了50封左右但常會顯示寄送失敗無法全部傳出,不知是否還有其他參數可用?
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

PD961A

謝謝gb版主
請問以下的程式碼可以加傳附件嗎?謝謝您

    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 "xxx@pchome.com.tw"
            .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

GBKEE

回復 5# PD961A
可以傳一次之後,還是要關閉Excel 重開檔案再傳送.

PD961A

回復 6# GBKEE


    謝謝GB版主
試了之後他能帶出EXCEL裡的文字
但是附件要從哪裡設定??
謝謝您 ^ ^

GBKEE

回復 7# PD961A
附件 -> Application.ActiveSheet.MailEnvelope