Ciao,
come ti dicevo io utilizzo Microsoft Outlook per l'invio delle email
questa è la procedura inseriscila in un modulo del tuo file excel e poi crei una procedura che nel tuo giorno desiderato di ogni mese e nell'ora desiderata richiama la procedura invia email.
- Codice: Seleziona tutto
Private Sub invia_Email()
Dim OLook As Object 'Outlook.Application
Dim MItem As Object 'Outlook.MailItem
Dim Inter As String, MSubj As String
Dim MAddr As String
MAddr = "" '<<<< Destinatario
Inter = "G1:G3" '<<<< Lista delle celle che contengono gli indirizzi email da allungare a piacimento
'
For Each Email In Range(Inter)
MAddr = Email
MSubj = " Email Generata Automaticamente" '<<<< Subject della mail da modificare in base al tuo caso
Set OLook = CreateObject("Outlook.Application")
Set MItem = OLook.createitem(0)
MItem.to = MAddr
MItem.Subject = MSubj
MItem.body = " Email generata in automatico " ' corpo dell'email da modificare in base al tuo caso
MItem.send
Application.Wait (Now + TimeValue("0:00:05"))
Set OLook = Nothing
Set MItem = Nothing
Next Email
End Sub
A Buon Rendere