Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Drag&Drop einer Email von Outlook ins Prog (https://www.delphipraxis.net/26419-drag-drop-einer-email-von-outlook-ins-prog.html)

mscharf 23. Jul 2004 13:54


Drag&Drop einer Email von Outlook ins Prog
 
Hallo,

wenn ich eine Email aus Outlook im mein Programm ziehe bekomme ich nur den Text der Zeile im Outlook-Grid. Z.B:

"Von Betreff Erhalten Größe
Powell - ObjectSight re: combo-box Mo 15.03.2004 20:07 6 KB"

Wie komme ich damit an die Email (ohne ID oder so)? :gruebel:

Sehr aufwendig wäre es alle Ordner in Outlook zu durchsuchen.
Ist es evtl. möglich den selektierten Eintrag herauszufinden?
Wie z.B.:
outlookfolder := outlookNS.GetSelectedFolder;
outlookMsg := outlookfolder.Items.Selected;

Oder gibt es eine OLE-Funktion, welche mir aus dem String einen Pointer auf die Mail macht?


Ich habe nirgends eine Liste von Outlook-OLE-Funktionen gefunden. Wo gibt es denn so etwas?

Gruß
mscharf :-D

richard_boderich 23. Jul 2004 19:33

Re: Drag&Drop einer Email von Outlook ins Prog
 
mario bist du das??? hier ist Kay

moritz 23. Jul 2004 19:36

Re: Drag&Drop einer Email von Outlook ins Prog
 
Zitat:

Zitat von richard_boderich
mario bist du das??? hier ist Kay

:gruebel:

mscharf 26. Jul 2004 09:45

Re: Drag&Drop einer Email von Outlook ins Prog
 
... diese Antworten helfen mir leider wenig :(

mscharf 26. Jul 2004 14:56

Re: Drag&Drop einer Email von Outlook ins Prog
 
Ups, ich habe nicht gescheit gesucht. :oops:

Das Thema gab es hier schon einmal.
Titel: Aktuell markierte Mail in Outlook bestimmen

Das ist die Lösung des Problems:

Code:
try
    OutApp.Connect;
    //Get Namespace
    oNS := OutApp.GetNamespace('MAPI');
    //Logon to NameSpace
    oNS.Logon('','',false,false);
    myItems:=OutApp.ActiveExplorer;
    fold:=myItems.Selection;
    mItem:=fold.Item[1];
  except
    OutApp.Disconnect;
    ShowMessage('Fehler beim Verbinden mit Outlook !');
    exit;
  end;
:dancer2:


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:00 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz