0

これは正常に動作する私のコードの一部です:

Dim objOutlook As New Outlook.Application
Dim objMail As MailItem
Dim Header as String
Dim Text As String
Dim EmailAddr as String

Set objOutlook = New Outlook.Application
Set objMail = objOutlook.CreateItem(olMailItem)

I then define Header, text and EmailAddr

With objMail
    .To = EmailAddr
    .Subject = Header
    .Body = Text
    .Send
End with

テキストを Arial 12pt として書式設定したい。

これを達成するために何を挿入しますか？

あなたの提案を使用すると、最初にテストテキストなしでフォント Calibri のメールが届きます。送信しようとすると、エラー メッセージが表示されます。保存すると、下書きにも、あなたが予測したバージョンの電子メールがあることがわかりました。正しいフォントとテキストです。最初のメールを削除するにはどうすればよいですか? また、太字や斜体に変更する際のヒントはありますか? 通常の html ドキュメントを作成し、それをコーディングに挿入するだけの場合ですか?

4

1 に答える 1

3

ここのスレッドへの応答に基づいて、次のようにうまくいくようです:

With objMail
    .To = EmailAddr
    .Subject = Header
    .BodyFormat = olFormatHTML
    .HTMLBody = "<span style=""font-family: Arial; font-size: 12pt;"">This is a test.</span>"
    .Send
End With
于 2013-10-19T18:50:28.210 に答える