Hallo zusammen
Ich möchte gerne per Knopfdruck eine Mail versenden eines bestimmten Range in einer Tabelle im Excel.
Allerdings habe ich noch Probleme diesen Range in meine Mail zu bekommen. Habe es hiermit probiert. Aber es funktioniert nicht. Hat jemand einen Tipp für mich? Könnte ich meinen Range nicht irgendwie in den body schreiben?
Set ClpObj = New DataObject
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
'Excelbereich der versendet werden soll.
'Wenn kein Bereich versendet werden soll sondern
'der Bereich bereits kopiert wurde, können sie die
'nächsten beiden Zeilen auskommentieren
'Das wäre der Range den ich in die Mail einfügen will
Worksheets("IT").Range ("A2:B11")
'Bereich wird in die Zwischenablage kopiert
Selection.Copy
With Nachricht
.Subject = "Neuer Mitarbeiter, bitte User anlegen"
'Zwischenablage wird eingefügt
ClpObj.GetFromClipboard
.Body = ClpObj.GetText(1)
'Zwischenablage wird eingefügt
'ClpObj.GetFromClipboard
.To = Worksheets("Mail Adressen").Range("B22")
'Hier wird die Mail angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
'.Send
End With
Set OutApp = Nothing
Set Nachricht = Nothing
Gruss
Marco
|