MS Outlookのマクロについて

質問

毎日複数の同じ宛先に同じファイル(中身は毎日更新)を添付して送信しておりますが、これをマクロを組んで自動化したいと考えております。
マクロの画面は出てくるのですが、エクセルやワードのようにマクロを記録するボタンが出てきません。どうすれば良いのでしょうか。

回答No.1

10CubeLeaf · ベストアンサー

以下のようなマクロで実現できるでしょう。

Public Sub SendAttachment()
Dim objMsg As MailItem
' 新規メッセージを作成します。
Set objMsg = Application.CreateItem(olMailItem)
' 宛先を設定します。複数いる場合は ; で区切ります。
objMsg.To = "user1@example.com;user2@example.com"
' 件名を設定します。
objMsg.Subject = "添付ファイル送信"
' 本文を設定します。
objMsg.Body = "添付ファイルを送信します。"
' 添付ファイルを追加します。
objMsg.Attachments.Add "c:\document\report.doc"
' メッセージを送信します。
objMsg.Send
End Sub

参考URL：

http://outlooklab.spaces.live.com/blog/cns!9D7EA61EC7DAA750!170.entry

お礼

下記のような内容で(アドレス名は省略)試してみましたが、ファイル名が見つかりませんというアラームで止まってしまいました。どういったことが原因として考えられるでしょうか。お手数お掛け致します。

Public Sub 本日のお知らせ()
Dim objMsg As MailItem
' 新規メッセージを作成します。
Set objMsg = Application.CreateItem(olMailItem)
' 宛先を設定します。複数いる場合は ; で区切ります。
objMsg.To = "アドレスA;アドレスB"
' 件名を設定します。
objMsg.Subject = "お知らせ"
' 本文を設定します。
objMsg.Body = "本日のお知らせです"
' 添付ファイルを追加します。
objMsg.Attachments.Add "C:\Documents and Settings\Owner\デスクトップ\TEST.doc"
' メッセージを送信します。
objMsg.Send
End Sub

補足

ご回答ありがとうございます。今日はできないので明日実行してみます。またご報告させて頂きます。