Enviando E-mail!

[Guest mkboy]

Onde está o erro desta página de processa, pois da erro e não vai, e meu provedor tem suporte a aspmail.

<%

'Declarando variveis

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

'Pegando os dados digitados nos campos e colocando em variaveis

sNameFrom = Request.Form("nome")

sEmailFrom = Request.Form("email")

sEmailTo = "pesca@pescaki.com.br"

sNameTo = "Pescaki"

sText = Request.Form("mensagem")

sAssunto = Request.Form("assunto")

'Cria o objeto

  set mailer = server.createobject("SMTPsvg.Mailer")

  Mailer.FromName = sNameFrom

  Mailer.FromAddress = sEmailFrom

'Host para envio de emails

  Mailer.RemoteHost = "smtp.pescaki.com.br"

  Mailer.AddRecipient sEmailTo, sNameTo

  Mailer.Subject = sAssunto  & " - E-mail"

'Monta a texto para o envio

  strMsgHeader = sNameFrom & "(" & sEmailFrom & ") " & " quem enviou! " & vbCrLf & vbCrLf

  strMsgFooter = sText

  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

%>

Peguei este código pronto e não funciona.

[hara]

Aí vaí um código que com certeza está funcionando !!! Se der algum erro, tente verificar se não há nenhum problema com seu servidor de hospedagem !!!

<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer") 
Mailer.FromName = Request.Form("nome") 
Mailer.FromAddress= Request.Form("email")
Mailer.RemoteHost = "smtp.pescaki.com.br"
Mailer.AddRecipient "Pescaki", "pesca@pescaki.com.br"
Mailer.ContentType = "text/html' formatação html 
Mailer.Subject = Request.Form("assunto") 
Mailer.BodyText = Request.Form("mensagem") 
If Mailer.SendMail Then 
    Response.Write "Mensagem enviada com sucesso" 
Else 
    Response.Write "Erro " & Mailer.Response 
End If
%>

Fernando Hara

[resopi]

Olá se você pudesse descrever o erro q estaq acontecendo ajuda......

[pgmador]

Mas... qual o erro que está dando?

Nelson Soares

http://www.ondagospel.com.br

[Guest mkboy]

Ola, obrigado.

Deu erro na seguinte linha:

Mailer.ContentType = "text/html' formatação html

[resopi]

Ola caso você esthja utilizando somente texto utilise:>

Mailer.ContentType = "text"

ou senaun eu notei no seu codigo q falta uma aspas:

Mailer.ContentType = "text/html'<=falta aspas aki

Mailer.ContentType = "text/html"  '<=com aspas