如何使用Outlook VBA在电子邮件中指定光标位置和文本格式_Vba_Outlook

如何使用Outlook VBA在电子邮件中指定光标位置和文本格式

vba outlook

如何使用Outlook VBA在电子邮件中指定光标位置和文本格式,vba,outlook,Vba,Outlook,我收到一个用户的请求，要求在Outlook中创建宏他的要求是有一个粗体、突出显示和斜体的电子邮件标题我们能够完成这一部分，但他也要求将光标放在邮件标题下方的正文中，以便使用常规格式选项（字体、大小、颜色）输入文本当前，当宏运行时，光标结束在电子邮件标题的开头如果将光标移动到标题下方的行，则文本仍为粗体和斜体是否有办法在插入标题后重置文本格式，是否有办法指定光标在标题下方结束？到目前为止，我们已经得出以下结论： Sub Testmacro2() Dim olApp As Out

我收到一个用户的请求，要求在Outlook中创建宏

他的要求是有一个粗体、突出显示和斜体的电子邮件标题

我们能够完成这一部分，但他也要求将光标放在邮件标题下方的正文中，以便使用常规格式选项（字体、大小、颜色）输入文本

当前，当宏运行时，光标结束在电子邮件标题的开头

如果将光标移动到标题下方的行，则文本仍为粗体和斜体

是否有办法在插入标题后重置文本格式，是否有办法指定光标在标题下方结束？到目前为止，我们已经得出以下结论：

Sub Testmacro2()

    Dim olApp As Outlook.Application, olEmail As Outlook.MailItem, signature As String

    Set olApp = CreateObject("Outlook.Application")
    Set olEmail = olApp.CreateItem(0)
        With olEmail
        .Display
        End With
            signature = olEmail.HTMLBody
        With olEmail
        .HTMLBody = "<HTML><BODY><span style='background:yellow;mso-highlight:yellow'><em><b><p style=font-size:14pt>Privileged & Confidential Attorney Client Communication & Work Product.</b></em><br></span></BODY></HTML>" & vbNewLine & signature




    End With
Set olEmail = Nothing
Set olApp = Nothing

End Sub

Sub Testmacro2（）
Dim olApp作为Outlook.Application，olEmail作为Outlook.MailItem，签名作为字符串
设置olApp=CreateObject（“Outlook.Application”）
Set olEmail=olApp.CreateItem（0）
用电子邮件
.展示
以
签名=olEmail.HTMLBody
用电子邮件
.HTMLBody=“特权和机密律师-客户沟通和工作产品。
”&vbNewLine&signature
以
设置olEmail=Nothing
设置olApp=Nothing
端接头

您需要使用

Inspector.WordEditor

（返回

Word.Document

对象的实例），即

Inspector.WordEditor.Application.Selection

Inspector对象可以从

MailItem.GetInspector

检索，谢谢您的输入。我要试试这个。