bei Fehlermeldung automatisch auf beenden
27.11.2008 13:59:08
Lucia
ich hab einen schönen code, der macht, dass Aufgaben über Outlook an die Mitarbeiter (nach Kürzel in wer) verteilt werden. Das klappt wunderbar, Outlook öffnet sich, ich kann noch mal drüber schauen und dann versenden. Zum Schluss kommt im Excel dann die Fehlermeldung:
Laufzeitfehler `-2147352567(80020009)
Sie müssen in die Felder "An", "CC" oder BCC mindestens einen Namen oder eine Verteilerliste eingeben.
ich kann nach der Fehlermeldung auf beenden gehen und es funktioniert trotzdem alles so, wie ich das möchte.
Wie kann ich also diese Fehlermeldung ignorieren/ unterdrücken bzw. ins MAkro programmieren, dass er dann immer automatisch auf "beenden" geht?
Der Code 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
Application.DisplayAlerts = False
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
If CLng(Aendd) - CLng(Date) = 0 Then
With myItem
.Subject = betr
.Body = txt
.Categories = Them
.DueDate = bis
.StartDate = Aendd
.Display
End With
End If
Set myItem = Nothing
Next a
End Sub