gem emailadresser på alle mails i en folder Outlook 2007

Uddrag fra større system udviklet i VBA i Excel-fil(2003), der samler adresser.


Rem Åbner en mappe
Private Function testCCmappe()
    Set mailApp = CreateObject("Outlook.Application")
    Set Namespace = mailApp.GetNamespace("MAPI")
    Set aFold = Namespace.GetDefaultFolder(olFolderInbox)
    Set mappen = Folders(MappeNavn)

    testCCmappe = mappen.Items.count  'returnere antal mails
End Function

Private Sub opdatering
    If antalMails > 0 Then
        For m = 1 To antalMails
            With mappen.Items(m)
                afsender = .SenderName
                sendermail = .SenderEmailAddress
                emne = .Subject

                opdater senderemail
            End With
        Next m
    End If
End Sub

Ser ud til det kan bruges, med lidt tilretning.

Smid svar

Fint -et svar..