ottscho
Goto Top

Outlook - Email weiterleiten wenn ZIP

Hallo,

ich brauche eine Outlook regel, welche nur Abends/Nachts aktiv ist.
Alle eingehenden Emails, welche im Dateianhang ZIP Archiv habe, sollen an eine bestimmt Adresse weitergleitet werden und danach in einen Unterordner verschoben werden.
In den Standard Outlookeinstellungen kann ich nicht nach der Endung des Anhangs suchen.

Ich habe nun einige Outlook AddOns etc durchforstet, aber nichts passendes gefunden.

Habt ihr eine Idee/Lösung parat?

Theoretisch sollte es auch mit ein bisschen VBA Code realisierbar sein. (office 2003)
Oder direkt über den Server (exchnage 2007)

Danke

Gruß
ottscho

Content-Key: 174297

Url: https://administrator.de/contentid/174297

Ausgedruckt am: 28.03.2024 um 20:03 Uhr

Mitglied: Ravers
Ravers 07.10.2011 um 13:56:32 Uhr
Goto Top
Hi,

also ich kenne nur die Möglichkeit, wenn ein Anhang anbei ist, eine solche Regel einzustellen. Auch mit Uhrzeit. Jedoch am Exchange 2010/Office2010

Ob das auch Dateityp-basiert geht denke ich nicht!

Greetz
ravers
Mitglied: ottscho
ottscho 07.10.2011 um 14:15:17 Uhr
Goto Top
Die kenne ich auch ;)
Ich benötige aber mit Anhang-Endungs-Prüfung.
Mitglied: ShitzOvran
ShitzOvran 07.10.2011 um 15:00:44 Uhr
Goto Top
Private Sub Application_NewMail()

    Dim Foldername As String
    Dim objIn As MAPIFolder
    Dim objNewMail As MailItem
    Dim oAtt As Outlook.Attachment
    Dim objMail_In As Outlook.MailItem
    Dim objMail_Out As Outlook.MailItem
  
    'On Error Resume Next  
    Set objIn = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)  
    For Each objNewMail In objIn.Items
    With objNewMail
                
                If .Attachments.Count > 0 Then
                
                    For Each oAtt In objNewMail.Attachments
        
                        If LCase(Right(oAtt.FileName, 4)) = ".zip" Then  
                        
                        Set objMail_In = objNewMail
                        Set objMail_Out = objMail_In.Forward
                        
                        With objMail_Out
                        .To = "spam@spam.de"  
                        .Subject = "Automatisch weitergeleitet:" & objMail_In.Subject  
                        .Body = "Dies ist eine automatisch erstellte Mail."  
                        .Send
                        End With

                        End If
                        
                    Next

                End If
                
    End With
    Next objNewMail
End Sub

Ungetestet... Die Weiterleitung sollte so aber klappen... das Verschieben beinhaltet es nicht.
Mitglied: ottscho
ottscho 07.10.2011 um 15:36:01 Uhr
Goto Top
Sieht soweit ganz gut aus, danke.
Kann es sein, dass aber alle Emails im Posteingang gecheckt werden? Und nicht nur die neu eingetroffenen?
Ich habe es gerade getestet und mir eine Email geschickt, diese wurde weitergeleitet und ebenso jede andere im Posteingang auch.
Mitglied: ShitzOvran
ShitzOvran 07.10.2011 um 16:02:27 Uhr
Goto Top
ja, das ist so... ändere ich mal
Mitglied: ottscho
ottscho 10.10.2011 um 08:14:54 Uhr
Goto Top
Kann ich das Ganze auch auf einen bestimmten Ordner anwenden?

Beispiel: Ich habe einen Unterordner TEST unter der Inbox liegen. Nun will ich alle Emails welche dort rein kommen automatisch versenden, wenn der Anhang eine ZIP enthält.