アクセスVBAでメールを送信(複数宛先・添付)
vbaを使用しメールを送信しようとしております。
以下に記載のように設定をしておりますが、２点設定の方法がわかりかねております。
大変お手数ですが、ご教示いただければ幸いです。
(1)宛先を複数設定したい場合はどのように設定すればよろしいでしょうか。
別々に送るのではなく、宛先にアドレス１、アドレス２を設定し１通のメールで送信をしたいです。
(2)添付ファイルを複数添付したいのですが、宛先によって添付ファイルの数が異なります。
たとえば、宛先Aには添付ファイルが1,2があるが、Bには添付ファイル1のみであり添付ファイル2フィール付度はNULLです。
この場合、エラーになってしまうのですが、"添付ファイルフィールドがnullでも無視してそのまま送信する"と設定はできるのでしょうか。
---------------------------------------
テーブル名：テーブル１
フィールド：アドレス1、アドレス2、件名、本文、添付ファイル1、添付ファイル2
---------------------------------------
Sub SAMPLE_0216()
Dim db As DAO.Database
Dim R1 As Recordset
Dim AP As Object
Dim ML As Object
Dim L1 As String
Set db = CurrentDb
Set R1 = db.OpenRecordset("テーブル1")
Set AP = CreateObject("Outlook.Application")
R1.MoveFirst
Do Until R1.EOF
'メールを作成
Set ML = AP.createitem(0)
'アドレスをセット
ML.To = R1!アドレス1
'件名をセット
ML.Subject = R1!件名
'本文をセット
ML.Body = R1!本文
'ファイルを添付1
L1 = R1!添付ファイル1
ML.Attachments.Add L1
'ファイルを添付2
L1 = R1!添付ファイル2
ML.Attachments.Add L1
'メールを送信
ML.Send
R1.MoveNext
Loop
End Sub
-----------------------------------------
どうぞよろしくお願いいたします。
お礼
回答ありがとうございます。 ソフトでの対応とのことなんですが、 こちらはPower Mac G5のMacで 相手はintelになった直後のiMacG5でMac同士です。 バージョンは違うかもしれませんが、 ソフトは同じデフォルトのmailなんです。 バージョンアップって、mailにもあるんでしょうか。