Macro enviar correos adjuntos sin outlook

Estoy intentando hacer funcionar esta macro pero no hay manera, ¿podría ayudarme?
Mi correo es [email protected]

Sub Correos()
CarryOn = MsgBox("¿Éstas seguro?", vbYesNo, "Macro Correos")
If CarryOn = vbYes Then

Dim Email As CDO.Message
Set Email = New CDO.Message
correo_origen = "[email protected]"
Clave_correo_origen = "xxxxxx"

numerodatos = Hoja1.Range("B" & Rows.Count).End(xlUp).Row
col = Range("I3").Column
For i = 4 To numerodatos
nombre = Cells(i, 2).Value
correo_destino = Cells(i, 3).Value
asunto = Cells(i, 4).Value
saludo = Cells(i, 5).Value
mensaje = Cells(i, 6).Value
despedida = Cells(i, 7).Value
firma = "<Div><B><FONT COLOR= ""#000080"" >XXXXX </a> </FONT> <br> Economista - Asesor Fiscal y Contable <br> Miembro COEV: XXXXX <br> NIF: XXXXXXX<br> " & _
"Tel: XXXXXX<br> Whatsapp/Telegram : XXXXX<br> E-mail: [email protected] <br> </FONT></FONT><br><br>" & _
"------------------------AVISO DE CONFIDENCIALIDAD------------------------ <br><br> <i> <small>La información contenida en este mensaje y/o archivo(s) adjunto(s), enviada desde XXXXXXXXXXXXXXXXXXXXXX, es confidencial/privilegiada y está destinada a ser leída sólo por la(s) persona(s) a la(s) que va dirigida. Le recordamos que sus datos han sido incorporados en un fichero y que siempre y cuando se cumplan los requisitos exigidos por la normativa, podrá ejercer los derechos de acceso, rectificación, cancelación y oposición, ante nuestra entidad. <br> Si usted lee este mensaje y no es el destinatario señalado, el empleado o el agente responsable de entregar el mensaje al destinatario, o ha recibido esta comunicación por error, le informamos que está totalmente prohibida, y puede ser ilegal, cualquier divulgación, distribución o reproducción de esta comunicación, y le rogamos que nos lo notifique inmediatamente y nos devuelva el mensaje original a la dirección arriba mencionada. <i> <small></Div>"

For j = col To Cells(i, Columns.Count).End(xlToLeft).Column
archivo = Cells(i, j).Value
If archivo <> "" Then .Attachments.Add archivo
Next
If correo_destino <> "" Then

Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com"
Email.Configuration.Fields(cdoSendUsingMethod) = 2
With Email.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = CLng(465)
.Item("http://schemas.microsoft.com/cdo/" & "configuration/smtpauthenticate") = Abs(1)
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = correo_origen
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Clave_correo_origen
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
End With
With Email
.To = correo_destino
.From = correo_origen
.Subject = asunto
.HTMLBody = saludo & "<br>" & "<br>" & mensaje & "<br>" & "<br>" & despedida & "<br>" & "<br>" & firma
.Configuration.Fields.Update
If (Trim(correo_copia) = "") Then
.CC = correo_copia
End If
On Error Resume Next
.Send
End With

End If
Next
End If
End Sub