単純なスクリプトを作成してhtmlメッセージを作成しようとしていますが、できるだけ多くの既定値を保持したいと考えています。新しいhtml電子メールを作成するときに既定のOutlook形式を維持する
私の場合、家庭で新しいメッセージを作成するとき->
新しいメールは、デフォルトのフォント[Calibri 11 ']、書式のテキストHtml、および署名付きのメールを常に作成します。
私は、機能Application.CreateItem(olMailItem)
を使用すると問題なしでメールを作成します。
.HTMLBody
でhtmlボディを宣言すると、font [Times New Roman 12 ']の上書きが行われ、署名もなくなります。
さらに驚くべきこと:私は(コード怒鳴る参照)署名を維持するためにオンラインで見つける「トリック」を使用した場合、フォントは[Calibri 10' ]、その後上書きされます(デフォルト怒鳴る一点)
推奨/説明はありますか? HTMLメールを作成する
簡単なスクリプト(フォント+無署名の変化):
Sub TestMessage2()
Dim objMsg As MailItem
Set objMsg = Application.CreateItem(olMailItem)
With objMsg
.To = "[email protected]"
.Subject = "test Mail"
.Display
.HTMLBody = "<p>Hello,<br><br>Could you please review this program<br><br>Regards,</p>" & objMsg.HTMLBody
End With
End Sub
最初のスクリプトでは、「
」タグを使用しても機能しません。しかし、第二に、 ' 'タグを使用すると、例えば、.HTMLBody ="こんにちは、
<\body> "&objMsg.HTMLBody' so答え+1の場合 – Jonathanそうではありません。テキストまたはマークアップを '
... 'タグに追加します。 –非常に申し訳ありませんが、私は何が欠けているか分かりません。 '.HTMLBody ="
こんにちは<\body> "と書いてみたら、私は' ... 'タグに自分の全文(1語)を挿入しました。しかし、テキストは正しく表示されません。最終的にあなたのために働くサンプルコードがありますか? – Jonathan