Al momento sto usando questo script per generale email usando il server SMTP di alice inviando i messaggi come anonimo, ma sto avendo molti problemi di recapito.
Vorrei utilizzare un account gmail ed usare il server SMTP di Google che usa SSL su porta 465.
Come posso modificare il mio script per inviare posta con gmail piuttosto che con alice in modalità autonoma?
Ringrazio anticipatamente tutti per l'attenzione.


Public Sub SendEmail(mittente, destinatario, oggetto, messaggio)
Dim mail, config, fields
Set mail = CreateObject("cdo.message")
Set config = CreateObject("cdo.configuration")
Set fields = config.Fields
fields(cdoSendUsingMethod) = cdoSendUsingPort
fields(cdoSMTPServer) = "out.alice.it"
fields(cdoSMTPServerPort) = 25
fields(cdoSMTPAuthenticate) = cdoAnonymous
fields.Update
Set mail.Configuration = config
mail.From = mittente
mail.To = destinatario
mail.Subject = oggetto
mail.HTMLBody = messaggio
mail.Send
Set mail = nothing
End Sub