Vorrei creare un meccanismo che mi permetta di inviare un e-mail in automatico con degli allegati scelti da me.
Gli allegati sono delle foto contenute in una cartella fissa, dove ogni giorno vengono aggiunte nuove foto. Ogni giorno vorrei mandare un e-mail con le foto del giorno stesso.
La mia idea è quella di creare un foglio excel con un elenco di collegamenti ipertrestuali alle foto del giorno e poi su questo foglio excel impostare una macro che invii le e-mail allegando le foto.
Le foto nel loro nome non hanno nessun riferimento alla data, però nelle "proprietà" della foto c'è la data.
Quindi i problemi sono:
- creare una macro che scelga solo le foto del giorno
- allegare queste foto ad un e-mail.
Potete aiutarmi?
Il codice che ho iniziato a scrivere:
- Codice: Seleziona tutto
Sub rettangolo1_Click()
Dim OutApp As Object
Dim OutMail As Object
Dim EmailAddr As String
Dim EmailAddrCC As String
Dim Subj As String
Dim BodyText As String
EmailAddr = "XXX"
Subj = "Foto del " & Range("c2").Value
BodyText = "In allegato del " & Range("c2").Value '''''C2= DATA ODIERNA"
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = EmailAddr
.CC = EmailAddrCC
.BCC = ""
.Subject = Subj
.Body = BodyText
.Attachments = '''''''''''''' QUI COSA INSERISCO per ALLEGARE LE FOTO????
.Send
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub