Office: Betreff aus Outlook auslesen

s_p_0_0_k_y · 14. August 2007

Hi,
habe da noch ein Problem.

Ich habe in einem Postfach (Outlook) mit bestimmten e-Mails die einem Betreff haben der immer gleich aufgebaut ist.
Jetzt würde ich gerne den Betreff aller Mails in diesem Ordner irgendwie nach Excel bekommen (Variable, etc), damit ich sie dort weiter verarbeiten kann.

Gibts dazu schon was ???

Was muss ich tun?

Mfg
Alex

:)

jinx · 16. August 2007

Moin, Alex,

das folgende Beispiel arbeitet mit Early Binding, daher muss in der VBE unter Extras / Verweis ein Verweis auf die Outlook Objekt-Bibliothek gesetzt werden, Der Code sollte dann ggf, noch etwas angepasst werden:

Code:

'©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©'
'# Dieses Beispiel stammt aus: #'
'# Das Excel-VBA-Codebook #'
'# Autoren: Bert Körn und Monika Weber #'
'# ISBN: 3-8273-1979-X #'
'# #'
'# Alle Rechte Vorbehalten #'
'# #'
'# Anfragen unter: #'
'# Bert@bert-koern.de oder Monika@jumper.ch #'
'# #'
'©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©'

Option Explicit

Sub OutlookPosteingang()
Dim OLF As Outlook.MAPIFolder
Dim AnzEintraege As Integer, i As Integer, Email As Integer
' Workbooks.Add
Sheets.Add
On Error Resume Next
' Überschriften
[A1].Value = "Betreff"
[B1].Value = "Datum Uhrzeit"
[C1].Value = "empfangen von"
[D1].Value = "gelesen"
[E1].Value = "Dateianhänge"
Rows(1).Font.Bold = True

Set OLF = GetObject("", "Outlook.Application") _
.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
AnzEintraege = OLF.Items.Count
i = 0: Email = 0
While i < AnzEintraege
i = i + 1
Application.StatusBar = "Lese Posteingang " & _
Format(i / AnzEintraege, "0%")
With OLF.Items(i)
' If .Subject = "Re: KW36" Then
Email = Email + 1
Cells(Email + 1, 1).Value = .Subject
Cells(Email + 1, 2).Value = .ReceivedTime
Cells(Email + 1, 3).Value = .SenderName
Cells(Email + 1, 4).Value = Not .UnRead
Cells(Email + 1, 5).Value = .Attachments.Count
' End If
End With
Wend
Set OLF = Nothing
Columns("A:E").AutoFit
[A2].Select
ActiveWorkbook.Saved = True
Application.StatusBar = False
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

User · 9. November 2009

Moin jinx,

ich grüsse dich ganz herzlich. Ich habe mal wieder eine Frage bzw. zwei Fragen.

Obiger Code funktioniert bei mir einwandfrei, um Emailtexte auszulesen und bestimmte Inhalte zu filtern. Was mir noch nicht gefällt sind zwei Punkte zu denen du mir vielleicht ein paar Tipps geben kannst.

1. Solbald Outlook mit dem Set Befehl angesteuert wird, aktiviert sich das Outlook Fenster und die Meldung kommt, ob man den Zugriff auf Outlook (z.B. für eine Minute) gestattet. Wie kann ich meine Excelinstanz / -fenster nach der Beantwortung wieder aktivieren, um den Fortschritt des Makros weiter zu verfolgen (Statusbar Anzeige + Endmeldung via Msgbox)?

2. Mit dem Set Befehl wird via "GetDefaultFolder(olFolderInbox)" der persönliche Posteingang ja angesteuert. Kann ich meinem Benutzer hier eine dynamische Auswahl geben (es liegen weitere Postfächer vor)? Alternativ würde es mir helfen die Ordner auszulesen, um dann den einen richtigen zu bestimmen und hart einzutragen im Set Befehl.

EarlFred · 9. November 2009

Hallo Woody,

lange nichts gelesen von Dir!

Auch wenn ich nicht jinx bin, versuche ich mal mein Glück:

Mit folgender Zeile bekommt der User einen Dialog zum Auswählen des Ordners:

Code:

Set OLF = GetObject("", "Outlook.Application") _
.GetNamespace("MAPI").PickFolder
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Zu Deiner ersten Frage muss ich im Moment auch passen.

Grüße
EarlFred

jinx · 10. November 2009

Moin Woody,

entweder OL von Hand in die Symbolleiste schicken oder aber API und AppActivate versuchen...

User · 10. November 2009

DANKE Euch beiden!

Beides läuft wunderbar.

Mit dem Pickfolder habe ich nun eine schöne Ordnerauswahl und mit AppActivate "Microsoft Excel" hole ich mir Excel wieder in den Vordergrund.

Super.

Schönen Gruss & bis denn mal wieder ...

Woody

Ginsky · 10. November 2009

Hi Leute!

Ich wollte das auch probieren, krieg aber bereits in der ersten DIM-Zeile den Fehler Benutzerdefinierter Typ nicht definiert

Was muss ich an der Stelle machen?
Danke für die Hilfe! *Smilie

EDIT:
Ach mann... tschuldiung... lesen wäre hilfreich. Der Verweis hat gefehlt... sry *Smilie

Office: Betreff aus Outlook auslesen

Betreff aus Outlook auslesen

Betreff aus Outlook auslesen

Betreff aus Outlook auslesen

Betreff aus Outlook auslesen - Similar Threads - Betreff Outlook auslesen

Datum auslesen und im Betreff eintragen

Die Kopfzeilen "Betreff" und "Empfänger" werden in einigen Sprachversionen von Outlook für ...

Regel erstellen - Mails automatisch verschieben, die ein Wort NICHT im Betreff haben

Outlook eMail Betreff automatisieren?

Outlock Termineinladung Lesebereich Betreff Größe ändern

Betreff-Zeile bei Outlook

Probleme mit Emails von Kalaydo mit dem Betreff "Ihre Anzeige ist abgelaufen"