E-mail sem Outlook com CDOSYS

[Ademir Pereira]

Segue abaixo o código funcional:

Set iConfig = Nothing

Set iConfig = CreateObject("CDO.Configuration")

iConfig.Load -1

Set Campos = Nothing

Set Campos = iConfig.Fields

With Campos

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

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

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

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

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

.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

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

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

.Update

End With

Set Msg = Nothing

Set Msg = CreateObject("CDO.Message")

With Msg

Set .Configuration = iConfig

.To = Trim(wDestino)

.From = Trim(wDestino)

.Subject = "Assunto"

.HTMLBody = strHTML

.Send

End With

Set Msg = Nothing

Set iConfig = Nothing

Set Campos = Nothing

Funciona perfeitamente no Windows XP, porém no Seven e no Server 2003 ocorre o seguinte erro:

O servidor rejeitou o endereõ do remetente. A resposta do servidor foi: 530 5.5.1 http://support.google.com/mail/bin/answer.py?answer=14257

Tentei de todas as formas alterando tudo que era possível no "schemas" e não funcionou nos dois SOs especificdos. Se alguém puder me dar uma ajuda, pois preciso que funcione, principalmente, no Seven.

Agradeço desde já...

Editado Fevereiro 26, 2013 por Ademir Pereira

[Ademir Pereira]

Consegui resolver o problema, a solução funcionou alterando a chamada por schemas, ficando da seguinte maneira:

iConfig.Load -1

Set Campos = Nothing

Set Campos = iConfig.Fields

'Retirei schemas e troquei por cdo

With Campos

.Item(cdoSMTPUseSSL) = True

.Item(cdoSMTPAuthenticate) = cdoBasic

.Item(cdoSendUserName) = wUsuario

.Item(cdoSendPassword) = wSenha

.Item(cdoSMTPServer) = wSmtp

.Item(cdoSendUsingMethod) = cdoSendUsingPort

.Item(cdoSMTPAuthenticate) = 1

.Item(cdoSMTPServerPort) = wPorta

.Item(cdoSMTPConnectionTimeout) = 100

.Update

End With

Set Msg = Nothing

Set Msg = CreateObject("CDO.Message")

With Msg

Set .Configuration = iConfig

.To = Trim(wDestino)

.From = Trim(wDestino)

.Subject = "Assunto"

.HTMLBody = strHTML

.Send

End With

Set Msg = Nothing

Set iConfig = Nothing

Set Campos = Nothing

Dessa maneira ele funciona no Win 7, Win XP, Server 2003 e Sever 2008. Espero que ajude outras pessoas...