質問: r1!添付ファイル2 ml.attachments.add l1 'メールを送信 ml.send r1.movenext loop end sub ----------------------------------------- どうぞよろしくお願いいたします。
回答: accessはわからないのですが、excelからのoutlookの操作と基本は同じはずなので一部推定を交えて答えさせていただきます。 まず宛先ですが、";"(セミコロン)で区切れば複数設定できます。 access vba の書き方ですが、 ml.to = r1!アドレス1 & ";" & r1!アドレス2 でよさそうに思えるのですがいかがでしょうか。 宛先が1つの場合でも、アドレス1かアドレス2のうち宛先の入っていない方が空文字列(長さ0の文字列)であればこのままで大丈夫なはずです。 次に添付ファイルですが、nullを無視してそのまま送信可能かどうかはわからないのですが、nullなら添付しないようにすれば話は簡単だと思います。 access vba の書き方ですが、たぶん以下のようなものでいいと思います。 'ファイルを添付1 if isnull(r1!添付ファイル1) = false then l1 = r1!添付ファイル1 ml.attachments.add l1 end if 'ファイルを添付2 if isnull(r1!添付ファイル2) = false then l1 = r1!添付ファイル2 ml.attachments.add l1 end if (フィールドがnullかどうかの判定は参考urlのページをまねてみたのですがこれでいいでしょうか?) http://oshiete.goo.ne.jp/qa/1223220.html 参考url:http://oshiete.goo.ne.jp/qa/1223220.html