link aanmaken in access om een specifiek e-mail bericht te openen in outlook

[Friend]

Beste forummers,

Een vraag, weet niet of dit mogelijk is, maar is het te verwezenlijken om via een opdrachtknop in access een e-mail bericht in outlook te openen of om een specifiek e-mail bericht te kiezen?

Friend

 

[OctaFish]

Moet mogelijk zijn. Daarbij moet je dan de gewenste postbus uitlezen en op basis van de inhoud de mail openen. Wil je kunnen bladeren, dan kan dat ook nog wel want je kunt ook een Dialog openen.

 

[Friend]

Michel,

Hartelijk dank voor je reactie:thumb:

Kan je mij ook zeggen hoe ik mijn Postbus kan uitlezen? Want daar loop ik al vast

Friend

 

[OctaFish]

Die heb ik (hoop ik althans) nog wel, maar dank zij een reorganisatie op het werk kan ik daar nu niet bij. Dat wordt pas maandag. Vrees ik.

 

[Friend]

Michel,

Wij wachten rustig af

Sterkte met de reorganisatie en fijn weekend

Friend

 

[OctaFish]

Je hebt denk ik mazzel, want het bestand dat ik nodig heb vond ik nog in mijn Verzonden Items. Ik ben de code nu aan het bekijken.

 

[Friend]

Michel,

Is het jou nog gelukt om wat verder naar de code te kijken ??

Friend

 

[OctaFish]

Lees bericht #6 er nog eens op na Het uiteindelijke bestand schijn ik toch ergens kwijt te zijn geraakt bij het opschonen van mijn profiel; ik kan 'm in ieder geval niet meer terugvinden. Maar een deel van de code heb ik nog wel.

 

[Friend]

Michel,

Bericht #6 had mij juist een rustig weekend gegeven:

Je hebt denk ik mazzel, want het bestand dat ik nodig heb vond ik nog in mijn Verzonden Items. Ik ben de code nu aan het bekijken.

met name :

mazzel

:d:d en toen :

Ik ben de code nu aan het bekijken

:d:d

Maar we blijven in de rust, volledig afhankelijk van jou

Friend

 

[OctaFish]

Hier het belangrijkste stuk van de code; er zitten wat doublures in nu (Late Binding, Early Binding etc) zodat je wat verschillende opties kunt bekijken. In het laatste stuk worden de mails ingelezen in een matrix en wordt die matrix uitgelezen. Dat had ik dan weer nodig om alle losse velden in een Excel blad te krijgen.

Function MailInlezen()
' Variabelen declareren
Dim FileName As String, FileImport As String, tmpFileImport As String, Pad As String, tmpFile As String
Dim i As Integer, iCount As Integer, iTus As Integer, iToe As Integer
Dim arr As Variant

' Outlook Variabelen declareren Early Binding
Dim olApp As Outlook.Application
Dim olNs As Outlook.Namespace
Dim Folder As Outlook.Folder
Dim Item As Outlook.MailItem
Dim Atmt As Outlook.Attachment
Dim cnt As String
' Outlook Variabelen declareren Late Binding
''Dim olApp As Object
''Dim olNs As Object
''Dim Folder As Object
''Dim Item As Object
''Dim Atmt As Object

On Error GoTo SaveAttachmentsToFolder_err
    '-------------------------------------------------------------------------------------------
    'Pad voor bestanden:  C:\Test\Jaartal. Map wordt aangemaakt als hij niet bestaat.
    '-------------------------------------------------------------------------------------------
    Pad = "C:\Test\" & Format(Date, "yyyy") & "\"

On Error GoTo DirMaken
ChangeFolder:
    ChDir (Pad)

    Set DestWB = Workbooks(WerkBoek)
    Set Overzicht = DestWB.Sheets(WerkBlad)
    
    '-------------------------------------------------------------------------------------------
    'Met Early binding een Outlook sessie openen.
    '-------------------------------------------------------------------------------------------
    Set olApp = New Outlook.Application
    
    '-------------------------------------------------------------------------------------------
    'Met Late binding een Outlook sessie openen.
    '-------------------------------------------------------------------------------------------
    ''On Error Resume Next
    ''Set olApp = GetObject(, "Outlook.Application")
    ''If Err.Number = 429 Then
    ''    Set olApp = CreateObject("Outlook.Application")
    ''End If

    On Error GoTo 0
    '-------------------------------------------------------------------------------------------
    ' De variabele Folder instellen op de standaard postbus
    '-------------------------------------------------------------------------------------------
    Set olNs = olApp.GetNamespace("MAPI")
    Set Folder = olNs.GetDefaultFolder(6)                       ' Met Late Binding
    Set Folder = NS.GetDefaultFolder(olFolderInbox)             ' Met Early Binding
    ' Of typ een naam voor het selecteren van een vaste folder...
    Set Folder = olNs.GetDefaultFolder(olFolderInbox).Folders("Sollicitaties")
    ' Gebruik onderstaande routine om een folder te selecteren...
    Set Folder = olNs.PickFolder
    Set Folder = Application.GetNamespace("MAPI").PickFolder

    '-------------------------------------------------------------------------------------------
    ' Controleer de Folder op mails en sluit af als er niets gevonden wordt.
    '-------------------------------------------------------------------------------------------
    i = 0
    If Folder.items.Count = 0 Then
        MsgBox "Er zijn geen sollicitaties in de folder " _
            & Folder.Name & " gevonden.", vbInformation, "Niets gevonden"
        Exit Function
    End If
    
    '-----------------------------------------------------------------------------------------
    ' Mail uitlezen en in een Array zetten.
    '-----------------------------------------------------------------------------------------
    iCount = Folder.items.Count
    i = iCount - 1
    For Each Item In Folder.items
        iTus = 0: iToe = 0
        cont = Split(Item.Body, vbCrLf)
        cnt = Item.Body
        arr = cont
        
        myArray = Overzicht.UsedRange
        
        With Overzicht
            .Activate
            LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
        End With

        Cells(LastRow, 1).Select

End Function

Daar kun je denk ik wel mee stoeien .

 

[Friend]

Michel,

Hartelijk dank :thumb:

We gaan inderdaad er maar eens mee stoeien, kijken hoe ver we komen.

Thanks

Friend