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 質問[未読]
【77555】Re:自動作成メールに複数のCCを入れるには γ 15/10/21(水) 20:44 発言[未読]

4794 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free