使用VBA從Microsoft Word選擇到Outlook新電子郵件

Question

我嘗試使用此Microsoft Word宏將已完成的選擇粘貼到新電子郵件中，但是當我以HTML格式進行選擇時，盡管每個段落的末尾都沒有<br> ，但結果是逐字逐句地沒有回車。

例：
文字1
文字2
文字3

我得到：
文字1文字2文字3

Dim rng As Range
Dim OutApp As Object
Dim OutMail As Object

Set rng = ActiveDocument.Range(Start:=Selection.Start, End:=Selection.End)

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)

On Error Resume Next
With OutMail
    .Display
    .To = "to@email.com"
    .CC = "cc@email.com"
    .BCC = ""
    .Subject = Date
    .BodyFormat = olFormatHTML
    .HTMLBody = "<HTML><body><font face=""calibri"" style=""font-size:11pt;""><br>" & rng & _
"<br><br></body>" & _
"Best Reagrds" & _
         .HTMLBody & "</font>"
    .Text

Answer 1

在您的代碼中嘗試一下（未經測試）

dim sen as variant


.HTMLBody = "<HTML><body><font face=""calibri"" style=""font-size:11pt;""><br>"

for each sen in rng.sentences
    .htmlbody = .htmlbody & sen & "<br>"     ' may have to be sen.text
next sen

....

使用VBA從Microsoft Word選擇到Outlook新電子郵件

問題描述

1 個解決方案

解決方案1
0 2017-07-30 18:56:58

使用VBA從Microsoft Word選擇到Outlook新電子郵件

問題描述

1 個解決方案

解決方案1 0 2017-07-30 18:56:58

解決方案1
0 2017-07-30 18:56:58