outlookのメールをExcelで作成するマクロ

質問

outlookのメールをExcelで作成する際の質問です。
以下のマクロを実行すると始めにwordeditorで作成した
あいうえおがMSP明朝で入力され、そのあとに住所、氏名、年齢
ハイパーリンクが入力されます。
strMOJIの方で入力したハイパーリンクはちゃんとハイパーリンクとして
反応するのですが、フォントが明朝になりません。
逆にwordeditorのTypeTextにハイパーリンクを貼り付けても文字として処理されてしまい、ハイパーリンクになりません。

フォントを指定して、尚且つハイパーリンクもちゃんとはりつけられるように
するにはどうしたらよいでしょうか？

Sub test()
Dim Ap As Object
Dim M As Object
Dim strMOJI As String

Set Ap = CreateObject("outlook.application")
Set M = Ap.CreateItem(0)
strMOJI = vbCr & "住所:" & vbCr & "氏名:" & vbCr & "年齢:" & vbCr & _
"<file://>"
M.BodyFormat = 2
M.To = "aaa@com"
M.cc = "bbb@com"
M.importance = 2
M.Subject = "test"

M.Body = strMOJI
M.display

'#全部ワードで編集した方が分かりやすい？

With Ap.ActiveInspector.wordeditor.Windows(1)
With .Selection
.Font.Name = "ＭＳ Ｐ明朝"
.TypeText "あいうえお"
End With

End With

Application.CutCopyMode = False

End Sub

回答No.1

Prome_Lin · ベストアンサー

質問者がおやりになりたいこととは、違うのですが、「Outlook」側で、送信時のフォントを指定してしまうのはどうでしょうか？

Outlook側で、「ファイル」→「オプション」→「メール」で、「次の形式でメッセージを作成する」：「HTML形式」か「リッチテキスト形式」→「ひな形を使用して、既定のフォントやスタイル、色、背景を変更します。」で、フォントを「MS P明朝」に設定します。

上記のプログラムでフォントを指定しても、もし送信されるメールが「テキスト形式」でしたら、フォントを指定しても意味はありません。

標準で送信するメールの形式は「テキスト形式」になっていませんか？

お礼

お礼が遅くなり大変申し訳ありませんでした。

ご回答頂いた内容、非常に参考になりました。ありがとうございます。

今回私の確認不足で、私が質問に書いたマクロは、メール作成画面ではハイパーリンクにはなっていないのですが、送信して、受信者の方ではちゃんとハイパーリンクになっておりました。
なので、この質問自体が意味のない質問でした。

しかしながらProme_Linさんのご回答も頂けて結果的には非常に良かったです。

今後ともなにかありましたら
よろしくお願いします。