Outlook Konatkteintrag öffnen

[Mattin]

Hallo thklingler,

dies kannst Du mit den Serverkomponenten in Delphi veranstalten.

Benötigt werden : 1xButton, 1xRadiogroup, OutlookApplication1, MailItem1, ContactItem1, AppointmentItem1

Hier ein paar Beispiele:

Delphi-Quellcode:

// erst ein paar Variablen

var
  MyNameSpace : Namespace;
  vContact, vMail, vAppoint : Variant;
begin

   OutlookApplication1.Connect;
  MyNameSpace := OutlookApplication1.GetNamespace('MAPI');
  MyNameSpace.Logon('','',True,True);

  // Eine neuen Mail erstellen und anzeigen
  if RadioGroup1.ItemIndex = 0 then
  begin
   MailItem1.ConnectTo(MailItem(OutlookApplication1.CreateItem(olMailItem)));
   MailItem1.Recipients.Add('[e-mail]');
   MailItem1.Subject := 'Test zum testen des Testes';
   MailItem1.Display(vMail);
  end;

  // Einen neuen Kontakt erstellen und anzeigen
  if RadioGroup1.ItemIndex = 1 then
  begin
   ContactItem1.ConnectTo(ContactItem(OutlookApplication1.CreateItem(olContactItem)));
   ContactItem1.FirstName := 'Harry';
   ContactItem1.LastName  := 'Hirsch';
   ContactItem1.Display(vContact);
  end;

  // Einen neuen Termin erstellen und anzeigen
  if RadioGroup1.ItemIndex = 2 then
  begin
   AppointmentItem1.ConnectTo(AppointmentItem(OutlookApplication1.CreateItem(olAppointmentItem)));
   AppointmentItem1.Subject := 'Testtermin zum testen des Testes';
   AppointmentItem1.Display(vAppoint);
  end;
end;