2017-05-09 14 views
0

単純なスクリプトを作成して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 

答えて

1
:署名(フォントの異なる変化)と

Sub TestMessage1() 
Dim objMsg As MailItem 
Set objMsg = Application.CreateItem(olMailItem) 
With objMsg 
    .To = "[email protected]" 
    .Subject = "test Mail" 
    .HTMLBody = "<p>Hello,<br><br>Could you please review this program<br><br>Regards,</p>" 
    .Display 
End With 
End Sub 

ライトHTMLメール

<body>タグの直後で、閉じた</body>タグの前に、テキストまたは整形されたHTMLマークアップを貼り付ける必要があります。その場合、すべてのフォーマット設定が保持されます。

+0

最初のスクリプトでは、「」タグを使用しても機能しません。しかし、第二に、 ' 'タグを使用すると、例えば、.HTMLBody ="

こんにちは、

<\body> "&objMsg.HTMLBody' so答え+1の場合 – Jonathan

+0

そうではありません。テキストまたはマークアップを ' ... 'タグに追加します。 –

+0

非常に申し訳ありませんが、私は何が欠けているか分かりません。 '.HTMLBody =" こんにちは<\body> "と書いてみたら、私は' ... 'タグに自分の全文(1語)を挿入しました。しかし、テキストは正しく表示されません。最終的にあなたのために働くサンプルコードがありますか? – Jonathan

関連する問題