Enum 列
宛先 = 1
氏名
成績
件名
添付ファイル1
添付ファイル2
添付ファイル3
End Enum
Sub メール作成()
Dim ol As New Outlook.Application
Dim m As mailItem
Dim MaxRow: MaxRow = Range("A1").End(xlDown).Row
For i = 2 To MaxRow
Set m = ol.CreateItemFromTemplate("c:\work\test.oft")
m.To = Cells(i, 列.宛先).Value
m.Subject = Cells(i, 列.件名).Value
m.Attachments.Add "c:\work" & Cells(i, 列.添付ファイル1).Value
m.Attachments.Add "c:\work" & Cells(i, 列.添付ファイル2).Value
m.Attachments.Add "c:\work" & Cells(i, 列.添付ファイル3).Value
m.HTMLBody = Replace(m.HTMLBody, "□□", Cells(i, 列.氏名).Value)
m.HTMLBody = Replace(m.HTMLBody, "●●", Cells(i, 列.成績).Value)
m.SaveAs "c:\work" & Cells(i, 列.氏名).Value & ".msg"
Next i
End Sub
こちらがVBAで起動確認できました。
いろいろご指摘いただきありがとうございます。
こちらをVBSに変換しなくてはならないのですが・・・
Option Explicit
Dim ex, bk, m, ol, sh
Set ex = GetObject(,"Excel.Application")
Set bk = ex.Workbooks(1)
Set sh = CreateObject("Outlook.Application")
For i = 2 To sh.Range("A1").End(-4121).Row
Set m = ol.CreateItemFromTemplate("C:\work\test.oft")
m.TO = sh.Cells(i,"A").Value
m.Subject = sh.Cells(i,"D").Value
m.Attachments.Add "C:\work" & sh.Cells(i,"E").Value
m.Attachments.Add "C:\work" & sh.Cells(i,"F").Value
m.Attachments.Add "C:\work" & sh.Cells(i,"G").Value
m.HTMLBody = Replace(m.HTMLBody,"□□", sh.Cells(i,"B").Value)
m.HTMLBody = Replace(m.HTMLBody,"●●", sh.Cells(i,"C").Value)
m.SaveAs"C:\work" & sh.Cells(i,"G").Value & ".msg"
Set m = Nothing
Next
ol.Quit
Set ol = Nothing
MsgBox("Finished!")
と言う助言を頂き実行してみましたが、
For i = 2 To sh.Range("A1").End(-4121).Row
の部分でエラーが出ます。
エラー構文は
オブジェクトでサポートされてないプロパティまたはメソッドです。
です。
実際のところ、この部分だけ変換が不明な部分でもあります。
教えていただけると幸いです。
またどのように書き換えればいいのかも
ぜひご回答いただけると幸いです。
宜しくお願い致します。
回答3件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。