29 replies to this topic

[guma]

estou usando o faleconosco_1751


Ocorreu um erro.
O Erro é At least one Recipient, CC or BCC must be entered




codigo:

<%
'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 = "meu@email.com.br"
sNameTo = "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
'CONFIGURE ESTA LINHA !
Mailer.RemoteHost = "meuserv.meuserv.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
%>


eu ja configurei certinho os campos
Mailer.RemoteHost
sEmailTo
sNameTo

e continua dando este erro

Ocorreu um erro.
O Erro é At least one Recipient, CC or BCC must be entered

[LeoB]

Você inverteu os parâmetros nessa linha:

Mailer.AddRecipient sEmailTo, sNameTo

O correto é primeiro o nome e depois o e-mail:

Mailer.AddRecipient sNameTo, sEmailTo

[guma]

nadinha ainda amigo agora da erro de timeout

agora eu estou mudando de codigo esse não funciona

<%
Set objmail = Server.CreateObject("CDONTS.NewMail")
objmail.from = "erick@ondaaquarios.com.br"
objmail.to = "erick@ondaaquarios.com.br"
objmail.subject = "Assunto"
objmail.body = corpo
objmail.BodyFormat = 0
objmail.MailFormat = 0
objmail.send

Set objmail = nothing
%>

e porque esse chega em branco no meu email ?

Edição feita por: guma, 05/07/2004, 15:09.

[::: Mr.Crowley :::]

objmail.body é o q vai aparecer no e-mail
vc deu algum valor a variavel "corpo" que ta ali???

[guma]

objmail.body é o q vai aparecer no e-mail
vc deu algum valor a variavel "corpo" que ta ali???

nadinha como eu poso estar criando estas variaveis ?

[::: Mr.Crowley :::]

dim corpo
corpo = "aqui vc poe seu texto"

[guma]

mas entaum como que vai ficar com este codigo ?

<%

dim corpo
corpo = "testo"

Set objmail = Server.CreateObject("CDONTS.NewMail")
objmail.from = "erick@ondaaquarios.com.br"
objmail.to = "erick@ondaaquarios.com.br"
objmail.subject = "Assunto"
objmail.body = corpo
objmail.BodyFormat = 0
objmail.MailFormat = 0
objmail.send


Set objmail = nothing
%>


???

[Fernando_Ramos]

Amigo veja se isso te ajuda a fazer o que vc precisa!!!

abs!!!

Attached Files

•  fale_conosco.zip   612bytes   89 downloads

[guma]

nome = request.form("nome")
quem = request.form("email")
corpo = request.form("duvida")

Set objmail = Server.CreateObject("CDONTS.NewMail")
objmail.from = quem
objmail.to = "eu@bol.com.br"
objmail.subject = "Fale Conosco , Dúvida de: " & nome
objmail.body = corpo
objmail.BodyFormat = 0
objmail.MailFormat = 0
objmail.send

ex::

quando eu envio ele soh manda o campo preenchido da Duvida ???

[Fernando_Ramos]

neste exemplo sim....vc queria que enviasse o nome e e-mail ???

coloca assim :

nome = request.form("nome")
quem = request.form("email")
corpo = request.form("duvida")

Set objmail = Server.CreateObject("CDONTS.NewMail")
objmail.from = quem
objmail.to = "eu@bol.com.br"
objmail.subject = "Fale Conosco , Dúvida de: " & nome
objmail.body = "Nome: " & nome & "<br>E-mail : " & quem & "<br>Mensagem: " & corpo
objmail.BodyFormat = 0
objmail.MailFormat = 0
objmail.send

[guma]

isto eu gostaria de saber como criar uma caixa em branco em um formulario em HTML e envia-lo via ASP. como vc me mostrou mas só funciona o campo duvida gostaria de enviar tudo nome... etc.

[::: Mr.Crowley :::]

ai depende...se for um e-mail em forma de text em objmail.BodyFormat vc poe 0 se for em HTML vc poe 1...
ele poe oq vc pediu no request.form

[guma]

QUOTE


nome = request.form("nome")
quem = request.form("email")
corpo = request.form("duvida")

Set objmail = Server.CreateObject("CDONTS.NewMail")
objmail.from = quem
objmail.to = "eu@bol.com.br"
objmail.subject = "Fale Conosco , Dúvida de: " & nome
objmail.body = "Nome: " & nome & "<br>E-mail : " & quem & "<br>Mensagem: " & corpo
objmail.BodyFormat = 0
objmail.MailFormat = 0
objmail.send


agora sim, sempre eu tenho que colocar os campos no .Body ???

[guma]

enviar.asp

<%

Nome = Request.Form("Nome")
Endereco = Request.Form("Endereco")

Set objmail = Server.CreateObject("CDONTS.NewMail")
objmail.from = eu
objmail.to = "eu@bol.com.br"
objmail.subject = "Fale conosco" & nome
objmail.body = "Nome " & Nome & "<br>Endereco " & Endereco
objmail.BodyFormat = 0
objmail.MailFormat = 0
objmail.send

Set objmail = nothing


%>


contato.htm

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Documento sem t&iacute;tulo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<form action="enviar.asp" method="post" name="formulario" id="formulario">
<p>
<input name="Nome" type="text" id="Nome">
<br>
<br>
<input name="Endereco" type="text" id="Endereco">
</p>
<p>
<input type="submit" name="Submit" value="Enviar">
</p>
</form>
</body>
</html>


porque não esta funcionando tem algo errado ?

[Fernando_Ramos]

que "eu" é esse ??? rs..rs...

não tem nada declarado para ele!!!!

objmail.from = eu