ich hab hier ein Makro auf Basis von Autor/en: http://www.online-vba.de - Marc Wershoven. Dieses habe ich für einen Kollegen angepasst und es schaut nun wie folgt aus:
Sub MWAufgabe2Outlook()
Dim oOutlookApp As Object
Dim oAufgabe As Object
Dim TerminReihe As Integer
Dim ThemaReihe As Integer
Dim InhaltReihe As Integer
Dim WerReihe As Integer
'Simon, hier kannst du das Makro vom Ausgangspunkt des ausgewählten Feldes verschieben (Bsp. _
ausgewähltes Feld A1 & ThemaReihe = 1 --> d.h. das Thema der Aufgabe befindet sich in A2)
ThemaReihe = 1
InhaltReihe = 2
WerReihe = 9
TerminReihe = 5
'Verbindung/Referenz zu Outlook
Set oOutlookApp = CreateObject("Outlook.Application")
'Termin erzeugen
Set oAufgabe = oOutlookApp.CreateItem(3)
'Termin Einstellungen vornehmen
With oAufgabe
'Starttermin (hier bspw.: Heute in 14 Tagen um 10 Uhr)
.StartDate = Format(ActiveCell.Offset(0, TerminReihe), "dd.mm.yyyy") & " 10:00"
'Betreff, Titel
.Subject = ActiveCell.Offset(0, ThemaReihe)
'Aufgabe zuweisen
.Assign
.Recipients.Add ActiveCell.Offset(0, WerReihe)
'Inhalt
.body = ActiveCell.Offset(0, InhaltReihe)
'Erinnerung setzen
.ReminderTime = Format(ActiveCell.Offset(0, TerminReihe), "dd.mm.yyyy") & " 10:00"
.ReminderSet = True
'Speichern
.Save
'Anzeigen
.Display
End With
Set oAufgabe = Nothing
Set oOutlookApp = Nothing
End Sub
Nun würde ich gern, dass ich die beiden Haken in der Outlook Aufgabe "Aktualisierte Kopie dieser Aufgabe in meiner Aufgabenliste speichern" sowie "Statusbericht an mich senden, sobald die Aufgabe erledigt ist" gleich bei Erstellen der Aufgabe aus Excel heraus weg sind (d.h. Haken nicht gesetzt).Hat jemand hier eine Idee, um welche .Funktion ich "oAufgabe" erweitern muss?
Vielen lieben Dank
Clara