Viele haben in ihren E-Mail am Ende Signaturen stehen.
Ich hätte gerne, dass man diese markieren kann, auf eine Form ziehen kann und dann automatisch ein Outlook-Kontakt-Fenster geöffnet wird und die Daten in die entsprechenden Feleder geschrieben werden.
Das Herausfiltern der einzelnen Daten (Postleitzahl, Ort etc.) dürfte vorerst kein Problem darstellen.
Woran ich scheitere, ist der Aufruf des Outlook-Fenster.
Ich habe mir den Code aus dem Thread
http://www.delphipraxis.net/internal...utlook+kontakt teilweise übernommen, aber es klappt nicht.
Delphi-Quellcode:
var
Form1: TForm1;
MyNameSpace : Namespace;
vContact, vMail, vAppoint : Variant;
procedure TForm1.Button1Click(Sender: TObject);
begin
OutlookApplication1.Connect;
MyNameSpace := OutlookApplication1.GetNamespace('
MAPI');
MyNameSpace.Logon('
','
',True,True);
ContactItem1.ConnectTo(ContactItem(OutlookApplication1.CreateItem(olContactItem)));
ContactItem1.FirstName := '
Harry';
ContactItem1.LastName := '
Hirsch';
ContactItem1.Display(vContact);
end;
Kann mir jemand sagen, was ich falsch mache? Ich arbeite mit Outlook 2003
Vielen Dank im Voraus.