Verschillende attachments, zelfde filename

[0backslash0]

Goeiedag,

Sinds gisteren ben ik opgezadeld met de lastige taak om return mails na te kijken en de betreffende adressen te checken.

Het gaat om zo'n 10.000 mails

Bijkomend nog dat deze mails bij elkaar gegroepeerd zitten als attachments in andere mails, gegroepeerd per 40.

Ik ben niet zo bedreven met Outlook, maar nu heb ik al gevonden hoe je meerdere attachements tegelijk kunt opslagen, het probleem is echter dat deze allemaal dezelfde naam hebben. Dus zit ik in gedachten met een functioniteit om alle attachments in een mail automatisch op te slagen, en deze telkens een andere naam te geven.

Is dit op een of ander manier te bekomen?met een andere mailclient.of via de shell interface

Excuses als deze mail niet echt thuishoort in dit forum.

 

[Paul-RT]

Microsoft Office Outlook?
of Windows Outlook Express?
of Windows Mail (Vista )?

 

[0backslash0]

gebruik Office Outlook 2003 in een XP Pro omgeving

 

[Paul-RT]

Topic verplaatst naar Microsoft Office Outlook.

 

[0backslash0]

Oplossing gevonden.

wordt afgehandeld via VBA.

Hier een voorbeeld van de code ter referentie

Option Explicit

Sub SaveMailAttachments()
    'On Error GoTo GetAttachments_err
    Dim olNameSpace As NameSpace
    Dim olMAPIFolder As MAPIFolder
    Dim olObjItem As Object
    Dim olObjAttachment As Attachment
    Dim olStrFileName As String
    Dim i As Integer
    
    Set olNameSpace = Application.GetNamespace("MAPI")
    Set olMAPIFolder = olNameSpace.PickFolder
    i = 0
    
    For Each olObjItem In olMAPIFolder.Items
        For Each olObjAttachment In olObjItem.Attachments
            i = i + 1
            olStrFileName = "drive:\path_" & i & "_" & olObjAttachment.FileName
            olObjAttachment.SaveAsFile (olStrFileName)            
            Next olObjAttachment
    Next olObjItem
End Sub

Deze is natuurlijk een simpele methode, die de basis toont.