Tilføj en mail adresse til min Outlook express.

det her eksempel er prøvet på d5 og d6...mon ikke den virker på d7 også

uses
ComObj, Outlook8

procedure NewContactItem;
var
  OutlApp: OutlookApplication;
  OutlNamespace: Namespace;
  ContactFolder: MAPIFolder;
  Contact: ContactItem;
begin
  OutlApp := CoOutlookApplication.Create;
  OutlNamespace := OutlApp.GetNameSpace('MAPI');
  ContactFolder := OutlNamespace.GetDefaultFolder(olFolderContacts);
  Contact := OutlApp.createitem(olContactItem) as ContactItem;
  Contact.LastName  := 'xxx';
  Contact.FirstName := 'xxxx';
  Contact.HomeAddressStreet := 'xxxxxx';
  Contact.HomeAddressCountry := 'xxxxxxx';
  Contact.HomeAddressPostalCode := 'xxxxxx';
  Contact.HomeAddressCity := 'xxxxxx';
  Contact.HomeTelephoneNumber := '+xx(0)xxxxxxx';
  Contact.HomeFaxNumber := '+xx(0)xxxxxx';
  Contact.Email1Address := 'xxx@xxx.com';
  Contact.Save;
  OutlApp := nil;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  NewContactItem;
end;

Det er ikke en ny kontakt person, men en blokeringen af en mail adresse jeg skal bruge

stone: Bliver lige nødt til at spørge om OutlApp og Contact, i dit eksempel, bliver frigivet efter brug. Jeg tror det ikke, men det kan være at scope gør det for dig - mener dog at objekter bliver oprettet på heap'en (offentligt adresseområde) uanset scope.

Desuden er det ikke sikkert at clscableguy har adgang til en D7 ent - men det har han nok...

procedure NewContactItem;
var
  OutlApp: OutlookApplication;
  OutlNamespace: Namespace;
  ContactFolder: MAPIFolder;
  Contact: ContactItem;
begin
  OutlApp := CoOutlookApplication.Create;
  OutlNamespace := OutlApp.GetNameSpace('MAPI');
  ContactFolder := OutlNamespace.GetDefaultFolder(olFolderContacts);
  Contact := OutlApp.createitem(olContactItem) as ContactItem;
  try
    Contact.LastName  := 'xxx';
    Contact.FirstName := 'xxxx';
    Contact.HomeAddressStreet := 'xxxxxx';
    Contact.HomeAddressCountry := 'xxxxxxx';
    Contact.HomeAddressPostalCode := 'xxxxxx';
    Contact.HomeAddressCity := 'xxxxxx';
    Contact.HomeTelephoneNumber := '+xx(0)xxxxxxx';
    Contact.HomeFaxNumber := '+xx(0)xxxxxx';
    Contact.Email1Address := 'xxx@xxx.com';
    Contact.Save;
  finally
    Contact.Free;
    OutlApp.Free;
  end;
end;

hrc >> er det ikke til at tilføje en person på min kontakt liste???

Undskyld - glemte dig i skyndingen med at få rettet eventuelle hukommelseslækager. Det er samme rutine som den stone lagde på, men med frigivelse af komponenterne ved exit.

jo... hrc du har ret i frigivelsen af hukommelse

men som clscableguy siger han skal bruge kode til "tiløj email til blokerede"

det har jeg ikke et bud på. så du afviser bare mit svar....

//stone

lukker