Enviar Email por VBA

[Guest Douglas Manoel]

Bom Dia A Todos,

Fiz uma aplicação que envia alguns Dados por Email .

E não está funcionando

Este que fiz usa o servidor do bol para enviar . olhem o codigo

Dim iMsg As Object

Dim iConf As Object

Set iMsg = CreateObject("CDO.Message")

Set iConf = CreateObject("CDO.Configuration")

iConf.Load -1 ' CDO Source Defaults

With iConf.Fields

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

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtps.bol.com.br"

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587

.Item("http://schemas.microsoft.com/cdo/configuration/smtptimeout") = 10

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

.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "usuario"

.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senha"

.Update

End With

With iMsg

Set .Configuration = iConf

.To = ParaSV

.Cc = ""

.BCC = ""

.FROM = "teste.email@bol.com.br"

.Subject = TituloSV

.TextBody = MensagemEmailSV

.Send

End With

e da o seguinte Erro quando tento enviar:

" Não foi possivel enviar a mensagem para o servidor SMTP..... A Resposta o Servidor foi not avaible"

alguém sabe porque?

Outra duvida:

Como envio esses emaisl sem usar servidores alternativos.

e Sim direto pelo outlook ?

Obrigado

[Guest Joao.Neto]

Para enviar pelo bom e velho outlook ver tópico abaixo

http://scriptbrasil.com.br/forum/index.php?showtopic=122538

abs... :ninja:

"Quem disse que na tem jeito?"