1

Outlook を使用して Excel VBA で複数の受信者に電子メールを送信する方法からコードのブロック全体をコピーし、電子メール メッセージの最後に署名を追加しました。

With OutMail
    .Display
End With
    Signature = OutMail.Body
With OutMail
    .To = sTo
    .CC = sCC
    .BCC = ""
    .Subject = Worksheets("MassEmail").Range("A2") & " WW" & Worksheets("MassEmail").Range("B1")
    sHTML = "<HTML><BODY><FONT face=""Calibri, Arial"">"
    sHTML = sHTML & "<p style=""font-size:11pt"">Hi,</p>"
    sHTML = sHTML & "<p style=""font-size:11pt"">Here is the RMA list WW" & Worksheets("MassEmail").Range("B1") & ".  Please review.</p>"
    sHTML = sHTML & "<pre style=""font-size:11pt;font-family:Calibri,Arial"">     Total: </pre>"
    .HTMLBody = sHTML & Signature
    .HTMLBody = .HTMLBody & "</FONT></BODY></HTML>"
End With

これが署名の外観です。
元の署名

出力は、署名を除いて問題ありません。 HTML本文

.htmlbody を .body に変更してみましたが、結果はさらに悪くなります。

.body 付きの出力。 体

Excel/Outlook 2007 を使用しています。

4

1 に答える 1

0

メッセージの形式を RichText または HTMLFormat に設定する必要があります

olFormatHTMLやolFormatRichTextのようなもの

次に、MailItem.HTMLBody="...."を使用します。

詳細については、VBA MVP レジェンド Ron De Bruinの Web サイトを参照してください。

Excel からメールを送信するためのコード例

于 2013-04-02T09:01:24.947 に答える