|
はじめて投稿します。
初めてマクロに挑戦する超初心者です。
よろしくお願いします。
現在サンダーバードを使用して
メールを自動作成させるマクロを作っているのですが、
CCが複数ある場合はどのようにプログラムを書けばいいのでしょうか。
現在以下のように書いているのですが、
メールにはCC1しか反映されません。
おそらく最下段のShell sPath〜のCCの定義の
書き方に問題があると思われますが、分かりません。
Dim sPath As String
Dim Mailad As String
Dim MailCC1 As String
Dim MailCC2 As String
Dim MaikCC3 As String
Dim strTITLE As String
Dim strDOC As String
Dim strWORK As String
Dim stryLINE As Integer
sPath = """C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe"" -compose "
'宛先アドレス
Mailad = "aaa@xxx.co.jp"
MailCC1 = "bbb@xxx.com"
MailCC2 = "ccc@xxx.co.jp"
MailCC3 = "ddd@xxx.co.jp"
'件名
strTITLE = Trim(Sheets("あいうえお").Range("B7"))
'本文作成
strDOC = " "
For stryLINE = 10 To 29
strWORK = Sheets("あいうえお").Cells(stryLINE, "A")
If strWORK = "↑ここまで" Then Exit For
strDOC = strDOC & strWORK & vbCrLf
Next stryLINE
Shell sPath & "to=" & Mailad & "," & _
"cc=" & MailCC1 & "," MailCC2 &"," & _
"subject=""" & strTITLE & """," & _
"body=""" & strDOC & """"
End Sub
どうぞ宜しくお願いいたします。
|
|