2

私は基本的なExcelから電子メールへのコードを持っていますが、電子メールの本文にいくつかの異なるセルを追加できるようにする方法を知りたいです。これには、いくつかの範囲も含める必要があります。これらの範囲は、空白のセルではなく、実際に値を含むセルの値のみを表示する必要があります。

たとえば、たとえば

  • B12データ（改行×2）
  • E15:E20 データ (改行 x 2)
  • 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 に答える