outlook email & access koppelen?

[cyblix]

Ik krijg ter controle continu email binnen wanneer iemand inlogt op de personeels-site. hierin staat een datum, een tijdstip een naam & ip adres... is het mogelijk deze automatisch in access te laten invoeren???

 

[cyblix]

niemand die het weet?

 

[koossie]

hee,

Ik ben een beetje wezen stoeien met mijn inbox, maar doormiddel van de volgend functie krijg ik alle messages die in mijn inbox staan in een loop.
Vanuit deze loop kan je er allemaal selecties op maken enzo. Ook krjig je doormiddel van objmailitem.body, het bericht zelf te zien.
Je moet maar ffkes kijken of je er wat mee kan...

On Error GoTo Err_des

Dim blnClose As Boolean
Dim objOl As Outlook.Application
Dim objNameSpace As Outlook.NameSpace
Dim objMailItem As Outlook.MailItem
Dim objFolder

Set objOl = GetObject(, "Outlook.application")
Set objNameSpace = objOl.GetNamespace("MAPI")
Set myfolder = objNameSpace.GetDefaultFolder(olFolderInbox)

For Each objMailItem In myfolder.Items
    If objMailItem.Subject = "Blep" Then 'Selectie op subject "Blep"
        Debug.Print objMailItem.Body
    End If
Next objMailItem

err_exit:
    If blnClose = True Then objOl.Quit
    Exit Sub

Err_des:
    If Err = 429 Then
        'Als outlook niet open staat, open het alsnog
        Set objOl = CreateObject("Outlook.application")
        blnClose = True
        Resume Next
    Else
        MsgBox "Er is een fout opgetreden" & Chr(13) & Err & " " & Err.Description
        Resume err_exit
    End If

Ik weet niet of je het echt zou kunnen koppelen ofzo, maar zo zou ik het doen. Ik hoop dat je er wat mee kunt!

groetjes
koos