Envio de email ASP

[PATYBJO 0]

;) Aiiiiii pessoal!!!!! aklguém pode me ajudar??Preciso criar um página de contato, o usuário preenche o formulário e envia p/ o meu email.Mas aparece a seguinte mensagem:Objeto Server error 'ASP 0177 : 800401f3' Falha em Server.CreateObject /envia.asp, line 13 800401f3 O que acontence?? Será q alguem pode me enviar um código correto? Eu preciso com urgencia!Muito Obrigada!!!!!! :D

[BigPaul 0]

o que tem na linha 13 ?

[Akwen 1]

Hum... oq tem na linha 13? posta o codigo do seu asp tb...

[ska_ska 0]

falha ao criar o objeto...você ta usando um objeto (create.object) q seu server naum tem disponível... você precisa saber qual o objeto para envio de email q seu server disponibiliza... e soh um toque... se você tem certeza do objeto seu server tem (o de envio, q está estipulado na linha do erro)e esse erro esta dando qdo você testa local.. tenta publicar na net.. pq se sua maq. naum tem o objeto, vai dar paaaaaaa.... falow

[lella 0]

posta o código..... ajudaria muito..ou o objeto não esta sendo criado ou não existe suporte no servidor ou inumeras razões em programação levam a erros.assim fica dificil te ajudar...bju

[PATYBJO 0]

BOM P/ QM PEDIU AI VAI O CÓDIGO Q ESTOU USANDO!!!!!!!!!

 

POR FAVOR HELP!!!!!

 

OBRIGADA!!!!!!! PATY

 

<%

'Declarando variveis

Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sAssunto

 

'Pegando os dados digitados nos campos e colocando em variaveis

 

fNome = request.form("nome")

fCidade = request.form("cidade")

fEmail = request.form("email")

fMensagem = request.form("mensagem")

 

'Cria o objeto (A LINHA DE BAIXO Q ESTA DANDO ERRO)

set objEmail = server.createobject("CDONTS.NewMail")

objEmail.FromName = fNome

objEmail.FromAddress = fEmail

'Host para envio de emails

objEmail.RemoteHost = "smtp2.uol.com.br"

objEmail.AddRecipient fEmail, fNome

objEmail.Subject = fMensagem & " - E-mail"

 

'Monta a texto para o envio

strMsgHeader = fNome & "(" & fEmail & ") " & " quem enviou! " & vbCrLf & vbCrLf

strMsgFooter = fMensagem

Mailer.BodyText = strMsgHeader & strMsgFooter

' Se for enviado redirecionar para obrigado.asp

if Mailer.SendMail then

Response.Redirect "obrigado.asp"

else

' Se não for enviado mostra o erro que ocoreu

Response.Write ("Ocorreu um erro.<BR>")

Response.Write ("O Erro é " & Mailer.Response)

end if

%>

[BigPaul 0]

Hum; o CDonts não está instalado por isso está dando erro .

 

[PATYBJO 0]

ENTÃO..... COMO FAÇO PARA INSTALAR O CDONTS???

 

OBRIGADA!

 

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

[BigPaul 0]

Segue um link aonde explica o passo a passo:

 

http://www.freecode.com.br/drArtigos/art_d...OSMA44653KHKOFH