|
Hallo zusammen,
ich check es einfach nicht.
Mein schönes Programm fragt nach dem Öffnen einer ungelesenen Mail in einem bestimmten Posteingang (SAPHR), in welchen Ordner diese Mail verschoben werden soll. Macht auch alles schon brav, aber wenn ich dem zu verschiebenden Mail wieder die Eigenschaft ungelesen verpasse (case 2 oder 3), dann durchläuft er wieder das Programm und dass soll er nicht.
Gruß Matthias
Public WithEvents Items As Outlook.Items
Private Sub Application_Startup()
Set Items = Application.GetNamespace("MAPI").Folders.Item("SAPHR").Folders.Item("Posteingang").Items
End Sub
Private Sub Items_ItemChange(ByVal Item As Object)
Dim Mail As Outlook.MailItem
Dim Zielordner As Outlook.MAPIFolder
Dim Msg, Style, Title, Help, Ctxt, Response, MyString, Antwort
If TypeOf Item Is Outlook.MailItem Then
Set Mail = Item
If Mail.UnRead = False Then
Antwort = InputBox( _
"1 @Kollege (gelesen) verschieben" & Chr(10) & _
"2 @Kollege (ungelesen) verschieben" & Chr(10) & _
"3 @ich selsbt (ungelesen) verschieben", "Nächste Aktion")
Select Case Antwort
Case 1
Set Zielordner = Application.GetNamespace("MAPI").Folders.Item("SAPHR").Folders.Item("Posteingang").Folders.Item("@Kollege")
Mail.Move Zielordner
Case 2
Set Zielordner = Application.GetNamespace("MAPI").Folders.Item("SAPHR").Folders.Item("Posteingang").Folders.Item("@Kollege")
Mail.UnRead = True
Mail.Save
Mail.Move Zielordner
Case 3
Set Zielordner = Application.GetNamespace("MAPI").Folders.Item("SAPHR").Folders.Item("Posteingang").Folders.Item("@ich")
Mail.UnRead = True
Mail.Save
Mail.Move Zielordner
End Select
End If 'unread
End If 'type of
'End If 'myfolder
End Sub
|