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 · ベストアンサー

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

お礼

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

回答No.2

venzou

Nullの場合や空白の場合を考慮し、
ファイルが存在するかもチェックした方がいいでしょう。

>myMail.Attachments.Add ("")

上記の行を下記に変更。

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

お礼

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