Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Outlook Betreffzeile auslesen

Forumthread: Outlook Betreffzeile auslesen

Outlook Betreffzeile auslesen
22.07.2019 13:39:54
Michael
Hallo an alle,
ich bin neu hier und habe gleich einen archivierten Beitrag gefunden der mein Problem lösen könnte ...
https://www.herber.de/forum/archiv/1264to1268/1267817_Outlook_Betreffzeile_auslesen.html#1267824
Ich möchte jedoch noch gern eine Abfrage bezüglich des Inhalts in der Betreffzeile haben. Ist das möglich?!
Ich hoffe es kann jemand helfen ;-)
LG Michael
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Outlook Betreffzeile auslesen
22.07.2019 13:43:44
Michael
;-)
AW: Outlook Betreffzeile auslesen
25.07.2019 12:53:23
Michael
Hi,
hat keiner eine Antwort auf meinen Beitrag ....
LG Michael
AW: Outlook Betreffzeile auslesen
25.07.2019 12:55:36
Michael
Sorry, hatte den Haken bei noch "Offene Fragen" vergessen ...
Anzeige
AW: Outlook Betreffzeile auslesen
25.07.2019 13:09:58
peterk
Hallo
Dieses Beispiel leist doch die Betreffzeile (=Subject) aus. Wo liegt das Problem?
AW: Outlook Betreffzeile auslesen
25.07.2019 14:01:30
Michael
Ich würde gern in der Betreffzeile nach einem bestimmten Begriff suchen und ausgeben ...
AW: Outlook Betreffzeile auslesen
25.07.2019 14:16:47
peterk
Hallo
z.B. Suchtext = "ISA", es werden alle Betreffs mit diesm Suchtext in das Blatt "Auswertung" geschrieben
Sub ReadOutlookMail()

    Const olFolderInbox = 6

    Dim olApp As Object
    Dim MAPISpace As Object
    Dim MailItem As Object

    Dim suchString As String
    Dim ze As Long

    Set olApp = CreateObject("Outlook.Application")
    Set MAPISpace = olApp.GetNamespace("MAPI")
    Set olFolder = MAPISpace.GetDefaultFolder(olFolderInbox)


    suchString = "ISA"  ' anpassen 
    
    ze = 2
    For Each MailItem In olFolder.Items
        If InStr(1, MailItem.Subject, suchString, vbTextCompare) > 0 Then
            Worksheets("Auswertung").Cells(ze, 1) = MailItem.Subject
            ze = ze + 1
        End If
    Next MailItem

    Set olApp = Nothing
    Set MAPISpace = Nothing
    Set olFolder = Nothing

End Sub

Anzeige
AW: Outlook Betreffzeile auslesen
26.07.2019 13:05:13
Michael
Hallo,
das sieht doch schon sehr gut aus ;-)
Lässt sich der Suchbegriff auch per Eingabebox abfragen ...
LG Michael
AW: Outlook Betreffzeile auslesen
27.07.2019 22:38:13
EtoPHG
Hallo,
suchString = InputBox("Bitte Suchbegriff eingeben!")

Gruess Hansueli
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige