Entwickler-Ecke

Sonstiges (Delphi) - auf aktive Mail zugreifen


schaumermal - Fr 09.11.07 09:47
Titel: auf aktive Mail zugreifen
Hi,

ich möchte gerne die markierte Mail in der Ansicht Posteingang in Outlook an meine Anwendung übertragen.
Das Add-In für Outlook habe ich bereits (Danke MKinzler) und müsste nun die Mail auslesen.
Kann mir jemand sagen wie ich auf die markierte/ aktive Mail in Outlook zugreifen kann?

Danke und Gruß

Kai


killavirus - Di 20.11.07 10:12
Hallo,

ich habe es leider bis jetzt noch nicht geschafft über das Plug-In auf die E-Mails zu zugreifen aber über "CreateOLEObject" geht es so:

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
 
//initialize Outlook
outlook := CreateOLEObject('Outlook.Application');

//Selection object consisting of one or more items selected in the current view
If outlook.ActiveExplorer.Selection.count > 0 then begin
   // Zugriff auf das erste MailItem ...
   ShowMessage(outlook.ActiveExplorer.Selection.item(1).SenderName);
end;


Eine bereits geöffnete E-Mail kannst du so ansprechen:

Delphi-Quelltext 
1:
 
outlook.ActiveInspector.CurrentItem.SenderName;


Wenn du das auslesen über das Plug-In schaffst dann bitte poste hier den Code ;)

Gruß Killa_Virus


schaumermal - Di 20.11.07 22:42
Hi,

ja ich habe es über das "Add In" geschafft auf die aktive Mail zuzugreifen.
Ich sende mal einen Codeauszug aus meinem Add In. In diesem Auszug sind verschiedene Funktionen zur Ermittlung von Detailinformationen der eMail's enthalten.

Viel Spaß


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
 
function TOutlookAddIn.eMailAdresseExtrahieren:String;
var App : OleVariant;
begin
     try
        App:=CreateOleObject('Outlook.Application');
        Result:=App.ActiveExplorer.Selection.Item(1).SenderEmailAddress;

        if Pos('@',Result)=0 then
           Result:=App.ActiveExplorer.Selection.Item(1).SenderName;

     finally
         App := unassigned;
     end;
end;

function TOutlookAddIn.eMailEmpfaengerExtrahieren:String;
var App : OleVariant;
begin
     try
        App:=CreateOleObject('Outlook.Application');

        Result:=App.ActiveExplorer.Selection.Item(1).To;
     finally
         App := unassigned;
     end;
end;

function TOutlookAddIn.eMailBetreffExtrahieren:String;
var App : OleVariant;
begin
     try
        App:=CreateOleObject('Outlook.Application');

        Result:=App.ActiveExplorer.Selection.Item(1).Subject;
     finally
         App := unassigned;
     end;
end;

function TOutlookAddIn.eMailBodyExtrahieren:Variant;
var App : OleVariant;
begin
     try
        App:=CreateOleObject('Outlook.Application');

        Result:=App.ActiveExplorer.Selection.Item(1).Body;
     finally
         App := unassigned;
     end;
end;

function TOutlookAddIn.eMailAnhaengeErmitteln:Integer;
var App : OleVariant;
begin
     try
        App:=CreateOleObject('Outlook.Application');

        Result:=App.ActiveExplorer.Selection.Item(1).Attachments.Count;

     finally
         App := unassigned;
     end;
end;


Moderiert von user profile iconjasocul: Delphi-Tags hinzugefügt


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!