VBA - Invio Mail

Option Explicit
Sub InviaMail_Gmail_Libero()
Dim iMsg As Object, iConf As Object, Flds As Object
Dim MittenteMail As String, Password As String, smtpserver As String
Dim OggettoMail As String, MessageMail As String, DestinatarioMail As String
MittenteMail = "??????????" ' indirizzo della Vostra Mail (mail@Gestore), trà ""
Password = "??????????????" ' inserire la vostra password (del Gestore), trà ""
smtpserver = "????????????" ' tramite internet cercate i (parametri del Gestore). EX smtp.gmail.com oppure smtp.gmail.com , ... trà ""
DestinatarioMail = "??????" ' Destinatario della Mail (Destinatario@Gestore), trà ""
    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
    iConf.Load (-1)
    Set Flds = iConf.Fields
        With Flds
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = MittenteMail
            .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Password
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 ' nei stessi parametri del gestore, numero porta d'uscita (25 in caso di problemi)
            .Update
        End With
        OggettoMail = "PROVA-PROVA" ' Inserire soggetto della mail, trà ""
        MessageMail = "ciao, come stai?" ' Inserire Messaggio della mail, trà "" 
        DestinatarioMail = MittenteMail
        With iMsg
            .Configuration = iConf
            .To = DestinatarioMail
            .CC = "" ' qualora fosse necessario (non provato)
            .BCC = "" ' qualora fosse necessario (non provato)
            '.Attachments.Add(allegato) ' qualora fosse necessario (non provato)
            .From = MittenteMail
            .Subject = OggettoMail
            .TextBody = MessageMail
            .Send
        End With
Set iConf = Nothing
Set iMsg = Nothing
Set Flds = Nothing
End Sub