Ureader.com  
Microsoft software help and Community
   home   |   control panel login   |   archive   |  
 
Exchange
2000.active.directory
2000.admin
2000.announcements
2000.app.conversion
2000.applications
2000.clients
2000.clustering
2000.connectivity
2000.development
2000.documentation
2000.general
2000.information.store
2000.interop
2000.kms
2000.misc
2000.protocols
2000.realtime.collabo.
2000.setup
2000.transport
2000.win2000
admin
application.conversion
applications
clients
clustering
connectivity
design
development
misc
mobility
setup
tools
  
 
date: 19 Dec 2005 03:02:11 -0800,    group: microsoft.public.exchange2000.development        back       


CDOEx - IPerson: Fax address doesn't show in adressbook   
hello...

i've a problem that drives me crazy. i wrote a program that creates a
contact in a public folder. all works great except that the fax-number
of the contact doesn't show in the outlook address book. after saving
the created contact in outlook, the fax number shows. i know, that
outlook adds some magic hidden fields but i don't find them. i compared
the fields in the server explorer before and after saving: the content
length after saving increases by 340 bytes and the following fields
have different values: DAV:getetag, DAV:id and
http://schemas.microsoft.com/repl/resourcetag. this is how i set the
values (the code is delphi):

item := CreateOLEObject('CDO.Person');

item.FileAs := Adresse.Name1;
item.LastName := Adresse.Name1;
item.FirstName := Adresse.Name2;
item.WorkStreet := Adresse.Strasse;
item.WorkCountry := Adresse.Land;
item.WorkPostalCode := Adresse.PLZ;
item.WorkCity := Adresse.Ort;
item.WorkPostOfficeBox := Adresse.Provinz;
item.WorkPhone := Adresse.Telefon;
item.WorkFax := Adresse.Fax;
item.MobilePhone := Adresse.MobilTelefon;
item.Email := Adresse.Email1;

item.Fields.Item['objectClass'].Value := 'contact';
item.Fields.Item['http://schemas.microsoft.com/exchange/outlookmessageclass']
:= 'IPM.Contact';
item.Fields.Item['urn:schemas:mailheader:subject'] := Adresse.Name1;
item.Fields.Item['urn:schemas:contacts:fileasid'] := 1;
item.Fields.Item['urn:schemas:contacts:middlename'] := '';
item.Fields.Item['urn:schemas:contacts:namesuffix'] := '';
item.Fields.Item['urn:schemas:contacts:personaltitle'] := '';

int := 0;
Item.Fields.Item['http://schemas.microsoft.com/mapi/emailaddresslist']
:= VarArrayOf([int, int, int]);
item.Fields.Item['http://schemas.microsoft.com/mapi/emaillisttype'] :=
9;
item.Fields.Update;

item.DataSource.SaveTo(FolderURL + '/' + Adresse.ID + '.eml',
AdoConnection, 3);

any idea, what is missing in my code.
date: 19 Dec 2005 03:02:11 -0800   author:   volkmar rigo

Google
 
Web ureader.com


    COPYRIGHT 2007, YARDI TECHNOLOGY LIMITED, ALL RIGHT RESERVE  |   contact us