Setting Email1Address and Email2Address fails

[Matthew Bailey]

Hi,

When I attempt to write more than 1 email address to an outlook
contact and then I save the object, the address I have written into
Email2Address is lost and replaced with the address in Email1Address.

CallByName MyObject, "Email1Address", VbLet, "(e-mail address removed)"
CallByName MyObject, "Email1AddressType", VbLet, "SMTP"
CallByName MyObject, "Email2Address", VbLet, "(e-mail address removed)"
CallByName MyObject, "Email2AddressType", VbLet, "SMTP"
MyObject.Save

I have stepped through the code below, and added a Watch on Myobject,
and I see the Email2Address field changes when I do the Myobject.save

I have tried saving the object after each stage, but I still don't
seem to be able to save a different email address in Email1Address and
Email2Address.

I am using Outlook 2000 sp3. I'm sure on other versions I have not
seen this problem.

Any ideas?

Matthew

 

[BruceJ]

Matthew,

I am not very strong with VBA or Outlook, and this might not be the "right
way" (maybe it won't work even...) but what if you build up a string of the
diferent addresses seperated with a "; " (semicolon space) and then stuff
those into the Email1Address? It should at least work!

HTH
Bruce