Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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, 3574 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 ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(4)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...

Outlook & Mail
Outlook 2010 findet ost datei nicht (18)

Frage von Floh21 zum Thema Outlook & Mail ...

Netzwerkmanagement
gelöst Anregungen, kleiner Betrieb, IT-Umgebung (17)

Frage von Unwichtig zum Thema Netzwerkmanagement ...