I have written a program that creates my contacts folder.

[Sharlene England]

In my outlook I can view all of my contacts and they are correct.

The folder is 'checked' to show as outlook address book.

When I go into my address book I can only see the contacts that I have
edited OR that have a fax number in their address.

In my looking around the web I found something that said that the contact
must have a fax number or an email address to be shown, but my problem is
that the ones that have only an email address do not show, BUT if I open one
of those contacts and then close it again without making any changes it does
show up in my address book.

There must be another field besides email1address and email1displayname that
I need to be saving in my program.

Can anyone assist with this problem.

Sharlene England
Network Administrator
Westwood Companies
Vernon, BC
Canada

 

[Sharlene England]

Note: this program was not written with VBA.

 

[Dmitry Streblechenko \(MVP\)]

How do you create the contacts? Note that besides setting the named
properties corresponding to the display name and e-mail, you must also set a
named property with the email entry id -
({00062004-0000-0000-C000-000000000046}, 0x8085, PT_BINARY) for
Email1EntryID.

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

 

[Sharlene England]

How do you create the contacts? Note that besides setting the named
properties corresponding to the display name and e-mail, you must also set a
named property with the email entry id -
({00062004-0000-0000-C000-000000000046}, 0x8085, PT_BINARY) for
Email1EntryID.

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

I am using a dBase program with the following lines of code, inside a loop

myItem = thisfolder.Items.Add()
myItem.FullName = trim(thisc.fields["proj_pers"].value)+"
"+trim(thisc.fields["lastname"].value)
myItem.FirstName = trim(thisc.fields["proj_pers"].value)
myItem.LastName = trim(thisc.fields["lastname"].value)
myItem.CompanyName = trim(thisb.fields["proj_name"].value)
myItem.MailingAddress = trim(thisb.fields["proj_div"].value)
myItem.MailingAddressCity = trim(thisb.fields["proj_loc"].value)
myItem.JobTitle = trim(thisc.fields["proj_ppos"].value)
myItem.Email1Address = thisc.fields["email"].value
myItem.Email1DisplayName = trim(thisc.fields["proj_pers"].value)+"
"+trim(thisc.fields["lastname"].value)
myItem.User1 = thisb.fields["custcode"].value
myItem.save()

Please, how to SAVE the Email1EntryID, or can I just give it a unique
number?

Thanks.

 

[Ken Slovak - [MVP - Outlook]]

If you're using the Outlook object model you don't need to worry about an
Email1EntryID but you do need to set the type of email address. That's the
Email1AddressType property and generally it would be set to "SMTP" or "EX".

How do you create the contacts? Note that besides setting the named
properties corresponding to the display name and e-mail, you must also

set

a
named property with the email entry id -
({00062004-0000-0000-C000-000000000046}, 0x8085, PT_BINARY) for
Email1EntryID.

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

I am using a dBase program with the following lines of code, inside a loop

myItem = thisfolder.Items.Add()
myItem.FullName = trim(thisc.fields["proj_pers"].value)+"
"+trim(thisc.fields["lastname"].value)
myItem.FirstName = trim(thisc.fields["proj_pers"].value)
myItem.LastName = trim(thisc.fields["lastname"].value)
myItem.CompanyName = trim(thisb.fields["proj_name"].value)
myItem.MailingAddress = trim(thisb.fields["proj_div"].value)
myItem.MailingAddressCity = trim(thisb.fields["proj_loc"].value)
myItem.JobTitle = trim(thisc.fields["proj_ppos"].value)
myItem.Email1Address = thisc.fields["email"].value
myItem.Email1DisplayName = trim(thisc.fields["proj_pers"].value)+"
"+trim(thisc.fields["lastname"].value)
myItem.User1 = thisb.fields["custcode"].value
myItem.save()

Please, how to SAVE the Email1EntryID, or can I just give it a unique
number?

Thanks.

 

[Sharlene England]

Thank you, thank you, thank you KEN.

That resolved my problem.