sofrivel

[obomba 1]

Pessoal, por favor, a pergunta é ridícula eu sei... acontece que me meti a fazer uma páginae quero mandar um e-mail... consegui um script gratis.... é esse ai ..

 

<%

'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 = "seuemail@imasters.com.br"

sNameTo = "Nome do Site"

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 = "smtp2.locaweb.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

%>

PERGUNTA TOSCA --- >>> A ONDE EU COLOCO O MEU E-MAIL para que eu possa receber essa MSG ? é sérião... num sei mesmo....

 

Eu achei que fosse aqui

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

ai eu troquei o - e-mail pelo meu e-mail e deu esse erro ó:

Ocorreu um erro.

O Erro é At least one Recipient, CC or BCC must be entered

[Flycode 0]

em sEmailTo = "seuemail@imasters.com.br";onde em seuemail@imasters.com.br, você deve colocar o email q vai receber a mensagem.

[obomba 1]

valeu!

[obomba 1]

Ainda não fununcia....Essa parte tem de trocar?

'Host para envio de emails  Mailer.RemoteHost = "smtp2.locaweb.com.br"  Mailer.AddRecipient sEmailTo, sNameTo  Mailer.Subject = sAssunto  & " - E-mail"

olha o erro...

At least one Recipient, CC or BCC must be entered

[Nyan 0]

Bom, nunca usei ASPmail (acho q é ele que você está usando, não?!), mas pelo erro, acho que os dados da página com o formulário não estão sendo "pegos" pelas varáveis...

 

Verifica duas coisas...

 

1. Se o nome do teu input que recebe o e-mail do destinatário é esse : sEmailFrom = Request.Form("email")

 

2. Se está usando método post ou get no form... Request.form é usado para método post e request.querystring é usado para método get.

 

Seu e-mail vai aqui: sEmailTo = "seuemail@imasters.com.br"

 

 

Abraços,

Nyan

[asp.net 0]

Cara eu naum utilizo o ASPmail, mas estou te mandando um script para o CDONTS que eh muito utilizado.

 

================================================================================

================================================================================

=======================================================================

 

Set objemail=CreateObject("CDONTS.NewMail")

mensagem = "Aqui você coloca a mensagem"

 

Objemail.From = "valeuboi@valeuboi.com.br" 'remetente

Objemail.Bcc = "info@valeuboi.com.br" 'destinatario oculto

Objemail.To = cartao_demail 'destinatario

Objemail.Subject = "Cartão da VB" 'titulo da mensagem

Objemail.BodyFormat = 0 'formato do corpo da mensagem

Objemail.MailFormat = 0 'formato da mensagem

Objemail.Body = mensagem 'texto da mensagem

Objemail.Send

 

 

Acho que para você deve servir.

[obomba 1]

obrigado!