Aufgabe an Outlook wenn Datum gleich heute
26.11.2008 16:00:07
Lucia
Mit dem nachfolgenden Makro möchte ich die jeweiligen, nach Themen definierten Maßnahmen als Outlookaufgaben verteilen. Das klappt ganz gut. Was ich nicht hinbekomme, ist eine If Schleife, die prüft, ob das Datum in Aendd (Datum der letzten Änderung) dem heutigen entspricht. Da es sich um ein fortlaufenden Protokoll handelt, sollen nur an diesem Tag neue oder geänderte Aufgaben versendet werden.
Das Makro ist:
Sub AufgabenAnlegen()
Dim myOlApp As New Outlook.Application
Dim myItem As Outlook.TaskItem
Dim myDelegate As Outlook.Recipient
Dim AnZ As Long
Dim a As Long
Dim wer As String
Dim Aendd As Date
Dim bis As Date
Dim txt As String
Dim betr As String
Dim Them As String
AnZ = Range("H999").End(xlUp).Row
For a = 14 To AnZ
Set myItem = myOlApp.CreateItem(olTaskItem)
myItem.Assign
wer = Cells(a, 8)
Aendd = Cells(a, 3)
bis = Cells(a, 10)
txt = Cells(a, 7)
betr = Cells(a, 5) & " - " & Cells(a, 6)
Them = Cells(a, 4)
Set myDelegate = myItem.Recipients.Add(wer)
myDelegate.Resolve
With myItem
.Subject = betr
.Body = txt
.Categories = Them
.DueDate = bis
.StartDate = Aendd
.Display
End With
Set myItem = Nothing
Next a
End Sub
vielen dank schon mal:-)
Lucia