Outlook Kontakt erstellen

[Micha]

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.