outlook vba - Extract AddressEntry object details for Exchange User -


is there way extract details in dialog box via vba?

details dialog box http://i.msdn.microsoft.com/dynimg/ic84336.gif

i need, content in e-mail address tab.

i have go function of reading address-book:

function get_mail(absender string) dim outapp outlook.application dim outti outlook.taskitem dim outrec outlook.recipient    set outapp = new outlook.application   set outti = outapp.createitem(3)   outti.assign    set outrec = outti.recipients.add(absender)   outrec.resolve     if outrec.resolved     on error goto exit_function         get_mail = outrec.addressentry.getexchangeuser.primarysmtpaddress    end if exit_function: exit function   set outapp = nothing   set outti = nothing end function 

as far know can read out primary mail-address mail-addresses-tab; see else there ist delete part ".primarysmtpaddress", mahe dot , should list of other properties.

i quite sure need reference on microsoft outlook 14.0 object library.

the input "absender" can string . if string can resolved address book-entry in outlook-mail, have positive result code above. call function, if example have string "mail_adress_from_adressbook" put:

mail_adress_from_adressbook = get_mail("joe smith") 

i hope helps, max


Comments

Popular posts from this blog

java.util.scanner - How to read and add only numbers to array from a text file -

rewrite - Trouble with Wordpress multiple custom querystrings -