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

帖子: 1180
主題: 204
精華: 0
積分: 1051
點名: 0
作業系統: Mac.OS10.6
軟體版本: Office 2003
閱讀權限: 100
性別: 男
註冊時間: 2010-5-3
最後登錄: 2012-9-19

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-5-18 00:18 | 只看該作者

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

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

樓主熱帖

學如逆水行舟不進則退

chin15

中學生 Rank: 2

帖子: 227
主題: 3
精華: 1
積分: 273
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-3-22
最後登錄: 2013-1-29

2^#

發表於 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  '釋放物件

帖子: 1180
主題: 204
精華: 0
積分: 1051
點名: 0
作業系統: Mac.OS10.6
軟體版本: Office 2003
閱讀權限: 100
性別: 男
註冊時間: 2010-5-3
最後登錄: 2012-9-19

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2011-5-18 20:33 | 只看該作者

回復 2# chin15

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

學如逆水行舟不進則退

帖子: 1180
主題: 204
精華: 0
積分: 1051
點名: 0
作業系統: Mac.OS10.6
軟體版本: Office 2003
閱讀權限: 100
性別: 男
註冊時間: 2010-5-3
最後登錄: 2012-9-19

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2011-5-18 20:36 | 只看該作者

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

學如逆水行舟不進則退

帖子: 1180
主題: 204
精華: 0
積分: 1051
點名: 0
作業系統: Mac.OS10.6
軟體版本: Office 2003
閱讀權限: 100
性別: 男
註冊時間: 2010-5-3
最後登錄: 2012-9-19

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2011-5-25 19:45 | 只看該作者

謝謝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 "[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

學如逆水行舟不進則退