[[20171004095805]]　『vbaのメール送付』（どんぐり）　ページの最後に飛ぶ

『vbaのメール送付』（どんぐり）

下記コードでoutlookでメールを新規作成した場合、

メール本文のフォントがMS UI Gothic、フォントサイズ12となります。

しかし、参照しているsheetのRange("c1") & vbNewLine & Range("c2") は
フォントがＭＳＰゴシックフォントサイズ10になっております。

なぜ、メールを作成した場合このようにフォントが変わってしまうのでしょうか。また、フォントを変更することが可能であれば、コードを教えていただきたいです。宜しくお願い致します。

Sub メール送付()

Dim myOLApp As Object
Dim oItem As Object
Dim attached1 As String

Const olMailItem As Integer = 0

 Set myOLApp = CreateObject("Outlook.Application")
 Set oItem = myOLApp.CreateItem(olMailItem)

oItem.To = Range("b1") & ";" & Range("b2")

oItem.CC = Range("b6") & ";" & Range("b7") & ";" & Range("b8") & ";" & Range("b9")

oItem.Subject = Range("b16")

oItem.Body = Range("c1") & vbNewLine & Range("c2")

oItem.Display

Set oItem = Nothing

Set myOLApp = Nothing

End Sub

＜使用 Excel：Excel2010、使用 OS：Windows10 ＞

セルの文字列情報しか使っていないから、フォントはOutlookのデフォルトにしかならないのですよ。テキスト形式のメールって、そういうものです。

テキスト形式ではなくHTML形式で指定すればできそうに思いますが、私はそこまで調べる気になりませんので、どうしても！絶対！、とかならば、ご自身で調べてみてください。 Excelが標準で持つ以外のオブジェクトを扱うコードを書くには、自力で調べ上げることのできる人でないと駄目、と常々思っております。
（???） 2017/10/04(水) 10:19

コメント返信：

[ 一覧(最新更新順) ]

[[20171004095805]] 『vbaのメール送付』（どんぐり） ページの最後に飛ぶ

[[20171004095805]]　『vbaのメール送付』（どんぐり）　ページの最後に飛ぶ