2

我有一个基本的 excel 到电子邮件代码但是，我想知道如何制作它，以便它可以在电子邮件正文中添加几个不同的单元格。这也需要包括一些范围。这些范围应该只显示实际包含值的单元格中的值，而不是空白的。

例如，我想举个例子

  • B12 数据（换行符 x 2）
  • E15:E20 数据 (LineBreak x2)
  • F19:F20 数据

我的代码是：

Sub Send_to_Email()
On Error GoTo PROC_EXIT
Dim OL As New Outlook.Application

Dim olMail As Outlook.MailItem
Set olMail = OL.CreateItem(olMailItem)

Dim SrcSheet As Excel.Worksheet
Set SrcSheet = Sheets("Clean (2)")

With olMail
    .To = SrcSheet.Range("A19").Text
    .Subject = SrcSheet.Range("F19").Text
    .Body = SrcSheet.Range("B19").Text
    .Display vbModal
    '.Send
End With

PROC_EXIT:
On Error GoTo 0
Set OL = Nothing
End Sub
4

1 回答 1

0

我建议考虑使用HTMLbody而不是body. 然后，您可以自由添加您<br/>想要的格式或任何其他格式。

作为额外的奖励，您在构建正文字符串时无需担心空格。虽然很明显，当您解决问题时，您仍然希望它清晰易读。

至于范围，请检查所有相关单元格并包括以下内容：

If Range.value <> "" then
    'Do Stuff 
end if
于 2012-07-18T02:57:10.540 回答