[[20170517133135]]　『VBAでのメール作成で一部フォントを大きくしたい』（HM）　ページの最後に飛ぶ

『VBAでのメール作成で一部フォントを大きくしたい』（HM）

いつもお世話になっております。
下記VBAでメールを作成するようにしたのですが
本文のB22～B26の文字の大きさを14にして太字にしたいと思っております。
この場合は、どのようにしたらよいのかご教授お願いいたします。

Sub MakeMail()

 'Outlookのメールを作成する
    Dim Outlook As Object

 '起動しているOutlookを取得する
    Set Outlook = GetObject(, "Outlook.Application")
    If Outlook Is Nothing Then Exit Sub                'Outlookが起動していない場合は終了する

 'メールを作成する
    With Outlook.CreateItem(0)
        .To = Range("B2").Value & ";" & Range("B3").Value & ";" & Range("B4").Value        '宛先
        .Subject = Range("B5").Value     '件名
        .Body = Replace(Range("B6").Value & Range("B22").Value & Range("B24").Value _
            & Range("B25").Value, vbLf, vbCrLf) & .Body      '本文（署名を本文の下部に表示）
    End With

    Set Outlook = Nothing
End Sub

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

 「OUTLOOK メール　本文　文字　太字　VBA」でネット検索したら、他のQ&Aサイトで
 「エクセルVBAでOutlookメールの書式を変える」というスレッドがあり、そこに回答が
 ありました。

  HTMLタグを編集する、というものでした。
（カリーニン） 2017/05/17(水) 13:52

Sub MakeMail()

 'Outlookのメールを作成する
    Dim Outlook As Object

 '起動しているOutlookを取得する
    Set Outlook = GetObject(, "Outlook.Application")
    If Outlook Is Nothing Then Exit Sub                'Outlookが起動していない場合は終了する

 'メールを作成する
    With Outlook.CreateItem(0)
        .To = Range("B2").Value & ";" & Range("B3").Value & ";" & Range("B4").Value        '宛先
        .Subject = Range("B5").Value     '件名
        .Display
        With Outlook.ActiveInspector.WordEditor.Windows(1)
            With .Selection
            .TypeText "ここに本文１行目" & Chr(11) & "ここに本文２行目" & Chr(11) & "ここに本文３行目" & Chr(11)
            End With
            With .Selection
            .TypeText Chr(11)
            .Font.Size = 14
            .Font.Bold = True
            .TypeText "＊＊＊＊＊" & Chr(11) & "ここに署名" & Chr(11) & "＊＊＊＊＊"
            End With
        End With
    End With

    Set Outlook = Nothing
End Sub
（mm） 2017/05/17(水) 14:55

mm様

ご教授ありがとうございます。

ご教授いただきましたコードを元に変更しましたら無事に完成しました。
このような書き方があるとは知りませんでしたので、大変勉強になりました。

また何かありましたらよろしくお願い致します。
（HM） 2017/05/18(木) 09:29

コメント返信：

[ 一覧(最新更新順) ]

[[20170517133135]] 『VBAでのメール作成で一部フォントを大きくしたい』（HM） ページの最後に飛ぶ

[[20170517133135]]　『VBAでのメール作成で一部フォントを大きくしたい』（HM）　ページの最後に飛ぶ