將多個範圍的值添加到電子郵件正文

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

將多個範圍的值添加到電子郵件正文

回答

相關問題