¿EXCEL 2007 enviar hoja activa por gmail me da error cuando el mail contiene numero alguien sabe porque?
Cuando el mail y la contraseña no tiene numero ni mayúsculas funciona bien, pero si no es así da error
"Se produjo el siguiente error: 2147220975 no se pudo enviar el mensaje al servidor SMPT.
El código de error de transporte fue 0x80040217. La respuesta del servidor fue available"
'Enviar por GMAIL
Dim Email As CDO.Message
'
Set h2 = l1.Sheets("MAIL")
correo = h2.Range("D9").Value
passwd = h2.Range("D11").Value
'
Set Email = New CDO.Message
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
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = passwd
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
End With
With Email
.To = h2.Range("D16").Value & ";" & h2.Range("D18").Value & ";" & h2.Range("D20").Value & ";" & h2.Range("D22").Value
.From = correo
.Subject = nomb
.TextBody = Range("G15").Value
.AddAttachment rut2 & "\" & nomb & ".xls"
.Configuration.Fields.Update
On Error Resume Next
.Send
End With
If Err.Number = 0 Then
MsgBox "Hoja Guardarda y enviada por gmail", vbInformation, "CREAR CARPETA Y GUARDAR HOJA"
Else
