Outlook メール送信(添付ファイル付)(メーラ起動、停止含む) で添付ファイルを複数添付したい。
こんにちは。
現在、Winactor 標準ライブラリにあります「Outlook メール送信(添付ファイル付)(メーラ起動、停止含む)」を使用して、資料の送付を考えております。
しかしながら、添付ファイルが一件のみしか付けることが出来なかったのでスクリプトを変更し、複数添付出来るようにはしました。(下記太イタリック字が変更箇所)
その後、資料を添付し部分実行をしてみた所、「ステートメントの末尾が不正です」 とのアラートが出るので、どの箇所かを変更しなければならない模様です。
VBAに御詳しい方、初歩的な質問かとは思いますが御教示御願い致します。
'---------------------------------------------------------------
'メイン
'---------------------------------------------------------------
Dim oApp
Dim myNameSpace
Dim myFolder
Dim mITEM 'As Outlook.MailItem
Dim sendTo
Dim sendCc
Dim attachmentFile
Dim attachmentTitle
sendTo = !宛先(To)!
sendCc = !宛先(Cc)!
attachmentFile = !添付ファイル1!,!添付ファイル2!
attachmentTitle = !添付タイトル1!,!添付タイトル2!
'宛先(To)の入力がない場合
If sendTo = "" Then
Err.Raise 1, "", "宛先(To)を指定して下さい"
WScript.Quit()
End If
'Outlook起動
Set oApp = CreateObject("Outlook.Application")
'名前空間の指定
Set myNameSpace = oApp.GetNamespace("MAPI")
'作業フォルダーの指定と表示
Set myFolder = myNameSpace.GetDefaultFolder(6)
myFolder.Display
'通常サイズ olNormalWindow=2 で表示、xlMinimized=1
oApp.ActiveWindow.WindowState = 1
'メールアイテムの作成 olMailItem=0
Set mITEM = oApp.CreateItem(0)
'編集画面表示
'mITEM.Display
'データのセット
mITEM.Subject = !件名!
mITEM.To = sendTo
If sendCc <> "" Then
mITEM.Cc = sendCc
End If
mITEM.Body = !本文!
'一時保存
mITEM.Save
'添付ファイルを添付 olByValue=1
Set myAttachments = mITEM.Attachments
myAttachments.Add attachmentFile, 1, 1, attachmentTitle
'送信
mITEM.Send
'5秒スリープ
WScript.Sleep 5000
'Outlookを終了
oApp.Quit