[Resolvido] VBA Envio E-mail Gmail

Prezados, Bom Dia,

Eu tinha esta rotina que usei um tempo atrás para envio de email pelo excel, fui tentar utilizar a esta dando erro, saberia dizer oque mudou?

Sub EnviarEmail()



Dim iMsg As Object

Dim iConf As Object

Dim mensagem As String

Dim Flds As Variant

Set iMsg = CreateObject("CDO.Message&quot

Set iConf = CreateObject("CDO.Configuration&quot

iConf.Load -1    ' CDO Source Defaults

Set Flds = iConf.Fields

With Flds

.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl&quot = True

.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate&quot = 1

.Item("http://schemas.microsoft.com/cdo/configuration/sendusername&quot = "xxxxx"

.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword&quot = "xxxxx"

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver&quot = "smtp.gmail.com"

.Item("http://schemas.microsoft.com/cdo/configuration/sendusing&quot = 2

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport&quot = 465

.Update

End With

mensagem = "Teste"

With iMsg

Set .Configuration = iConf

.To = "xxxxx"

.CC = ""

.BCC = ""

.From = "xxxxx"

.Subject = "Teste"

.TextBody = mensagem

.Send

End With

MsgBox "Email Enviado"

End Sub

O erro que esta retornando:

Erro em tempo de execução '-2147220975 (80040211)'
Não foi enviar a mensagem para o servidor SMTP. O código de erro de transporte foi 0x80040217. A resposta do servidor foi bit availabe.

Obrigado,