[[20210221062503]]　『outlookでVBAマクロを実施するとフォントが崩れる』（9no1）　ページの最後に飛ぶ

『outlookでVBAマクロを実施するとフォントが崩れる』（9no1）

日/週/月で定期的に送信するメールが多いので、
outlookのoftファイルを使用し、テンプレートでメール作成を半自動化しています。
そのメールの本文と件名に入れる日付を下記vbaで自動入力させているのですが、
マクロを実施するとメール本文のフォントがMeiryo UIの12サイズに変更されてしまいます。
※日付の自動入力自体は問題無く動作します

1,根本解決案
フォントを変更させないコードに修正

2,応急措置案
作成中のメールのフォントを一括変更する別のマクロを作成
※フォントが変更されてしまうのを仕様として、その後再度フォントを設定する意図です。

上記どちらかでの対応を検討しているのですが、両方実現できておりません。
方法をご存じの方にご協力いただけないかと考えこちらへ投稿いたしました。

現在のコード

    Sub 日付変換()

        Dim objItem As Object
        Dim objIns As Inspector

        Set objIns = Application.ActiveInspector
        Set objItem = objIns.CurrentItem

        objItem.Subject = Replace(objItem.Subject, "XyyyyX", Year(Now))
        objItem.Subject = Replace(objItem.Subject, "XmmX", Month(Now))
        objItem.Subject = Replace(objItem.Subject, "XddX", Day(Now))

        objItem.Body = Replace(objItem.Body, "XyyyyX", Year(Now))
        objItem.Body = Replace(objItem.Body, "XmmX", Month(Now))
        objItem.Body = Replace(objItem.Body, "XddX", Day(Now))

    End Sub

ExcelのVersionは2016と365の環境があり、両方でテストしています。

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

投稿する前に[ 初めての方へ ]を読みましたか。
　(q) このサイト(掲示板)について
　•ここは『エクセルの学校』が運営している『Excel質問ボード』という掲示板です
　•これはちょっと変わった掲示板で、だれでも書き込めます
　•Excelについての質問や答えなどを書き込んでください
と書かれていますよ。
他のサイトで質問したらどうでしょうか。
（ななし） 2021/02/21(日) 16:29

[ 初めての方へ ]は確認し、似たような質問が無いかも見ております。
vbaに関してもこのサイト内でいくつかのケースを閲覧し、Excelに限らず該当分野においても質問と回答が多く行われているようですが、何か問題があるようであれば質問を取り消させていただきます。
（9no1） 2021/02/22(月) 01:02

コメント返信：

[ 一覧(最新更新順) ]

[[20210221062503]] 『outlookでVBAマクロを実施するとフォントが崩れる』（9no1） ページの最後に飛ぶ

[[20210221062503]]　『outlookでVBAマクロを実施するとフォントが崩れる』（9no1）　ページの最後に飛ぶ