如何在使用Outlook VBA的電子郵件中指定光標位置和文本格式

我收到了一位用戶在Outlook中創建宏的請求。如何在使用Outlook VBA的電子郵件中指定光標位置和文本格式

他的要求是有一個大膽的電子郵件標題，突出顯示和斜體。

這部分我們已經能夠完成，但他還要求光標在標題正下方的電子郵件正文中，以便使用常規格式選項（字體，大小，顏色）輸入文本。

當前我們的宏運行時，光標結束在電子郵件頭的開頭。

如果將光標移動到標題下方的行，則文本仍然以粗體和斜體顯示。

是否有一種方法可以在插入標題後重置文本格式，並且是否有方法指定光標最終位於標題下方？這是我們想出迄今：

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

來源

2017-05-19 dutsey

您將需要Inspector.WordEditor工作（返回Word.Document對象的實例），即Inspector.WordEditor.Application.Selection。

督察對象可以從MailItem.GetInspector檢索。

來源

2017-05-19 22:24:13

謝謝您的輸入。我會試試這個。 – dutsey

如何在使用Outlook VBA的電子郵件中指定光標位置和文本格式

回答

相關問題