Wrathchild
Technical User
Hi, I'm trying to download personnel from Outlook and it's working fine but I can't seem to get Office Number from the entries. I'm using the code below but I don't know what the number(&H3A19001E-something like that) would be for office number.
Option Compare Database
Option Explicit
Const CdoPR_OFFICE_LOCATION = &H3A19001E
Const CdoPR_TITLE = &H3A17001E
Const CdoPR_DEPARTMENT_NAME = &H3A18001E
Const CdoPR_DISPLAY_NAME = &H3001001E
Const CdoPR_EMAIL_ADDRESS = &H3003001E
Const CdoPR_ORGANIZATIONAL_ID_NUMBER = &H3A10001E
Const CdoPR_OFFICE_NUMBER = ?????????????
....
EmailName = AddrEntry.Fields(CdoPR_EMAIL_ADDRESS).Value
strDisplayName = AddrEntry.Fields(CdoPR_DISPLAY_NAME).Value
strTitle = AddrEntry.Fields(CdoPR_TITLE).Value
etc...
Option Compare Database
Option Explicit
Const CdoPR_OFFICE_LOCATION = &H3A19001E
Const CdoPR_TITLE = &H3A17001E
Const CdoPR_DEPARTMENT_NAME = &H3A18001E
Const CdoPR_DISPLAY_NAME = &H3001001E
Const CdoPR_EMAIL_ADDRESS = &H3003001E
Const CdoPR_ORGANIZATIONAL_ID_NUMBER = &H3A10001E
Const CdoPR_OFFICE_NUMBER = ?????????????
....
EmailName = AddrEntry.Fields(CdoPR_EMAIL_ADDRESS).Value
strDisplayName = AddrEntry.Fields(CdoPR_DISPLAY_NAME).Value
strTitle = AddrEntry.Fields(CdoPR_TITLE).Value
etc...