25. august 2006 - 09:13Der er
13 kommentarer og 1 løsning
Smide records ind fra Outlook i Access
Jeg har lavet et arkiverings system af e-mails i Outlook og nuvil jeg gerne have muligheden for at registrerer arkiverede mails i Access således brugeren kan søge efter mail i db.
Man kan i Access vælge at sammenkæde eller importere mails fra outlook, man sal i filer/Hent eksterne data i access, her kan man så vælge Outlook på rullelisten.
Desværre ved jeg ikke lige hvordan man kontakter Access fra outlook, men der som det første være sat en reff. i VBA.
Vælger du dette vises en objektliste fra din outlook, du kan så vælge at smmenkæde, eller importere feks. ene eller flere postmapper.
Do you want to insert some records into an Access database? If so then you should be able to use either DAO or ADO to make a connection to your Access dB. I've never tried it from Outlook myslef, but I dont see why it should be a problem
fynbo>> jeg kan desværre ikke bruge noget standard Journal... Jeg sidder og udvikler på et system til arkivering. af bla. e-mails alle typer dokumenter m.m.
Terry, yeah that sound like some of the things i intend to, if thinking of using ADO. But need to call a form inside Outlook, that shows my Access Form?? So that i can assosiate the mail /customer/record with one click. (Have it working with 2 clicks)
Hvis det er vba du programmerer i, skal du have acces med i dit libery. Det er et stykke tid siden jeg har lavet noget i vba, men så vidt jeg husker er det "microsoft active x data objects 2.8 Libery" og "microsoft active x data objects recordset 2.8 Libery"
jeg tror sgu jeg løste lidt selv ser lige her On Error Resume Next Dim appAccess As Object 'Grab the database if open Set appAccess = GetObject("O:\info\db.mdb", "Access.Application") If Err.Number <> 0 Then 'The database was not open so open it Set appAccess = CreateObject("Access.Application") Err.Clear End If 'This is the macro in your database that should open the form appAccess.DoCmd.openform ("frmDomain"), , , , , , "test" 'Make Access visible If Err.Number <> 0 Then MsgBox "There was an error" Set appAccess = Nothing Else appAccess.Visible = True SetFocusAPI appAccess.Application.hWndAccessApp
End If
Nu skal jeg "bare" have en retur værdi til Outlook så kører det sgu
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.