返回列表 上一主題 發帖

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

chin15

帖子
227 
主題
3 
精華
1 
積分
273 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
性別
女 
註冊時間
2011-3-22 
最後登錄
2013-1-29 
1# 跳轉到 »
發表於 2011-5-18 14:44 | 顯示全部帖子
大約如此吧，沒測試不知是否有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  '釋放物件

TOP

        靜思自在 : 修行要繫緣修心，藉事練心，隨處養心。
返回列表 上一主題