|
▼G-Luck さん:
お返事遅くなりましたが、以下のような形に成りました。
最後に、
1.この形で添付ファイルをつけると添付ファイルの位置が安定しません。
最悪なときは、本文の間に入り、本文が読みにくくなります。
2.自動送信させるために、 'myitem.send をいれましたが
これを使うと添付ファイルがはいりません。
1.と2.を解消する、何か良い方法がありますか?
Sub 送る()
'
Set myOutLook = CreateObject("outlook.application")
Set myitem = myOutLook.CreateItem(olmailItem)
'OutLookを起動します。
myitem.To = "アドレス"
myitem.Subject = "件名"
myitem.Body = "本文"
myitem.Display
'myitem.send
Set MyAttachments = myitem.Attachments
MyAttachments.Add "ファイルの指定", 1, 1, "ファイルの表示名"
Set MyAttachments = myitem.Attachments
Set myOutLook = Nothing: Set myitem = Nothing
End Sub
|
|