Ik ben bezig om met CDO vanuit ons intranet gegevens op te halen uit outlook exchange zodat het beheer van telefoonnummers/emailadres geautomatischeerd wordt vanuit outlook en nu krijg ik bijna alle gegevens vanuit outlook maar niet het emailadres dat staat bij een contactpersoon. Wat doe ik fout?
Het sluiten heb ik allemaal weggelaten..
de eerste velden gaan allemaal goed maar het emailveld wil niet lukken
op http://www.cdolive.com/cdo10.htm staan alle codes
en deze staat er ook bij
CdoPropSetID3 & "0x8083" Item.EMail1Address
volgens mij doe ik iets fout met de CDOPropSetID3 maar ik kom er maar niet achter wat...
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| conVolledigeNaam = 805371934
conBedrijf = 974520350
conEmail = "{0820060000000000C000000000000046}0x8083"
Set oSession = OpenSessieAnoniem
If Not oSession Is Nothing Then
Set oPublic = OpenPublicRoot(oSession)
If Not oPublic Is Nothing Then
'On Error Resume Next
Set oRDBO = oPublic.Folders("Contactpersonen Medewerkers")
m=1
If Err = 0 Then
On Error Goto 0
For Each oMessage In oRDBO.Messages
if Veld(oMessage, conVolledigeNaam) = "" then
else
arrTijdelijkeGegevens(m,0)=Veld(oMessage, conVolledigeNaam)
arrTijdelijkeGegevens(m,1)=Veld(oMessage, conBedrijf)
arrTijdelijkeGegevens(m,2)=Veld(oMessage, conEmail
end if |
Het sluiten heb ik allemaal weggelaten..
de eerste velden gaan allemaal goed maar het emailveld wil niet lukken
op http://www.cdolive.com/cdo10.htm staan alle codes
en deze staat er ook bij
CdoPropSetID3 & "0x8083" Item.EMail1Address
volgens mij doe ik iets fout met de CDOPropSetID3 maar ik kom er maar niet achter wat...
business-intelligence.info/freelance