VBAでOutlookメールのフォントを変更する

まあ、ぐだぐだと愚痴も書いていきますが、本題から書いておきます


Sub FontTest()

    Dim myOutlook As Object

    Set myOutlook = CreateObject("outlook.application")

    Dim myItem As Object

    Set myItem = myOutlook.CreateItem(olMailItem)

    Dim myDoc As Word.Document

    Set myDoc = myItem.GetInspector().WordEditor

    myItem.Body = "hogehoge"

    myDoc.Content.Font.Name = "Meryo UI"

    myItem.Display

End Sub


こういうのってブログに載せる際の作法とかあるのかな？

まあ、よくわからないので気にしないでおきます。


エクセルVBAから新規にOutlookメールを作成するというのは

以前にやったことありまして、

今回、同僚が、私が以前作成したものを改変して作ったけど、

添付ファイルの前後でフォントが違ってしまう、との相談。

正直、なぜそうなったのか原因不明だし、私の環境じゃ

その現象の再現もできなかったんですが、

フォントを全部変更しちゃえばいいでしょとか、

軽く答えてみたが、その方法がよくわからなかったわけです。


VBAでOutlookのメール本文を編集しようとすると、

ものすごくめんどくさいんですよね。

メールがテキスト形式なら、bodyを適当に置き換えてやれば済みますけど、

HTML形式やリッチテキスト形式だと、

何が何だかわからない感じになります。


まあ、それはさておき、フォントの変更ですが、

ネットで検索するとなかなか答えが見つからず、

特にリッチテキスト形式のフォント変更の方法が見つけられませんでした。

リッチテキスト形式では変更できないから、

HTML形式にしてstyleタグを付け足せというものと、

一旦HTML形式に変換してフォント変更してから、

リッチテキスト形式に戻せというものがありました。

しかし、先ほどの相談内容からわかる通り、文章の途中に

添付ファイルを挟んでいる状態のメールです。

HTML形式にすると、添付ファイルは文中には置けないので、

リッチテキスト形式に戻そうとするとかめんどくさすぎてやりたくない。

だいたい、リッチテキスト形式だとフォントの変更ができないとか

そんなことあるわけない、ってことで自分で試して

上記のものになりました。


というわけで、自分なりの解説です

①Outlookオブジェクトを作成

他の方が書かれているVBAからのメール作成の方法ですが、

Outlookのライブラリを参照設定しておいてから

Dim myOutlook As New Outlook.Application

Dim myItem As Outlook.MailItem

Set myItem = myOutlook.CreateItem(olMailItem)

とやるように書かれていたんですが、

私の職場の環境では　Set～ の行でエラーが出て動きませんでした。

理由はよくわからないですが、遅延バインディングで記述しています

なお、OutlookのライブラリとWordのライブラリを参照設定したうえで

動かしましたが、

Dim myDoc As Word.Document　を

Dim myDoc As Object に変更すれば参照設定しなくても動作しますね。


②GetInspector().WordEditor

まあ、このあたりからよくわかってないけど、こう書けば大丈夫なはず

っていう状態になります。

Outlookオブジェクトからではメール本文の編集などができないので、

Wordライブラリを使って内容を編集するということなのだろう、

と思います。多分。


③フォントを変更

Word.Documentオブジェクトまでくれば

ドキュメント内の変更したい部分を指定して

～.Font.Name = "****" で、フォントの変更ができます。

myDoc.Content なら本文全体を変更できるようです

※参照設定したことで表示されるプロパティやメソッドを眺めて、

　多分これだろうとContentを選んでやってみたらできたというものなので、

　まあ、正直よくわかっていません

もちろん、myDoc.Range(0, x).Font.Name という書き方もできるんですが、

このRangeもどう設定したものかよくわかりづらいので、

あまり使いたくありません。

多分　myDoc.Range(0, Len(myDoc.Content)).Font.Name

みたいな感じでうまくいきそうな気もします。（試してない）

Len(myItem.body) と　Len(myDoc.Content)　では微妙に数値が違ってくるのが

ややこしくて困ってしまいます

　

コメント

コメントを投稿

このブログの人気の投稿

映画「ウイッシュ」のエア感想

 ディズニー100周年記念作品として作成された映画「ウイッシュ」  私は見てないし、今後見る予定も特に無いんですが、YouTube で批評動画をいくつか見て、自分も視聴済みのような気がしてきたので、エア感想というかエア考察してみようと思います。実際にはみていないので、間違ったことばかりと思いますが、まあいいでしょう。  この映画、悪役である マグニフィカ王 が、国民から集めた「ウイッシュ」を集めているが、国益に反する可能性がある「ウイッシュ」はかなえることがないという思想が、国王の考え方としてはあたりまえじゃないかという感想が多いようです。  そのような意見もその通りではあるのですが、この作品における「ウイッシュ」というのは、希望とか夢、望みという物ではありません。この作品は 寓話 であり、見た目をそのまま受け取るのは必ずしも正しくありません。  この作品における「ウイッシュ」というのは、観客に夢・希望を与えるために、ディズニーが今まで作ってきた作品、これから作られる作品のことを指しています。  アーシャ の おじいさん の「ウイッシュ」がかなった結果、「星に願いを」が奏でられたり、 マグニフィカ王 がかなえなかった「ウイッシュ」が、ピーターパン や メリーポピンズ であったりすることからも、それがわかります。  そう考えると、不都合な「ウイッシュ」をかなえない マグニフィカ王 というのは、作品を制作するか決定する ディズニー の経営陣に当たります。ロサス王国 の 国民たち は、作品を作ろうと企画する制作スタッフです。制作スタッフたちは、いろいろな作品をつくりたいという「ウイッシュ」を抱きますが、経営陣たる マグニフィカ王 は、ディズニーという会社としての思想に反しているもの、例えば 反ポリコレ思想 のようなものは、会社の思想に不都合であるため、かなえられる（ = 制作する）ことはありません。  つまり、この 映画「ウイッシュ」という作品は、自由に作品を作れないでいる制作スタッフの抗議なのです。  いや、本当のことは知らないですけどね。
続きを読む

VBA　引数として渡す変数とその宣言

 以前、VBAを使用してエラーが出たため、検索してみた内容で、 他のプロシージャや関数に引数を渡すときに変数を使用しようとするとエラーが出ることがあるんですが、 Dim で変数を宣言するときに、複数の変数を一つの行で同時に宣言しているとエラーが出ることがあるので、変数はひとつずつ宣言しましょうというのを見た。 当時、何でだよ？とか思ってたんですが、最近調べていたら、 Dim Param1, Param2 As String のように宣言した場合、String型として宣言されているのは Param2 だけで、Param1は型が宣言されておらず、Variant型になるそうな。 Param1 と Param2 両方を String型として宣言したい場合は、 Dim Param1 As String, Param2 As String とそれぞれ型を指定してやらないといけなかった。 あ～、このせいで引数に設定したときにエラーが出るんだなぁとおもったけど、引数の型が Variant型だとエラーになるという状況がよくわからず再現できていない。もうちょっと調べてみよう。 1/25 追記 引数を参照渡しの ByRef で設定されているところに、型が違う変数（Variant型含む）を渡すとエラーになる。ライブラリに登録されている メソッド・プロパティは大抵 ByRef に設定されているので、そこに 上記のように Dim Param1, Param2 As String のように宣言してしまって Variant型になっている変数を渡してしまうとエラーになってしまう。
続きを読む