[vb -macro] MAPI folders

Pagina: 1
Acties:

  • THIJZEL
  • Registratie: Januari 2001
  • Niet online
Hallo,

Op het moment ben ik bezig met een scriptje om contactpersonen in outlook te inporteren uit een access database, ik heb dit scriptje grotendeels geripped van de Microsoft site ( http://support.microsoft.com/?kbid=290658 ).

Ik heb het scriptje al enigsinds aangepast zodat de contactpersonen uit een andere database gehaald worden. Het lukt me helaas niet om ze naar een andere folder als de default contacts folder te exporteren.

Hier zie je wat ik al geprobeerd heb:
VBScript:
1
2
3
4
5
6
7
8
9
10
11
12
13
 ' Set up Outlook Objects.
   Dim ol As New Outlook.Application
   Dim olns As Outlook.NameSpace
   Dim cf As Outlook.MAPIFolder
   Dim c As Outlook.ContactItem
   Dim Prop As Outlook.UserProperty

Set olns = ol.GetNamespace("MAPI")
   Set cf = olns.GetDefaultFolder(olFolderContacts)//geeeft de default contactpersonen map
   'Set cf = olns.GetFolderFromID("Contactpersonen")//wazige errorcode
   'Set cf = olns.GetFolder("Persoonlijke mappen/Contactpersonen/test")//functie 
zit niet in olns
   'Set cf = "Contacts/test"


Ik heb echt al tig sites bezocht over de functies getfolder of getfolderfromid maar het lukt me niet om de daar gebruikte technieken in mijn code e inplementeren(zie voorbeelden), waarschijnlijk omdat ik een VB n00b ben..
hier een aantal sites met voorbeelden:
http://www.outlookcode.com/codedetail.aspx?id=299
http://www.outlookcode.com/d/code/getfolder.htm

Heeft er iemand hier ervaring met mapi objecten en kan die me vertellen wat ik verkeerd doe?

[ Voor 3% gewijzigd door THIJZEL op 17-06-2004 15:43 ]


  • THIJZEL
  • Registratie: Januari 2001
  • Niet online
24h kickje :D

Heb ik mijn prob. wel duidelijk uitgelegd?

  • curry684
  • Registratie: Juni 2000
  • Laatst online: 12-05 22:23

curry684

left part of the evil twins

Volgens mij is de groep mensen met deze kennis gewoon niet zo groot :) Ik heb ook ooit een blauwe maandag naar MAPI en Outlook automation moeten kijken, maar dat was 4 jaar geleden en echt alleen een maandag ;) Wellicht kun je dit beter op een gespecialiseerd VBA- of Outlook-forum proberen...

Professionele website nodig?