Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Verborgene Informationen aus einem E-Mail-Header vor einem E-Mail-Body bei Weiterleitung automatisch reinschreiben - Outlook 2010

Frage Microsoft Outlook & Mail

Mitglied: plainswalker

plainswalker (Level 1) - Jetzt verbinden

14.07.2014 um 14:34 Uhr, 3637 Aufrufe, 3 Kommentare, 1 Danke

Hallo zusammen!

Folgende Konstellation:

Ich habe X Weiterleitungsadressen und eine Empfängeradresse.
Wenn eine E-Mail an eine der Weiterleitungsadressen geschickt wird und automatisch an meine Empfängeradresse geleitet wird, kann ich nicht mehr erkennen an welche
Weiterleitungsadresse die E-Mail versandt wurde.
Mir ist klar, dass ich bei einer im neuen Fenster geöffneten E-Mail, mit einem Klick auf den Pfeil im Bereich "Kategorien" diese Information erhalte.
Das ist allerdings nicht der Vorgang, wie ich ihn anstrebe.

Ziel ist es, die Information "To: weiterleitungsadresse@e-mail.de" aus dem Header bei jeder automatischen Weiterleitung mit einer Trennlinie noch vor dem E-Mail-Body ins Textfeld zu schreiben.

Hat jemand eine Idee wie das zu lösen ist, bzw. ob das überhaupt möglich ist?

Gruß

plainswalker
Mitglied: colinardo
LÖSUNG 14.07.2014, aktualisiert 15.07.2014
Hallo plainswalker,
Hat jemand eine Idee wie das zu lösen ist, bzw. ob das überhaupt möglich ist?
Outlook hat dafür die Posteingangs-Regeln über die du die Mails ausfiltern und unterschiedlichen Ordnern zuweisen kannst.
Hier gibt es die Bedingung mit bestimmten Wörtern in der Nachrichtenkopfzeile, mit der du das gewünschte erreichen kannst.
Ansonsten ginge dies in Outlook alternativ auch mit einem Makro das so aussehen könnte:
(In Outlook ALT-F11 drücken und den Code in ThisOutlookSession oder DieseOutlookSitzung* einfügen, dann müssen deine verwendeten Weiterleitungsadressen ab Zeile 9 eingefügt werden.) Der Code fügt nur bei Vorkommen einer dieser Mail-Adressen in der To: Zeile des Headers diese Info in der Betreffzeile hinzu. Ich habe hier die Betreffzeile gewählt, da bei manchen IMAP-Konten in Outlook in diesem frühen Stadium der Zugriff auf den Mailbody noch nicht gewährleistet ist und es so zu Fehlern kommen könnte.
01.
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String) 
02.
    On Error Resume Next 
03.
    Dim objItem As Object, objProperty As UserProperty, arrEntryIDs As Variant, i As Integer, arrName As Variant, strHeader As String, regex As Object, dicMails As Object 
04.
     
05.
    Set regex = CreateObject("vbscript.regexp") 
06.
    Set dic = CreateObject("Scripting.Dictionary") 
07.
     
08.
    'Adressen angeben 
09.
    dic.Add "mail1@domain.de", "" 
10.
    dic.Add "mail2@domain.de", "" 
11.
    dic.Add "mail3@domain.de", "" 
12.
    ' usw 
13.
     
14.
    'Regex Objekt auf Header vorbereiten 
15.
    regex.MultiLine = True 
16.
    regex.Ignorecase = True 
17.
    regex.pattern = "^To:.*?([A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,6})" 
18.
     
19.
    'Für jede eingehende Mail ... 
20.
    arrEntryIDs = Split(EntryIDCollection, ",") 
21.
    For i = 0 To UBound(arrEntryIDs) 
22.
        Set objItem = Application.Session.GetItemFromID(arrEntryIDs(i)) 
23.
        If objItem.Class = olMail Then 
24.
            ' Header der Mail holen 
25.
            strHeader = objItem.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x007D001E") 
26.
            ' Mit Regex entsprechende Zeile extrahieren 
27.
            Set matches = regex.Execute(strHeader) 
28.
            If matches.Count > 0 Then 
29.
                ' Wenn die TO-Adresse zu einer der Adressen im Dictinary passt füge die Info im Subject hinzu 
30.
                If dic.Exists(matches(0).Submatches(0)) Then 
31.
                    objItem.Subject = objItem.Subject & " ### " & matches(0) & " ###" 
32.
                    objItem.Save 
33.
                End If 
34.
            End If 
35.
        End If 
36.
    Next 
37.
    Set regex = Nothing 
38.
    Set dic = Nothing 
39.
End Sub
Grüße Uwe
Bitte warten ..
Mitglied: plainswalker
15.07.2014 um 10:26 Uhr
Hallo, Uwe!

Die VB-Lösung ist exakt das, was ich gebraucht habe!

Danke für die Idee un die Mühe!

Gruß

Alex
Bitte warten ..
Mitglied: colinardo
15.07.2014 um 14:57 Uhr
dann bitte als gelöst markieren nicht vergessen

Grüße Uwe
Bitte warten ..
Ähnliche Inhalte
Exchange Server
Outlook 2010 E-Mails lassen sich nicht mehr verschieben (1)

Frage von alpardac zum Thema Exchange Server ...

Exchange Server
gelöst Microsoft Exchange Weiterleitung mit anderer primären E-Mail Adresse (14)

Frage von Rene12345 zum Thema Exchange Server ...

Outlook & Mail
Outlook E-Mail mit Webinhalt (6)

Frage von scanix85 zum Thema Outlook & Mail ...

E-Mail
Automatische E-Mails verzögert versenden (12)

Frage von typischAndy zum Thema E-Mail ...

Neue Wissensbeiträge
Windows Update

Novemberpatches und Nadeldrucker bereiten Kopfschmerzen

(14)

Tipp von MettGurke zum Thema Windows Update ...

Windows 10

Abhilfe für Abstürze von CDPUsersvc auf Win10 1607 und 2016 1607

(7)

Tipp von DerWoWusste zum Thema Windows 10 ...

RedHat, CentOS, Fedora

Fedora 27 ist verfügbar

Information von Frank zum Thema RedHat, CentOS, Fedora ...

Heiß diskutierte Inhalte
Server
Bilder aus dem Web mit CSV runterladen (30)

Frage von Yannosch zum Thema Server ...

Windows Update
WSUS 4 (Server 2012 R2) - Windows 10 Updates nicht möglich (12)

Frage von c0d3.r3d zum Thema Windows Update ...

Server-Hardware
Bestehendes Raid erweitern um 4 gleiche Platten! (Verständnis Fragen) (12)

Frage von Hendrik2586 zum Thema Server-Hardware ...