将多个范围的值添加到电子邮件正文

然而，我有一段基本的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

来源

2012-07-16 user1528644

你想用这些细胞做什么？将它们用于“To，Subject，Body”字段？ – brettdj 2012-07-16 11:31:22

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

作为额外的好处，在构建主体字符串时，不需要担心空白。虽然显然，当你解决你的问题时，你仍然希望它清晰可辨。

至于范围，检查所有相关的细胞，包括像：

If Range.value <> "" then 
    'Do Stuff 
end if

来源

2012-07-18 02:57:10

将多个范围的值添加到电子邮件正文

回答

相关问题