Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1700to1704
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1700to1704
1700to1704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Outlook Betreffzeile auslesen

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 ...
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

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige