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

时间:2017-05-19 21:24:09

标签: outlook-vba

我收到了一位用户的请求,要求在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

1 个答案:

答案 0 :(得分:0)

您需要使用@RunWith(SpringRunner.class) @SpringBootTest public class CommitTest { @Autowired TestRepo repo; @Transactional @Commit @Test public void testCommit() { repo.createPerson(); System.out.println("I want a commit here!"); // ... System.out.println("Something after the commit..."); } } @Repository public class TestRepo { @Autowired private PersonRepository personRepo; @Transactional(propagation = Propagation.REQUIRES_NEW) public void createPerson() { personRepo.save(new Person("test")); } } (返回Inspector.WordEditor对象的实例),即Word.Document

可以从Inspector.WordEditor.Application.Selection检索检查器对象。