VBA email verzenden met een bijlage die een variable timestamp heeft

[Verderfje]

Beste helper,

Mijn VBA kennis 0
Wil graag een VBA scriptje hebben waarin ik een vast document met een variable timestamp kan mee sturen als bijlage. Timestamp is huidige datum -1
En als het weekend voor bij is dan min -3
Tevens moeten er meerdere documenten aan toegevoegd worden met de extencie PDF en TXT

Ik heb het 1 en ander gevonden op het internet alleen geld deze alleen voor 1 document met een vaste naam. Weet iemand een oplossing? alvast bedankt. Gr. Emil

Sub SendMail()
Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.CreateItem(0)
With objMail
.Subject = "Onderwerp"
.Body = "xxxx"
.To = "xxx@xxx.nl"
.Attachments.Add "O:\xxxxx\xxxx\xxxx.pdf"
.Send
End With
End Sub

 

[Haaren101]

Kijk eens bij Ron de Bruin

Ron (maar niet de Bruin)

 

[Verderfje]

Dank je wel was heel nuttig

Alleen zit ik nog met de variable time stamp die aan het document zit.

voorbeeld:
piet - 09-09-2008 15:08:30.pfd of .txt
piet - 10-09-2008 15:08:30.pdf of .txt

Elke dag is er een neiuw document met een andere toevoeging.