Outlook-Task .body aus Exeltabelle befüllen
28.09.2017 12:10:38
Hans
ich stehe vor einem Problem und weiß leider nicht weiter.
Ich möchte über VBA einen Task erstellen. Dies habe ich noch hinbekommen
Nun möchte ich aus einer Excel-Tabelle den Bereich A:11 bis F:40 in die Aufgabe hinein kopieren, wobei die Struktur (die Tabellenform) beibehalten werden soll. Ich habe gelesen, dass .body nur das RTF-Format akzeptiert und durch eigene kleine Versuche festgestellt, dass dies wohl leider auch stimmt :(
Im Internet habe ich gelesen, dass man das irgendwie mit einen Umweg über den Word-Editor machen kann. Hier haben mich dann meine bescheidenen VBA-Kenntnisse aber nicht mehr weiter gebracht.
Kann mir jemand erklären/zeigen, wie man in den .body eines Tasks die Range A:11 bis F:40 übergeben kann?
Anbei mein Code für die Task-Erstellung
Function OutlookTask_erstellen()
Dim OutlookApp As Object
Dim Aufgabe As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set Aufgabe = OutlookApp.CreateItem(3)
With Aufgabe
.StartDate = Now
.Subject = "test"
.Body = "test"
.Display
End With
End Function
Anzeige