Hallo,
ich möchte aus meiner Tabelle Aufgaben an meine Kollegen senden.
Den Code den ich gefunden habe versendet meinen Aufgaben als Mail nicht als Aufgabe.
Was muss ich anpassen?
Dim MyMessage As Object
Dim MyOutApp As Object
'Outlook Object erstellen
Set MyOutApp = CreateObject("Outlook.Application")
'Outlook Nachricht erstellen
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
'Empf�nger
.To = (Mustermann@mail.de)
'Betreff
.subject = ("Betreff")
'Hier wird ein normaler Text erstellt
.Body = ("Text")
'Hier wird die Mail nochmals angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt und gesendet
.Send
End With
'Outlook schliessen
'MyOutApp.Quit
'Variablen leeren
Set MyOutApp = Nothing
Set MyMessage = Nothing
Gruß Hannis