Mail aus Excel Problem mit Body und Rang
13.02.2008 12:56:28
Jochen
Bei folgendem Code bekomm ich eine Fehlermeldung mit Arry muß 0 sein in Bezug auf den
("A1:B45") Rang
Sub Verkaufsmail()
Dim ObjOutlook As Object
Dim objMail As Object
Set ObjOutlook = CreateObject("Outlook.Application")
Set objMail = ObjOutlook.CreateItem(0)
With objMail
.to = "meine@adresse.de"
.Subject = "Ihr/e gekaufter/n Artikel bei Ebay"
.Body = Range("A1:B45")
.send
End With
End Sub
Vielen Dank für eure Hilfe