Html 将电子邮件正文部分加粗_Html_Vba_Outlook

Html 将电子邮件正文部分加粗

html vba outlook

Html 将电子邮件正文部分加粗,html,vba,outlook,Html,Vba,Outlook,我正在使用Excel VBA代码通过Outlook发送电子邮件如何制作代码中固定的特定文本，粗体：事件/活动，部门，事件日期，说明 Dim wStat作为范围，i作为长度作为对象的模糊dam 对于范围（“I2”、范围（“I”和Rows.Count）中的每个wStat.End（xlUp））如果wStat.Value=“过期”，则 i=wStat.Row Set dam=CreateObject（“Outlook.Application”）.CreateItem（0） dam.To=范围（“

我正在使用Excel VBA代码通过Outlook发送电子邮件

如何制作代码中固定的特定文本，粗体：

事件/活动

，

部门

，

事件日期

，

说明

Dim wStat作为范围，i作为长度
作为对象的模糊dam
对于范围（“I2”、范围（“I”和Rows.Count）中的每个wStat.End（xlUp））
如果wStat.Value=“过期”，则
i=wStat.Row
Set dam=CreateObject（“Outlook.Application”）.CreateItem（0）
dam.To=范围（“F”和i）.值
dam.Cc=范围（“G”&i）.值
dam.Subject=范围（“C”和i）.值
dam.htmlBody=“Hi”和Range（“E”和i）.Value&“，”和vbCr&vbCr&vbCr&_
“这是为了提醒您，”&Range（“C”&wStat.Row.）.Value&_
已过期。详细信息如下：“&vbCr&vbCr&_
“事件/活动：”&范围（“C”和“i”）。值&vbCr&vbCr&_
“部门：”&范围（“D”&i）。价值与vbCr&vbCr&_
“事件日期：”&范围（“A”&i）。值&vbCr&vbCr&_
“说明：”&范围（“H”&i）.值&vbCr&vbCr&_
“请尽快更新您的状态！谢谢。”&vbCr&vbCr&vbCr&_
“致以最良好的祝愿”&vbCr&_
“XX部门”
'
水坝，显示器
如果结束
下一个
MsgBox“已发送提醒”
端接头

Outlook项目的HTMLBody属性设置一个字符串，表示指定项目的HTML正文。

HTMLBody

属性应该是一个格式良好的HTML语法字符串。否则，您可能最终会得到错误的文档外观。设置

HTMLBody

属性将始终立即更新

Body

属性

Sub CreateHTMLMail() 
 'Creates a new email item and modifies its properties. 
 Dim objMail As Outlook.MailItem 
 'Create email item 
 Set objMail = Application.CreateItem(olMailItem) 
 With objMail 
 'Set body format to HTML 
 .BodyFormat = olFormatHTML 
 .HTMLBody = _ 
 "<HTML><BODY>Enter the <b>bold</b> message text here. </BODY></HTML>"
 .Display 
 End With 
End Sub

Sub-CreateHTMLMail（）
'创建新的电子邮件项目并修改其属性。
将objMail设置为Outlook.MailItem
'创建电子邮件项目
Set objMail=Application.CreateItem（olMailItem）
用objMail
'将正文格式设置为HTML
.BodyFormat=olFormatHTML
.HTMLBody=\u
“在此处输入粗体消息文本。”
.展示
以
端接头

下面是一个示例HTML标记，它可以帮助根据需要标记文本：

<b>This text is bold</b>
<strong>This text is strong</strong>
<i>This text is italic</i>
<h2>HTML <mark>Marked</mark> Formatting</h2>
<p>This is <sup>superscripted</sup> text.</p>

此文本为粗体
此文本为strong
此文本为斜体
HTML标记格式
这是上标文本

Outlook项目的HTMLBody属性设置一个字符串，表示指定项目的HTML正文。

HTMLBody

属性应该是一个格式良好的HTML语法字符串。否则，您可能最终会得到错误的文档外观。设置

HTMLBody

属性将始终立即更新

Body

属性

Sub CreateHTMLMail() 
 'Creates a new email item and modifies its properties. 
 Dim objMail As Outlook.MailItem 
 'Create email item 
 Set objMail = Application.CreateItem(olMailItem) 
 With objMail 
 'Set body format to HTML 
 .BodyFormat = olFormatHTML 
 .HTMLBody = _ 
 "<HTML><BODY>Enter the <b>bold</b> message text here. </BODY></HTML>"
 .Display 
 End With 
End Sub

Sub-CreateHTMLMail（）
'创建新的电子邮件项目并修改其属性。
将objMail设置为Outlook.MailItem
'创建电子邮件项目
Set objMail=Application.CreateItem（olMailItem）
用objMail
'将正文格式设置为HTML
.BodyFormat=olFormatHTML
.HTMLBody=\u
“在此处输入粗体消息文本。”
.展示
以
端接头

下面是一个示例HTML标记，它可以帮助根据需要标记文本：

<b>This text is bold</b>
<strong>This text is strong</strong>
<i>This text is italic</i>
<h2>HTML <mark>Marked</mark> Formatting</h2>
<p>This is <sup>superscripted</sup> text.</p>

此文本为粗体
此文本为strong
此文本为斜体
HTML标记格式
这是上标文本

它只是字符串中的基本HTML。。。像这样的

“事件日期：”

-添加一个

以“打开”粗体，然后使用

以“关闭”粗体。感谢您的快速响应，它正在工作。然而，我现在的问题是它忽略了我的vbCr代码。有什么解决方法吗？不要使用

vbCr

-那不是HTML，你必须使用HTML。。。对于换行符，请在字符串内部使用

事件日期：“

它只是字符串中的基本HTML。。。像这样的

“事件日期：”

-添加一个

以“打开”粗体，然后使用

以“关闭”粗体。感谢您的快速响应，它正在工作。然而，我现在的问题是它忽略了我的vbCr代码。有什么解决方法吗？不要使用

vbCr

-那不是HTML，你必须使用HTML。。。对于换行符，请在字符串内部使用

事件日期：