Excel - Mail senden

[Majestic123]

Hallo Leute,

ich bin am verzweifeln. Ich möchte aus einer Exceltabelle Mails versenden und zwar soll
eine ganze Zeile in die neue Mail übernommen werden. Bisher habe ich den u.a. Code,
aber es klappt nicht; es wird nur eine einzelne Zelle übernommen. Habt ihr eine Idee?



Private Sub CommandButton1_Click()

Dim oOL As Object
Dim oOLMsg As Object
Dim oOLRecip As Object
Dim sAddress As String
sAddress = Range("D1").Value
Set oOL = CreateObject("Outlook.Application")
Set oOLMsg = oOL.CreateItem(0)
With oOLMsg
Set oOLRecip = .Recipients.Add("information@proschutz.de")
.Subject = "Dies ist ein Outlook-Test"
.Body = ActiveCell(5, 5).Value
.Importance = 1
.Send
End With
oOLRecip.Resolve
Set oOLRecip = Nothing
Set oOLMsg = Nothing
Set oOL = Nothing

End Sub

 

[Alex F.]

Der Fehler liegt hier

Body = ActiveCell(5, 5).Value

Active Cell ist nur eine Zelle. Versuch es mal mit

ActiveSheet.Range("5:5) dann sollte es funktionieren (untested)

GRüsse bb