cdosys

[thiagoo 0]

Fala galera... vejo q apagaram um tópico meo... mas tudo bem... tenho um código e ele ta dando erro na linha 21... essa é a mensagem de erro

 

Microsoft VBScript runtime error '800a01f4'

 

Variable is undefined: 'objCDOSYSMail'

 

/pages/teste.asp, line 21

 

 

esse é o meu código:

<%Option ExplicitDim nomefantasia, razaosocial, endereco, bairro, cep, cidade, uf, fone, emailnomefantasia = request.form("nomefantasia")razaosocial = request.form("razaosocial")endereco = request.form("endereco")bairro = request.form("bairro")cep = request.form("cep")cidade = request.form("cidade")uf = request.form("uf")fone = request.form("fone")email = request.form("email")'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") = "mail.serverasp2.com" 'porta do SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'porta do CDO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'timeout objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 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 = "eu@MeuDominio.com.br" 'e-mail do destinatário objCDOSYSMail.To = "chapolimm@hotmail.com" 'assunto da mensagem objCDOSYSMail.Subject = "Teste do CDOSYS" 'conteúdo da mensagem objCDOSYSMail.TextBody = nomefantasia & vbCrlf &razaosocial & vbCrlf &endereco & vbCrlf &bairro & vbCrlf &cep & vbCrlf &cidade & vbCrlf &uf & vbCrlf &fone & vbCrlf &email   '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 destinatario@dominio.com.br ..." %>

o q pode estar dando de errado??... alguém pode me ajudar?

 

Obrigado!!!

[thiagoo 0]

OoOps... nem tinha me tocado... pode ser q isso resolva meu problema... sabe como eh neh... a pressão do trabalho... vou testar e depois posto aqui pra dizer se funcionou... Obrigado!

[thiagoo 0]

Valeu cara... funcionou!!... Obrigado! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

 

Só mais uma dúvida... eu teste no hotmail e em mais um email... e vem como lixo eletrônico... existe algum jeito de eu mudar a prioridade do email para ver se o email cai na caixa de entrada direto?