[Outlook Macro]Automatisch bijlagen opslaan onder vaste naam

[Chandler479]

Ik heb in Outlook 2003 een macro staan die de bijlagen van mails, in een bepaalde map, bij binnenkomst op slaat in een map op mijn HD. Deze wil ik aanpassen om ook de bestandsnaam aan te geven. Zodat alles dat binnenkomt wordt opgeslagen onder bla.txt bijv.

Dit is de macro:

code:

Option Explicit
Dim WithEvents TargetFolderItems As Items
Const FILE_PATH As String = "C:\dump\"

Private Sub Application_Startup()
    Dim ns As Outlook.NameSpace
    Set ns = Application.GetNamespace("MAPI")
    Set TargetFolderItems = ns.Folders.Item( _
    "Persoonlijke mappen").Folders.Item("macromap").Items
      
End Sub
 
Sub TargetFolderItems_ItemAdd(ByVal Item As Object)
    Dim olAtt As Attachment
    Dim i As Integer
     
    If Item.Attachments.Count > 0 Then
        For i = 1 To Item.Attachments.Count
            Set olAtt = Item.Attachments(i)
            olAtt.SaveAsFile FILE_PATH & olAtt.FileName
            
          
        Next
    End If
     
    Set olAtt = Nothing
     
End Sub

    Dim ns As Outlook.NameSpace
    Set TargetFolderItems = Nothing
    Set ns = Nothing
     
End Sub

Ik heb wat gezocht, maar kon zo gauw niet vinden hoe ik dit voor elkaar krijg. Wat is hier de beste manier voor?

[Verwijderd]

als alles dat binnenkomt onder dezelfde naam wordt opgeslagen, wordt het voorgaande bestand wel overschreven, maar blijkbaar is dat de bedoeling. momenteel zorgt

Visual Basic:

olAtt.SaveAsFile FILE_PATH & olAtt.FileName

ervoor dat bijlagen worden opgeslagen met hun naam die ze in de ontvangen mail hebben. het volstaat dus olAtt.FileName te vervangen door "bla.txt". ik heb niet getest of het noodzakelijk is om na te gaan of het bestand al bestaat (dir(pad\bestand)<>""), en het vervolgens te verwijderen met de kill opdracht.

[Chandler479]

Ik heb zojuist een paar testruns gedaan en het lijkt goed te gaan, morgen nog is op kantoor kijken hoe het daar werkt.

[Chandler479]

En ook op kantoor doet hij het voortreffelijk, dank!