[已解决]vba 发送邮件邮件正文字体设置

L50814026 · 发表于 2013-11-11 20:39

如题，
当用vba调用outlook发送邮件时，有什么语句可以设置正文的字体颜色

求助啊

最佳答案

hwc2ycy

2013-11-11 23:04

Sub CreateHTMLMail()
'Creates a new e-mail item and modifies its properties.
Dim objMail As MailItem

'Create mail item
Set objMail = Application.CreateItem(olMailItem)
With objMail
   'Set body format to HTML
   .BodyFormat = olFormatHTML
   .HTMLBody = "<HTML><H2>The body of this message will appear in HTML.</H2><BODY>Type the message text here. </BODY></HTML>"
   .Display
End With
End Sub

跳转到最佳答案楼层

hwc2ycy · 发表于 2013-11-11 21:30

发送HTML格式的就可以了

L50814026 · 发表于 2013-11-11 21:37

hwc2ycy 发表于 2013-11-11 21:30
发送HTML格式的就可以了

HTML格式转发邮件的时候怎么附上原邮件的正文以及附件呢？
用myForward.htmxbody=正文 & myForward.htmxbody 这样好像不行哦

hwc2ycy · 发表于 2013-11-11 23:04

这个最佳答案由 hwc2ycy 给出，感谢 hwc2ycy 的回答。

单击隐藏图章

Sub CreateHTMLMail()
'Creates a new e-mail item and modifies its properties.
Dim objMail As MailItem

'Create mail item
Set objMail = Application.CreateItem(olMailItem)
With objMail
   'Set body format to HTML
   .BodyFormat = olFormatHTML
   .HTMLBody = "<HTML><H2>The body of this message will appear in HTML.</H2><BODY>Type the message text here. </BODY></HTML>"
   .Display
End With
End Sub

hwc2ycy · 发表于 2013-11-11 23:07

标题的貌似没有查到，正文的如果不会HTML语法，可以百度下。

L50814026 · 发表于 2013-11-12 21:16

hwc2ycy 发表于 2013-11-11 23:04
Sub CreateHTMLMail()
'Creates a new e-mail item and modifies its properties.
Dim objMail A ...

谢谢了。
网上搜了许多资料，但是这个一直调不好自己想要的格式。添加附件只能添加在最后面

vba不是万能的

我水平太菜了，高人我们做朋友吧

hwc2ycy · 发表于 2013-11-12 21:21

L50814026 发表于 2013-11-12 21:16
谢谢了。
网上搜了许多资料，但是这个一直调不好自己想要的格式。添加附件只能添加在最后面
vba不是 ...

你可以用WORD调好，另存为HTML格式。

		自动登录	找回密码
密码			注册

[已解决]vba 发送邮件 邮件正文字体设置

[已解决]vba 发送邮件邮件正文字体设置