Alguem já teve problema na saida de email smtp pelo CDO VBA no Excel ?
pois estou com problema aqui na empresa NÃO É O SCRIPT, porque digo isso?, testei la em casa e sai direto
mais na empresa não, será firewall ? sera proxy ? sera o que ?
abraço, se alguem passou por isso por favor me responda, pois nao sei o que fazer de teste para verificar o que é
Sub CDO_Mail_Small_Text_2()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
Dim Flds As Variant
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "SEU_EMAIL_GMAIL@gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "SUA_SENHA_GMAIL"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Update
End With
strbody = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2" & vbNewLine & _
"This is line 3" & vbNewLine & _
"This is line 4"
With iMsg
Set .Configuration = iConf
.To = "wilmar-blj@segplan.go.gov.br"
.CC = "wilmarleal@gmail.com"
.BCC = "wilmarjr@hotmail.com"
' Note: The reply address is not working if you use this Gmail example
' It will use your Gmail address automatic. But you can add this line
' to change the reply address .ReplyTo = "Reply@something.nl"
.From = """Wilmar"" <wilmarleal@gmail.com>"
.Subject = "Important message"
.TextBody = strbody
.Send
End With
End Sub
Postado : 01/11/2012 6:36 am