| |
>アドレス、アカウント名、パスワード、添付ファイルの場所（パス）は、Excelファ
>イルで管理しています。
>
>マクロを上手く使うと、メールを自動的に作ることができるのでしょうか？
>
鶴亀のマクロじゃないですが
----
Sub mailsend()
tmpBodyFile = Environ("tmp") & "\" & "MailBody.txt"
r = 1
While Cells(r, 1) <> ""
fno = FreeFile
Open tmpBodyFile For Output As #fno
Print #fno, "アカウント名＝" & Cells(r, 2)
Print #fno, "パスワード ＝" & Cells(r, 3)
If Cells(r, 4) = "" Then
Print #fno, "添付ファイルはありません"
End If
Close #fno
CmdLine = "C:\Program Files\TuruKame\TuruKame.exe"
CmdLine = CmdLine & " unsentmail"
CmdLine = CmdLine & " To=" & Cells(r, 1)
CmdLine = CmdLine & " Subject=" & "マクロテスト"
CmdLine = CmdLine & " BodyFile="
CmdLine = CmdLine & tmpBodyFile
If Cells(r, 4) <> "" Then
CmdLine = CmdLine & " Attach=""" & Cells(r, 4) & """"
End If
'RetVal = MsgBox(CmdLine, vbOKCancel)
'If RetVal = vbOK Then
RetVal = Shell(CmdLine, 1)
'End If
r = r + 1
Wend
End Sub
----
こんな様にExcelのマクロでやったほうがよいかも。
Excelのデータを鶴亀マクロから読むのはこんなんなので。
ちなみにExcelのsheetの
A列にアドレス
B列にアカウント名
C列にパスワード
D列に添付ファイルのパス
となっていると仮定してます。
A列にアドレスの入っている行だけ繰り返します。
実行が終わると、鶴亀の未送信フォルダに格納されるので
後でまとめて送信するのがよいかと。
|
|