Office: (Office 365) Schaltfläche versenden

Hallo

Ich habe kaum Erfahrungen mit VBA und hoffe ihr könnt mir weiterhelfen.

Folgendes habe ich aus dem Internet zusammengestellt. Es funktioniert auch soweit, aber ich möchte bei This is line 1, This is line 2, This is line 3, This is line 4
folgendes aus der Tabelle1 wie folgt darstellen

"Zelle B4"
"Zelle B5"
"Zelle B6"
"Zelle B7"

"Zelle A10" "Zelle E10"
"Zelle A11" "Zelle E11"
"Zelle A12" "Zelle E12"
"Zelle A13" "Zelle E13"




Private Sub CommandButton1_Click()
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)

xMailBody = "Hallo" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & vbNewLine & _
"This is line 2 " & vbNewLine & vbNewLine & _
"This is line 3 " & vbNewLine & vbNewLine & _
"This is line 4 " & vbNewLine & vbNewLine & _
"Freundliche Grüsse" & vbNewLine & vbNewLine
On Error Resume Next
With xOutMail
.To = "test@test.ch"
.CC = ""
.BCC = ""
.Subject = "Bestellung Druckpatrone Beratungsraum"
.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub

 

Hallo,

ich nehme an, du möchtest anstelle des bisherigen Textes die Inhalte deiner angeführten Zellen im E-Mail-Body ausgeben:

Private Sub CommandButton1_Click()
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String

Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)

With Worksheets("Tabelle1")
xMailBody = "Hallo" & vbNewLine & vbNewLine & _
.[B4] & vbNewLine & .[B5] & vbNewLine & _
.[B6] & vbNewLine & .[B7] & vbNewLine & vbNewLine & _
.[A10] & .[E10] & vbNewLine & .[A11] & .[E11] & vbNewLine & _
.[A12] & .[E12] & vbNewLine & .[A13] & .[E13] & vbNewLine & _
"Freundliche Grüsse" & vbNewLine & vbNewLine
End With

On Error Resume Next
With xOutMail
.To = "test@test.ch"
.CC = ""
.BCC = ""
.Subject = "Bestellung Druckpatrone Beratungsraum"
.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0

Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub

 

perfekt, vielen Dank. Das hat so geklappt wie ich möchte.