Thema Datum  Von Nutzer Rating
Antwort
15.07.2020 10:31:38 oki
NotSolved
Blau Outlook MessageID auslesen
 15.07.2020 13:04:56 Mase
Solved
15.07.2020 13:06:15 Mase
NotSolved
15.07.2020 13:18:23 oki
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
15.07.2020 13:04:56		 Views:
627		 Rating:
     
Antwort:
 Nein
Thema:
Outlook MessageID auslesen

Hi oki,

 

da auf diese Information offensichtlich nicht direkt über das Objektmodell zugegriffen werden kann hier eine bereits bekannte Methode.

Der Code ist nicht von mir. Aber zweckmässig abgewandelt. Sieh selbst:

Option Explicit

Sub ViewInternetHeader()
    '*** Urprungsquelle: https://www.slipstick.com/developer/code-samples/outlooks-internet-headers/
    '*** geringfügig von Marco abgewandelt
    'CHR(62) = ">"
    Dim olItem As Outlook.MailItem, olMsg As Outlook.MailItem
    Dim olkPA As Outlook.PropertyAccessor
    Dim strheader As String

    For Each olItem In Application.ActiveExplorer.Selection
        strheader = GetInetHeaders(olItem)
        MsgBox getMessageId(strheader)
    Next
    
    Set olMsg = Nothing
End Sub

Function GetInetHeaders(olkMsg As Outlook.MailItem) As String
    ' Purpose: Returns the internet headers of a message.'
    ' Written: 4/28/2009'
    ' Author:  BlueDevilFan'
    ' //techniclee.wordpress.com/
    ' Outlook: 2007'
    Const PR_TRANSPORT_MESSAGE_HEADERS = "http://schemas.microsoft.com/mapi/proptag/0x007D001E"
    Dim olkPA As Outlook.PropertyAccessor
    Set olkPA = olkMsg.PropertyAccessor
    GetInetHeaders = olkPA.GetProperty(PR_TRANSPORT_MESSAGE_HEADERS)
    Set olkPA = Nothing
End Function

Function getMessageId(s As String) As String
    Dim lngStart As Long, lngStop As Long
    lngStart = InStr(1, s, "Message-ID:")
    lngStop = InStr(lngStart, s, Chr(62))
    getMessageId = Mid(s, lngStart, 1 + lngStop - lngStart)
End Function

 

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
15.07.2020 10:31:38 oki
NotSolved
Blau Outlook MessageID auslesen
 15.07.2020 13:04:56 Mase
Solved
15.07.2020 13:06:15 Mase
NotSolved
15.07.2020 13:18:23 oki
NotSolved