Thema Datum  Von Nutzer Rating
Antwort
Rot Eingehende Mails per VBA Script weiterleiten
 28.02.2012 17:05:11 supergrobie
NotSolved

Ansicht des Beitrags:
Von:
supergrobie		 Datum:
28.02.2012 17:05:11		 Views:
1899		 Rating:
     
Antwort:
  Ja
Thema:
Eingehende Mails per VBA Script weiterleiten

Hallo, 

das nachfolgende Script habe ich hier im Forum aufgeschnappt und 
etwas angepasst. Funktioniert soweit auch alles korrekt. 

Nur habe ich das Problem, dass manchmal das Script mit Laufzeitfehler 13 
abstürzt, ich vermute es liegt daran, wenn keine "echten" Emails reinkommen 
sondern Lesebestätigungen. 

Kann mir jemand die benötigte(n) Codezeile(n) reinschreiben, dass das 
Script diese Lesebestätigungen (also z.B. Betreff=Gelesen:) bzw. das Symbol 
mit dem grünen Häkchen in der Mailübersicht ignoriert und nicht weiterleitet? 

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String) 
    
    Dim objMail_In As Outlook.MailItem 
    Dim objMail_Out As Outlook.MailItem 
    Dim aryEntryIDs() As String 
    Dim lngCount As Long 
    
    'jedes neue MailItem durchgehen 
    aryEntryIDs = Split(EntryIDCollection, ",") 
    For lngCount = 0 To UBound(aryEntryIDs) 
    
        Set objMail_In = Application.Session.GetItemFromID(aryEntryIDs(lngCount)) 
        Set objMail_Out = objMail_In.Forward 
        
        With objMail_Out 
            .To = "Email@Adresse.de" 
            .Subject = "weitergeleitet: " & objMail_In.Subject 
            .Send 
        End With 
        
    Next lngCount 
    
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Eingehende Mails per VBA Script weiterleiten
 28.02.2012 17:05:11 supergrobie
NotSolved