Jump to content
Fórum Script Brasil
  • 0

Enviando E-mail!


Guest mkboy

Question

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.

Link to comment
Share on other sites

5 answers to this question

Recommended Posts

  • 0

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

Link to comment
Share on other sites

  • 0

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

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152.1k
    • Total Posts
      652k
×
×
  • Create New...