早上好 - 我想從訪問Outlook程序是撰寫電子郵件。展望確定用戶的默認郵件字體樣式和大小
我相信我已經想通妥善如何創建電子郵件,但無法理解如何使用用戶的默認郵件字體的字體類型。所有消息都上來了宋體,PT 12
我發現很多關於如何將字體設置爲某種風格的文章,但我想使用用戶的默認的Outlook字體設置。
Sub testHTML()
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
' Create the Outlook session.
Set objOutlook = CreateObject("Outlook.Application")
' Create the message.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
' Add the To recipient(s) to the message.
' Set objOutlookRecip = .Recipients.Add("Whatever Email")
' objOutlookRecip.Type = olTo
.Subject = "Testing"
.Display
'Create HTML body, which will contain a hyperlink
objOutlookMsg.HTMLBody = "This is the body of the email, which contains a link to Google. " & _
"<a href='http://www.google.com'>www.google.com<a/>. " & _
"Can you please help me figure out the font for the whole message? " & _
"Why does it default to Times New Roman point 12 instead of the users' default mail font?"
End With
End Sub
謝謝你的建議 - 我可以用你的建議,如果我想將它設置爲宋體大小11。但是,我不想硬編碼的字體 - 我喜歡簡單地讓它默認爲用戶設置自己的展望消息。你有其他建議嗎? – blimbert
您可以使用您想要的默認字體,因爲HTML只有3字體和將選擇哪個是存在的。 –