Hi
Sorry bin leider kein VBA kenner drum hoffe ich auf Eure Hilfe:
Ich möchte einen bestimmten Bereich von Excel in den Mailbody einfügen, bekomm aber immer nur ein Feld aus Excel eingefügt.
Möchte zB diesen Bereich später im Mailbody haben: (Cells(1, 1), Cells(5, 9))
Sub test()
Dim Mailtext As String, ol, Mail As Object
Set ol = CreateObject("Outlook.Application")
Set Mail = ol.CreateItem(0)
Mailtext = Sheets("test").Range(Cells(1, 1), Cells(5, 9)).Select
Mail.Display
Mail.Subject = " test " & Now
Mail.To = "xyz@xyzt.de"
Mail.cc = ""
Mail.bcc = ""
Mail.body = Mailtext
End Sub
Danke für die Hilfe! |