Ich habe den folgenden Code im Einsatz. Die wird als Regel implementiert und als Regel auf ein Wunschordner angewandt. Er extrahiert z. B. auf ein Ordner die ungelesen Nachrichten.

Aber nun kommt das Problem. Anzahl der ungelesen = Anzahl der Mails die gesendet werden. Wie kann ich das Problem lösen?

Danke im Voraus

Public Sub Anhaenge_extrahieren(itm As Outlook.MailItem)      
Dim objAtt As Outlook.Attachment                                       
Dim saveFolder As String        
Dim saveFolder2 As String                                         
saveFolder = "Pfad"               
saveFolder2 = ""                   


If itm.Attachments.Count = 2 Then                                  
For Each objAtt In itm.Attachments                                
        
                                                                   
        If InStr(objAtt.DisplayName, ".pdf") Or _
        InStr(objAtt.DisplayName, ".PDF") Then
        objAtt.SaveAsFile saveFolder & objAtt.FileName                 
        
                                                                      
        ElseIf InStr(objAtt.DisplayName, ".xml") Or _
        InStr(objAtt.DisplayName, ".XML") Then
        objAtt.SaveAsFile saveFolder2 & objAtt.FileName               
        
        itm.UnRead = False                                             
        
        ElseIf itm.Attachments.Count = 0 Then itm.UnRead = True        
        itm.Save                                                       
        End If                                                      

Next                                                            
End If                                                             

Dim objOutlook As Object                                       
Dim objMail As Object                                                
Set objOutlook = CreateObject("Outlook.Application")             
Set objMail = objOutlook.CreateItem(0)                             
With objMail
    .To = "Mail-Adresse"                       
    .Subject = "Automatische Benachrichtigung"                   
    .Body = "Mit Erhalt dieser Mail, wurde die Extrahierung erfolgreich f?r den jetztigen Monat durchgef?hrt!" 
    .Send                                                             
End With

End Sub