outlook マクロフォントの変更

こんにちは。

AppointmentItemオブジェクトの場合はRTFBodyプロパティで設定できるようですが、rtfをByte配列として設定する必要があるようなので、いっそのことWordEditorで編集してはいかがでしょうか？

Public Sub Sample()
  With Application.CreateItem(olAppointmentItem)
    .MeetingStatus = olMeeting
    .Subject = "件名"
    .Location = "会議室"
    .Start = #4/14/2012 1:30:00 PM#
    .Recipients.Add("*** プライバシー保護の観点より、電子メール アドレスが削除されました ***").Type = olOrganizer
    .Body = "本文テスト"
    .Display
    
    If Application.ActiveInspector.EditorType = olEditorWord Then
      '以下WordEditorで本文編集。コードはWordマクロ参照。
      With Application.ActiveInspector.WordEditor
        .Range.InsertAfter "" & vbCrLf & vbCrLf & "本文追加。"
        With .Range(0, 2)
          .Bold = True
          .Font.Size = 32
          .Font.ColorIndex = 6
        End With
      End With
    End If
    
    '.Send
  End With
End Sub