excel - 将字符串从 Excel 单元格粘贴到 Outlook 邮件时保留回车符

Question

我想将单个单元格粘贴到 Outlook 中并保留回车符。我无法使用 RangeToHTML 因为它粘贴为表格，并且我需要它是纯文本，所以我尝试了以下方法:

For Each C In wsEnv.Range("A1:A17")
    If C.Row = 1 Then
        wsEnv.Cells(19, 1) = C & vbCrLf
    ElseIf C.Row < 17 Then
        wsEnv.Cells(19, 1) = wsEnv.Cells(19, 1) & C & vbCrLf
    Else
        wsEnv.Cells(19, 1) = wsEnv.Cells(19, 1) & C
    End If
Next C

On Error Resume Next

With OutMail
    .Display
    .To = Para
    .CC = CC
    .BCC = ""
    .Subject = Asunto
    .HTMLBody = wsEnv.Cells(19, 1)
    .Send
End With
On Error GoTo 0

结果是这样的:

是否有任何方法可以保留单元格的格式或使用 RangeToHTML 函数粘贴为文本而不是表格？

Answer 1

您正在使用 HTML 邮件 .HTMLBody和回车符在 HTML 代码中不起作用。其实.HTMLBody正在等待 HTML 代码而不是纯文本。

• 使用“纯文本”邮件:

  设置MailItem.BodyFormat property至olFormatPlain (参见 OlBodyFormat enumeration )并使用 .Body而不是.HTMLBody

  .BodyFormat = olFormatPlain
  .Body = wsEnv.Cells(19, 1).Value
  

• 或replace所有vbCrLf带有换行符的 HTML 代码 <br> 。

  .HTMLBody = Replace$(wsEnv.Cells(19, 1).Value, vbCrLf, "<br>")
  

请注意，您使用 Alt+Enter 在单元格中输入的换行符为 vbLf不是vbCrLf !