cdosys

[Davidmg 0]

Estou usando o CDOSYS e está dando erro, o erro é: The "SendUsing" configuration value is invalid.

 

Meu código está assim:

 

Set myMail = CreateObject("CDO.Message")

myMail.From = "david@petronac.com.br"

myMail.To = "david@petronac.com.br"

myMail.Subject = "teste"

myMail.HtmlBody = "testando email"

myMail.Send

 

O que pode ser?

Pra mim o código está certo e o servidor suporta CDOSYS.

 

Aguardo, abraços.

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

[joacatito 0]

Ele funciona sem o "CDO.Configuration"?Nunca testei...Pode ser isso...

[Davidmg 0]

Ele funciona sem o "CDO.Configuration"?Nunca testei...Pode ser isso...

Como ficaria essa linha?

[joacatito 0]

dim configuracaoSet myMail = CreateObject("CDO.Message")		Set configuracao = Server.CreateObject("CDO.Configuration")		configuracao.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strHostconfiguracao.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2configuracao.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30Set myMail.Configuration = configuracaomyMail.From = "david@petronac.com.br"myMail.To = "david@petronac.com.br"myMail.Subject = "teste"myMail.HtmlBody = "testando email"myMail.Send

strHost é a variável onde contém o nome do seu servidor SMTP. Pode ser colocado direto.

 

Acho que assim vai.