Outlook: Gem vedhæftet fil

Mener du at du vil slette mailen men beholde den vedhæftede fil?

Det kan i hvert fald laves med VBA...

Jeg vil beholde mail'en og gemme den vedhæftede fil, fx. på C:\vedhft.

Selvfølgelig kan det laves med VBA, men hvordan?

Prøv med:
----------

Private Sub Application_NewMail()

    Dim myOlApp As Outlook.Application
    Set myOlApp = Application
   
    Dim i As Integer
    Dim myFolder As Outlook.MAPIFolder
   
    Dim myMail As MailItem
   
    Set myFolder = myOlApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
   
    Set myMail = myFolder.Items.GetLast
       
    For i = 1 To myMail.Attachments.Count
    myMail.Attachments.Item(i).SaveAsFile "C:\njah\" & myMail.Attachments.Item(i).FileName
    Next i
   
End Sub

--------------

Husk lige at erstatte mappenavnet... :-)