Este es el codigo para exportar de outlook a access,que he implementado en un formulario, y al pulsar un boton deberia exportarmelo:
Tengo un problemilla con el rst,me dice que no conoce la tabla contactos,al hacer OPENRECORD SET, la verdad es que no se muy bien que tabla debo poner ahi, tengo:
C:\MITABLA es mi fichero access donde quiero exportar los contactos de la carpeta personal y solo tiene la cabecera de los campos que tengo que exportar
Y tengo mi formulario que de momento no hace nada simplemente la funcionalidad del boton exportar que al darlo me tendria que exportar contactos
¿Que tabla es la que me pide en openrecordset?
Sub exportar_click()
Dim rst
Dim dbe
Dim wks
Dim dbs
Dim nms
Dim fld
Dim itms
Dim itm ‘contrenido de outlook
Set nms = Application.GetNameSpace("MAPI")
Set fld = nms.Folders("Carpetas personales").Folders("Contactos")
Set dbe = Item.Application.CreateObject("DAO.DBEngine.36")
strDBName = "C:\MITABLA.mdb"
Set wks = dbe.Workspaces(0)
Set dbs = wks.OpenDatabase(strDBName) 'Abre la tabla contactos
/**AQUI ESTA EL PROBLEMA*/Set rst = dbs.OpenRecordset("contactos")
Set itms = fld.Items