[Outlook] Automatisch bijlagen van emails opslaan

[Chandler479]

Tot op heden gebruik ik de volgende code in Outlook om attachments die mbv. een regel in een bepaalde map komen op te slaan op een gespecificeerde locatie:

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)
             'save the attachment
            olAtt.SaveAsFile FILE_PATH & olAtt.FileName
            
          
        Next
    End If
     
    Set olAtt = Nothing
     
End Sub
 
Private Sub Application_Quit()
     
    Dim ns As Outlook.NameSpace
    Set TargetFolderItems = Nothing
    Set ns = Nothing
     
End Sub

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

  Item.Categories = ""

End Sub

Hoe pas ik deze aan om de attachments die binnenkomen op te slaan onder een andere, vooraf bepaalde naam. Waarmee een reeds aanwezig bestand wordt overschreven.

[ Voor 4% gewijzigd door Chandler479 op 02-04-2007 09:23 ]

[Chandler479]

Kzie net dat de laatste sub niet bij de code hoort.

Bestaan hier andere oplossingen voor? _{Nee niet handmatig opslaan}

[lier]

Hoe pas ik deze aan om de attachments die binnenkomen op te slaan onder een andere, vooraf bepaalde naam.

Heb je het hier over een map naam, of over de naam van de file ?