Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4794 / 76732

←次へ　｜　前へ→


	【77554】自動作成メールに複数のCCを入れるには

hanako - 15/10/21(水) 20:30 -


	引用なし

	パスワード

はじめて投稿します。
初めてマクロに挑戦する超初心者です。
よろしくお願いします。

現在サンダーバードを使用して
メールを自動作成させるマクロを作っているのですが、
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

どうぞ宜しくお願いいたします。

0 hits

▼

【77554】自動作成メールに複数のCCを入れるには hanako 15/10/21(水) 20:30