|
メール作成画面に、エクセルの図のコピー(メニュー⇒shft+編集⇒図のコピー)を
貼り付けて送りたいのですがリッチテキスト形式やHTML形式のみでは上手く
送ることができず、Microsoft Word(HTML)形式だと送ることができます。
(Netscape Messengerで受け取ったときに表示されないのです。)
下記のメールだとリッチテキスト形式になるので、それを
Microsoft Word(HTML)形式で送ることは可能ですか?
(メール設定がまずいのかもしれませんが・・・恥ずかしながら
行き当たりバッタリでよく分かってないのです。。。)
Sub メール送信画面作成()
Dim oApp As Object
Dim objMAIL As Object
Dim strMOJI As String
Set oApp = CreateObject("Outlook.Application")
Set objMAIL = oApp.CreateItem(0)
objMAIL.To = "あて先"
objMAIL.Subject = "自動送信メール"
objMAIL.Body = ”本文"
objMAIL.Display 'メール表示
End Sub
|
|