Gemme mappe på lokal hd outlook

Har eksperimenteret med en løsning, der måske kan anvendes. Følgende kode ligger i et Word-dokument. Når koden aktiveres skabes der forbindelse til Outlook's Sendt Mail. Alle meddelelser gemmes på en lokal harddisk som .msg-filer.

Der er bemærkninger nederst - YesClick - forhindrer at Outlook kommer med en meddelelse, om at et prograM O.S.V. - Kan installeres og det virker.
Men prøv om dette kan anvendes og så kan bemærkningerne effektueres.

Rem Reference til Microsoft OutLook 11.0 Object Library skal sættes
Rem ===============================================================
Sub startprogram()
Dim oL As Outlook.Application
Dim nSp As Outlook.namespace
Dim fOld As Outlook.mapifolder
Dim antalEmner, emne

    Set oL = CreateObject("outlook.application")
    Set nps = oL.GetNamespace("mapi")
    Set fOld = nps.GetDefaultFolder(olFolderSentMail)
    With fOld
        antalEmner = .Items.Count
        For f = 1 To antalEmner
            emne = .Items(f).Subject
            .Items(f).SaveAs "d:\eksperten\gemmappeoutlook\sendt_" + CStr(f) + ".msg"
        Next f
    End With
End Sub
Rem hvis subject - så filtrer illegale tegn fra
Rem evt. markering af overførte mails - ellers slettes
Rem ClickYes kan installeres