将多个范围的值添加到电子邮件正文
问题描述:
然而,我有一段基本的Excel电子邮件代码,我想知道如何使它可以添加几个不同的单元格到电子邮件正文。这需要包括一些范围。这些范围应该只显示实际包含值的单元格中的值,而不是空白值。将多个范围的值添加到电子邮件正文
E.g. 因此希望例如
- B12数据 (换行×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
答
我建议看看使用HTMLbody而不是body
。然后你可以*地添加你的<br/>
或任何其他格式你想要的。
作为额外的好处,在构建主体字符串时,不需要担心空白。虽然显然,当你解决你的问题时,你仍然希望它清晰可辨。
至于范围,检查所有相关的细胞,包括像:
If Range.value <> "" then
'Do Stuff
end if
你想用这些细胞做什么?将它们用于“To,Subject,Body”字段? – brettdj 2012-07-16 11:31:22