通過Outlook從Access

發送HTML格式的電子郵件這裏是我的代碼部分的正常工作：通過Outlook從Access

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 12磅格式化。

爲了達到這個目的我應該插入什麼？

在使用您的建議時，我首先會收到帶有測試文本和Calibri字體的電子郵件。如果我嘗試發送，則會收到錯誤消息。在保存時，我發現我也在草稿中使用了電子郵件的版本 - 正確的字體和文本。我如何擺脫第一封電子郵件？還有更改爲粗體和斜體的任何提示？這只是編寫一個普通的html文檔並在編碼中插入它的情況嗎？

來源

2013-10-19 Great Crosby

重：錯誤信息 - 我只是想我的代碼，它爲我工作。如果您在Outlook關閉的情況下運行Access VBA代碼，請在Outlook已打開的情況下再次嘗試。 re：Bold等 - 是的，只需在你的'.HTMLBody'文本中使用適當的HTML標籤。 –

基於一個線程here的響應，好像下面可能做的伎倆：

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-19 18:50:28

當我嘗試這樣的：隨着objMail 。爲了= 「[email protected]」 .NoAging =真。顯示（真） .BodyFormat = olFormatHTML .HTMLBody = 「的這是一個測試「 .Save 結束 –

當我試試這個： –

@ user2204315提示：只是[編輯]（http://stackoverflow.com/帖子/ 19468875 /編輯）你的問題與其他信息，然後在這裏使用評論說「我已經更新了我的問題」。 –

通過Outlook從Access

回答

相關問題