Salve a tutti.
Ho uno script in vb per outlook che invia email con allegato in automatico. La mia richiesta è la seguente. Visto che il titolo dei file si differenzia solamente per la data odierna mi è stato suggerito di usare FormatDateTime(Now(),2) ma non riesco a fargli riconoscere la data. Sotto il codice. Qualcuno può aiutarmi?razie in anticipo
Sub InvioEmail()
'
' InvioEmail Macro
'
Dim appOL As New Outlook.Application
Dim creaEmail As Outlook.MailItem
Set creaEmail = appOL.CreateItem(olMailItem)
With creaEmail
.To = "d.cantagallo@posteitaliane.it"
.Subject = "Invio Presenze GRTLC Centrale"
.Body = "In allegato si invia file presenze GRTLC Centrale"
"Cordiali saluti."
.Attachments.Add ""1234 " + FormatDateTime(Now(),2)"
'.Display
'.Save
.Send
End With
'Pulizie
Set appOL = nothing
Set creaEmail = nothing
End Sub