0

こんにちは。

現在、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

この質問は解決済みのためクローズされています。
かみいぬ ベストアンサーとして選択しました
回答とコメントは、会員登録(無料)で閲覧できるようになります。