outlook マクロフォントの変更

outlook2010

はじめまして。

 

outlookのマクロを作っています。

会議の予定を自動作成しようとしていますが

本文の色を変更する事が出来ません。

 

通常のメールであればHTMLBodyプロパティがあり

HTMLを書けばフォントを変更出来ますが

会議の時はHTMLBodyプロパティがありません!

なぜ会議の場合はないのか分かりませんが

ご存じの方がいらっしゃいましたら教えて下さい。

 

Dim objMail As Outlook.AppointmentItem
Set objMail = objOutLook.CreateItem(olAppointmentItem)

 

以上、宜しくお願い致します。

回答
回答
こんにちは。

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

この返信が役に立ちましたか?

役に立ちませんでした。

素晴らしい!フィードバックをありがとうございました。

この返信の満足度をお教えください。

フィードバックをお送りいただきありがとうございます。今後のサイト改善に役立てて参ります。

この返信の満足度をお教えください。

フィードバックをお送りいただきありがとうございます。

 
 

質問情報


最終更新日 2021年1月29日 表示 5,003 適用先: