- This topic has 0 Antworten, 1 Stimme, and was last updated 13:35 um 22. Juli 2007 by simlei.
1 Antwort anzeigen (von insgesamt 1)
1 Antwort anzeigen (von insgesamt 1)
Home-›Foren-›Outlook-›Outlook VBA-›E-Mails aus Ordnern auslesen
Hallo Mailforum,
ich würde gerne Ein Programm schreiben, welches sozusagen die E-Mails aus den einzelnen Ordnern (Inbox + Unterordner, auch selbsterstellte Ordner) ausliest und, nach den Ordnern strukturiert selbst im Speicher halten und weiter verarbeiten kann.
Dazu wäre wichtig: a) Ordnerstruktur auslesen – wie bekomme ich alle Ordner aufgelistet die in einem bestimmten ordner sind (in meinem Code ist der aktuelle Ordner = „Folder“, s.u.)
b) Alle Emails eines Ordners auslesen (betreff, body, from, datum usw)
Ich habe das angefangen in Delphi zu schreiben, aber die Bezeichnungen der Daten dürfte ja in VBA gleich sein… hier ist der Code bisher:
[code]
var
Form1: TForm1;
Outlook: _Application; // OutlookApplication; for D5 users
NmSpace: NameSpace;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
Unknown: IUnknown;
Result: HResult;
Folder: MAPIFolder;
begin
{$IFDEF VER120} // Delphi 4
Outlook := CoApplication_.Create;
{$ELSE} // Delphi 5
Outlook := CoOutlookApplication.Create;
{$ENDIF}
NmSpace := Outlook.GetNamespace(‚MAPI‘);
NmSpace.Logon(“, “, False, False);
Folder := NmSpace.GetDefaultFolder(olFolderInbox);
Folder.Display;
end;
[/code]
wer hilft, dem wird auch geholfen.
+ Umkehrschluss <=>
Abonnieren Sie den 14-tägig erscheinenden Newsletter von Mailhilfe.de kostenlos.
Der ständig aktuelle Tipps zu Thema Email für Sie bereithält!
Wie z.B. Outlook, GMail, Thunderbird oder auch KuNoMail, usw.
Ihre E-Mail Adresse: