|
>私は、まったく同じことを以下のような感じで実現しています。
>Ccの宛先用に変数を設けて、設定していくのがポイントです。
おっしゃるとおりマクロを変更しました。
が、pop認証で失敗してしまいました。
送信アドレスは、yahooで 事前にメール受信しておいて
pop before smtpはクリアしているハズなんですが・・・
気になったのが、宛先アドレスが
部長アドレス cc 課長アドレス
となっていて ccから課長アドレスまでが長い空白となっており
カンマではないことです。
これで BASP21は受け入れているのでしょうか・・・
-----------------------------------------------------------
szTo = .Cells(3, 5) ' 宛先
szcc = "cc"
If 宛先人数 > 1 Then ' cc アドレスがある場合は、それを 作成する
For i = 4 To 2 + 宛先人数
If .Cells(i, 1).Value = "○" Then
szcc = szcc & vbTab & .Cells(i, 5).Value ' 宛先
End If
Next i
End If ' cc アドレス作成終了
szTo = szTo & vbTab & szcc
|
|