Excel VBA質問箱 IV

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

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


49406 / 76732 ←次へ | 前へ→

【32236】Re:メール送信で ccを実現したい
回答  かみちゃん E-MAIL  - 05/12/10(土) 23:25 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>仕事上で、メール送信をする必要があり
>このサイト(http://www.hi-ho.ne.jp/babaq/basp21.html
>にて、BASP21で送信するマクロを作成しました。
>
>しかし、宛先とCCの両方を指定して
>複数送信したいのです。
>
>具体的には、部長   は 宛先
>      課長や係長は CC
>という感じです。

私は、まったく同じことを以下のような感じで実現しています。
Ccの宛先用に変数を設けて、設定していくのがポイントです。

 Dim szCc As String
 '〜省略〜
 If 宛先人数 > 1 Then  ' cc アドレスがある場合は、それを 作成する
  szCc = "cc"
  For i = 3 To 宛先人数
   If .Cells(i, 1).Value = "○" Then
    szCc = szCc & vbTab & .Cells(i, 5).Value  ' 宛先
   End If
  Next i
  szTo = szTo & vbTab & szCc
 End If
3 hits

【32235】メール送信で ccを実現したい row 05/12/10(土) 23:16 質問
【32236】Re:メール送信で ccを実現したい かみちゃん 05/12/10(土) 23:25 回答
【32237】Re:メール送信で ccを実現したい row 05/12/11(日) 0:30 発言
【32240】Re:メール送信で ccを実現したい かみちゃん 05/12/11(日) 0:52 発言
【32255】Re:メール送信で ccを実現したい row 05/12/11(日) 18:55 発言
【32260】Re:メール送信で ccを実現したい かみちゃん 05/12/11(日) 22:09 発言
【32270】Re:メール送信で ccを実現したい row 05/12/12(月) 0:27 発言
【32274】Re:メール送信で ccを実現したい かみちゃん 05/12/12(月) 7:24 発言
【32396】Re:メール送信で ccを実現したい row 05/12/14(水) 0:58 発言

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