macro voor het exporteren en importeren

[John van Herk]

wie kan een macro schrijven voor het exporteren van alle contactpersonen van user1 en een macro voor het importeren van dezelfde contactpersonen bij user2?

 

[Floor E]

:shocked:
Jij
Volgens mij is het niet de bedoeling om hier kant en klare oplossingen te vragen...
Definieer je vraag fatsoenlijk en vermeld meteen even met welke access versie je werkt.

Het kan eenvoudig maar je moet wel met veel meer info komen en aangeven waar je vast loopt.

Ik heb hier erg veel ervaring mee dus hou je niet in..

 

[Rommyke]

Yes indeed ,

Wij zijn er om te helpen , en om Samen en oplossing te zoeken.
Maar uiteindelijk komt het meeste toch langs uwe kant .

Groet
Romain

 

[John van Herk]

Snel, sneller, snelst

dachten jullie dat ik er al helemaal niets aan gedaan had. helaas mis. ik heb al van alles geprobeerd en ben nu bezig met de codes van Helen Feddema.
Toch bedankt voor jullie positieve bijdrage aan het oplossen van de vraag.

 

[Floor E]

Welke Access versie werk je?

 

[John van Herk]

2000 (9.0.3821 SR-1). mag ik vragen waarom je dat wil weten? zo ja, waarom wil je dat weten?

 

[Floor E]

Ik wil je wel helpen hoor :
De manier van aanmaken verschilt tussen de oude en nieuwe (2007) versie.

Volgende vraag, naar welk formaat wil je exporteren?

En vanuit welk formaat ga je importeren?

Ik heb erg veel verschillende import -en export macro's gemaakt vooral voor txt en csv bestanden. Er zitten af en toe wat verborgen opties tussen.

 

[John van Herk]

laat ik het zo schrijven:

Helen Feddema (HF) heeft een module geschreven voor een export van Access naar Outlook op basis van een Engelse versie van Outlook.De veldnamen komen dus niet overeen met de Nederlandse benamingen. Die moeten dus eerst aangepast worden. So far so good. De module wordt toegepast op een statische db. Ik wil die graag toepassen op een dynamische db. Tabel Outlook Contactpersonen dus koppelen aan Access (tabellen koppelen). De module van HF voert vervolgens in Access een handeling uit die de contacts van de Accessdb toevoegd in een te kiezen map in Outlook. Ik zou graag de stap in Access overslaan en middels een macro(knop) in Outlook de import uitvoeren.

 

[John van Herk]

Ik ben nog even bezig geweest, maar het is toch te omslachtig.
Misschien kunnen we iets doen met de CopyFolder module in Outlook:

Sub CopyFolder()
Dim myOlApp As New Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myInboxFolder As Outlook.MAPIFolder
Dim myContactsFolder As Outlook.MAPIFolder
Dim myNewFolder As Outlook.MAPIFolder
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myInboxFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myContactsFolder = myNameSpace.GetDefaultFolder(olFolderContacts)
Set myNewFolder = myContactsFolder.CopyTo(myInboxFolder)
End Sub

Maar dan niet naar een nieuwe map maar naar een bestaande map, waarin erst alle contactpersonen worden verwijderd en dan de nieuwe worden ingekopieerd??

Wat denk je?