Hjælp til at trække mail oplysninger i Outlook ud - få dem listet i evt fille eller regneark

Det kan godt lade sig gøre via lidt programmering i VBA.

og så velkommen til Eksperten..

Tak 😊

Men kan du komme det nærmer. Forstår ikke hvad du mener 
?

Selv tak - jeg skal nok vende tilbage..

Har du evt. forsøgt denne: http://www.howto-outlook.com/howto/exportcontacts.htm

Hvor er de pågældende mails placeret - i Indbakke eller en mappe herunder?
Har fundet en VBA-kode der kan trække mail-adressen ud.

Hej Jakobdo :)

tror det er lige nøjafgtigt det jeg har brug for - kan godt klippe kolonnerne over i et regneark...

MEN:
jeg kan ikke finde det felt så jeg får vis mail-adresse -altså f.eks. jacob@mail.dk - den skriver bare navnet - og jeg har brug for den specifikke mail adresse

ved du hvilket felt der er som jeg skal vælge ?

hej Supertekst :)

den er placeret i en mappe under Indbakken...

hej Supertekst :)

den er placeret i en mappe under Indbakken...

Ok - hvad er navnet?

Afsluttede mails - diverse

Hvis du sender en mail - så returnerer jeg Excel-filen med VBA koden. @-adresse under min profil.

Er din Excel indstillet til at anvende makroer?

Mail sendt. Ved ikke om Excel er indstillet til makro :)

Hej
Der findes en funktion i Word der kan eksportere data. Kan du bruge den?

1) Filer --> Åbn og eksporter --> Import / eksport
2) Vælg Eksporter til en fil --> næste
3) Vælg kommasepareret fil --> næste
4) Udpeg mappen --> Næste
5) Hvis du klikker på <Map Custom Fieds> kan du vælge kun at tage adresserne med. Så får du en csv-fil du kan importere i Excel.
(Jeg sidder ved en UK-pc og kan ikke huske hvad Map Custom Fields hedder på dansk. Men det er knappen i toppen (den eneste).)

Håber det hjælper lidt videre.

med venlig hilsen

Birthe Lauridsen
Praktisk IT

Const mappenavn = "Afsluttede mails - diverse"    'MAPPENAVN"  '<---------------- indsæt navn på mappen under indbakke!!!
Const startRæk = 1
Dim ræk As Long, antalMails As Long, mappen
Public Sub HentMails()
    sletPtIndhold
   
    antalMails = åbnOutlookMappe(mappenavn)
   
    ræk = startRæk
    traverserMappen antalMails

    Columns.AutoFit
    MsgBox "Gennemløb afsluttet - antalmails: " & antalMails
End Sub
Private Sub sletPtIndhold()
    Range("A" & CStr(startRæk) & ":D65000").Select
    Selection.ClearContents
    Range("A" & CStr(startRæk)).Select
End Sub
Private Function åbnOutlookMappe(mappenavn)
Dim mailApp, nameSpace, aFold As MAPIFolder

    Set mailApp = CreateObject("Outlook.Application")
    Set nameSpace = mailApp.GetNamespace("MAPI")
    Set aFold = nameSpace.GetDefaultFolder(olFolderInbox)
   
    If mappenavn <> "" Then
        Set mappen = aFold.Folders(mappenavn)
    Else
        Set mappen = aFold
    End If
    åbnOutlookMappe = mappen.Items.Count
End Function
Private Sub traverserMappen(antalMails)
Dim afsender As String, modtaget As Date, besvaret As Date, besvarType As String, m As Long
Dim mx As MailItem, handlinger As Outlook.Actions
On Error GoTo fejl

    If antalMails > 0 Then
        Application.ScreenUpdating = False
   
        For m = 1 To antalMails
            Set mx = mappen.Items(m)
           
            afsender = mx.SenderEmailAddress
'            modtaget = mx.ReceivedTime
           
            ActiveSheet.Range("A" & CStr(ræk)) = afsender
            ræk = ræk + 1
        Next m
       
        Application.ScreenUpdating = True
    End If
    Exit Sub
   
fejl:
    MsgBox CStr(m) & " " & afsender
    Resume Next
   
End Sub

Undskyld - der skal selvfølgelig stå "der findes en funktion i Outlook.." og ikke Word.

mvh
Birthe Lauridsen