Script CDOSYS

[angelo_cesar 0]

boa tarde pessoal estou precisando da ajuda de vcs , pois é o seguinte o modulo do meu provedor de envio de e mails é o CDOSYS , e estou com uma loja virtual hospedada nele, e a minha loja possui um arquivo chamado email.asp , pois fiz diversos teste e quando preencho o formularios de envio na minha loja e faço teste para enviar um e mail não vai nada para meu e mail de jeito nenhum, queria saber se possui alguma coisa de errada no meu codigo abaixo e alias nao apresenta nenhum error na hora do e mail na pagina aonde esta este formulario de envio ?

 

Conto com ajuda de todos por favor estou desesperado por que não consigo configurar de jeito nenhum.

 

 

Case "CDOSYS"

'cria o objeto para o envio de e-mail

Set objCDOSYSMail = Server.CreateObject("CDO.Message")

 

'cria o objeto para configuração do SMTP

Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

 

'SMTP

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "aquieunaoseioquecoloco?"

 

'porta do SMTP

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configura.../smtpserverport") = 25

'porta do CDO

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

 

'timeout

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configura...nnectiontimeout") = 30

 

objCDOSYSCon.Fields.update

 

'atualiza a configuração do CDOSYS para o envio do e-mail

Set objCDOSYSMail.Configuration = objCDOSYSCon

 

'e-mail do remetente

objCDOSYSMail.From = "@terra.com.br"

 

'e-mail do destinatário

objCDOSYSMail.To = "emaildocliente@dominio.com.br"

 

'assunto da mensagem

objCDOSYSMail.Subject = "Teste do CDOSYS"

 

'conteúdo da mensagem

objCDOSYSMail.TextBody = "Teste do componente CDOSYS"

'para envio da mensagem no formato html altere o TextBody para HtmlBody

'objCDOSYSMail.HtmlBody = "Teste do componente CDOSYS"

 

'objCDOSYSMail.fields.update

'envia o e-mail

objCDOSYSMail.Send

 

'destrói os objetos

Set objCDOSYSMail = Nothing

Set objCDOSYSCon = Nothing

 

response.write "E-mail enviado para @terra.com.br ..."

 

 

End Select

End Function

%>

[WebASP 0]

<%Set objEmail = Server.CreateObject("CDO.Message") Set objEmailConf = Server.CreateObject ("CDO.Configuration") 	objEmailConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.seu_dominio.com.br"	objEmailConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25 	objEmailConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 	objEmailConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60	objEmailConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1	objEmailConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "email_principal@seudominio.com.br"	objEmailConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senha_do_dominio_principal"	objEmailConf.Fields.update 	Set objEmail.Configuration = objEmailConf 		objEmail.From = "email_principal@seudominio.com.br" 		objEmail.To = "email_quem_vai_receber@terra.com.br"		objEmail.Subject = "AQUI VEM O ASSUNTO"		objEmail.HtmlBody = "AQUI VEM A <b>MENSAGEM</b>" 		objEmail.Send Set objEmailConf = Nothing Set objEmail = Nothing %>

[angelo_cesar 0]

BOM DIA WEBASPMUITO OBRIGADO MESMO RESOLVEU O PROBLEMA ,AGORA DEU CERTINHO SEGUINDO SEU SCRIPT ESTOU FELIZ POR TER RESOLVIDO MEU PROBLEMA OBRIGADAO MESMO E FIQUE COM DEUS

[angelo_cesar 0]

bom dia webaspa unica coisa e que no preenchimento do formulario nao esta indo a mensagem que pessoa coloca e nem o e mail da pessoal tem como colocar isto ?

[angelo_cesar 0]

alguem pode me ajudar por favor pois no preenchimento do formulario nao vai os dados das pessoas e nem o assunto , esta enviando normal so que nao vai os dados importantes que são dos clientes conto com ajuda de todos Grato