mail bijlage, maar bestandsnaam wijzigt per keer

[ReneRijk]

Hoi Allemaal,

Ik heb een vba button in mijn Outlook(2007) gemaakt en daarmee kan ik automatisch een mail versturen naar bepaalde personen met bijlage.
Nu is het probleem dat de bijlage van naam veranderd.(het laatste stuk.)
bv SchedPU_XXX.csv, waarbij de XXX steeds veranderd.

Is het mogelijk om de code zo te maken dat hij het bestand bijvoegd door naar het eerste stuk van de bestandsnaam te verwijzen? Dus bv SchedPU_*.scv Waarbij VBA dus alles bijvoegd wat begint met SchedPU. Met een * werkt dit dus niet.
Onderstaand de code die ik nu heb.
.

Sub AddAttachment()
       With CreateItem(0)
               .Subject = ("blabla")
               .Recipients.Add = "persoon1;persoon2;etc"
               .Attachment.Add "C:\map\bestand"
               .Send
        End With
End Sub

Alvast bedankt voor het meedenken.

Peace,
René Rijk. :thumb:

 

[snb]

Wees slim; sla een kopie van bestand SchedPU_XXX.csv op als C:\bijlage.csv
Dan hoef je alleen die in de macro als attachment op te geven.

PS. de 3e persoon enkelvoud in het Nederlands eindigt op t (zie de titel van je vraag)

 

[ReneRijk]

LoL, bedankt voor de PS. Nederlands is nooit een van mijn beste talen geweest.

Betreft de bijlage. Het probleem is dat de naam hetzelfde moet blijven.
Ik denk dat ik het dan maar zip. Ik had gehoopt dat dit geregeld kon worden met VBA.

Des al niet te min, toch bedankt voor de snelle reactie.

Peace,
René Rijk. :thumb:

 

[snb]

De naam kan ongewijzigd blijven.
Alleen een kopietje met steeds dezelfde naam lijkt me geen probleem.
Ook dat is eenvoudig met VBA te regelen.

 

[ReneRijk]

Nou dat is toch wel een probleem. Achter de naam staat namelijk een de datum waarop die lijst is gegenereerd. Als ik die naam verander dan kunnen ze niet achterhalen van wanneer die lijst is zonder deze eerst te openen.
Opzich geen probleem, maar wel als ze moeten terug zoeken.
Althans voor zover ik het begrepen heb. Ik ga dat nog even navragen.

Peace,
René Rijk. :thumb:

 

[snb]

Ik dacht dat ieder bestand automatisch een datumeigenschap heeft.
( VBA.FileDateTime(bestandsnaam))

 

[ReneRijk]

Ik heb het opgelost. Met onderstaande worden alle files uit die betreffende map als bijlage toegevoegd in een nieuwe E-mail.
Nu hoef ik het bestand alleen maar van de FTP te halen en in die map te plaatsen en op de (macro) button te klikken en de rest gaat vanzelf.

Sub AddAttachment()
       With CreateItem(0)
               Set fso = CreateObject("Scripting.FileSystemObject")
               .Subject = ("blabla")
               .Recipients.Add = "persoon1;persoon2;etc"
                Set fld = fso.GetFolder("C:\map")
                For Each Fil In fld.Files
               .Attachment.Add Fil.Path
                Next
             .Send
        End With
End Sub

Peace,
René Rijk. :thumb:

 

[snb]

Dat kan simpeler:

Sub AddAttachment()
  With Createobject("Outlook.Application").CreateItem(0)
    .Subject = ("blabla")
    .Recipients.Add = "persoon1;persoon2;etc"
    For Each fl In CreateObject("Scripting.FileSystemObject").GetFolder("C:\map").Files
       .Attachment.Add fl.Path
    Next
    .Send
  End With
End Sub