ACCESS CreateObjectを使ったMail送信の添付ファイル名

ACCESSからOutlookのMailを送信したいと思っています。
------------------------
Dim myOL As Object
Dim myMail As Object
Set myOL = CreateObject("Outlook.Application")
Set myMail = myOL.CreateItem(0)
myMail.SentOnBehalfOfName = ""
myMail.To = ""
myMail.Cc = ""
myMail.BCc = ""
myMail.Subject = ""
myMail.Attachments.Add ("")
myMail.Body = ""
myMail.Display
------------------------------
そこで、添付したいファイルのフルパスをフォーム上に入力し、
都度それを上の記述に反映したいと思います。
例）me.添付ファイル名
myMail.Attachments.Add ("& me.添付ファイル名 &")　でも
myMail.Attachments.Add (" me.添付ファイル名 ")　でも
エラーになってしまいます。
引き続きいろんなパタンを試してみますが、
お分かりになる方、教えて下さい！！
（”や’に弱いんです・・・。）

No.1 ベストアンサー 回答者： bonaron 回答日時： 2007/10/22 10:47

単純に

myMail.Attachments.Add (me.添付ファイル名)

この回答へのお礼

本当にありがとうございました。
試したつもりでいました・・
助かりました！！

お礼日時：2007/10/22 13:09

No.2 回答者： venzou 回答日時： 2007/10/22 12:38

Nullの場合や空白の場合を考慮し、

ファイルが存在するかもチェックした方がいいでしょう。

>myMail.Attachments.Add ("")

上記の行を下記に変更。

If ("" & Me.添付ファイル名 <> "") And (Dir(Me.添付ファイル名, vbNormal + vbReadOnly) <> "") Then
　myMail.Attachments.Add (Me.添付ファイル名)
End If

この回答へのお礼

本当にありがとうございました。
試してみたいと思います！！

お礼日時：2007/10/22 13:10