Macro - Auto save - Outlook

[jwalvoort]

Hopelijk kan iemand me hiermee verder helpen, ik ontvang dagelijks een excel (.XLS) in mijn outlook met iedere dag een verschillende naam. Deze zou ik graag onder dezelfde naam (john.xls) opslaan op een locatie. Dit kan ik inderdaad oplossen door een regel en een script uit te voeren. Maar bij het script loop ik vast.

Onderstaand heb ik nu staan. Hoe pas ik dit verder aan, zodat dezelfde naam behouden blijft.

Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "G:\TEST"
For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
Set objAtt = Nothing
Next
End Sub

[Rupie]

Voor de helderheid, wil je nou de naam van de file die je ontvangt behouden? Of moet hij altijd john.xls heten? Als ik je vraag lees zie ik beide voorbij komen.

Wat gaat er verder mis met het script wat je nu hebt? Krijg je foutmeldingen of iets in die geest?

[jwalvoort]

Oke, bedankt voor je reactie.
Ik wil de naam graag houden op john.xls (dezelfde naam)
Het script loopt verder goed, maar de naam wordt niet behouden.

[F_J_K]

Dan pas je toch gewoon de naam in het script aan naar de gewenste filename? Zie via F1 hoe de SaveAsFile-functie werkt.

[jwalvoort]

Aha, gevonden. Bedankt, gelukt! Heb er zelf totaal geen ervaring mee, maar met een beetje hulp kom ik een eind.opgelost