Excel VBA質問箱 IV

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

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


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

49481 / 76807

←次へ　｜　前へ→


	【32236】Re:メール送信で　ｃｃを実現したい

かみちゃん

- 05/12/10(土) 23:25 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

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

私は、まったく同じことを以下のような感じで実現しています。
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

1 hits

▼

【32235】メール送信で　ｃｃを実現したい row 05/12/10(土) 23:16