estou tentando passar email através de um formulário mas tah dando um erro... e eu gostaria de pedir a ajuda de vocês...
o codigo pra executar o formulário é este:
<%
'Declarando variveis
Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sAssunto, sSetor
'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 Colégio Paraíso"
sText = Request.Form("mensagem")
sAssunto = Request.Form("assunto")
sSetor = Request.Form("setor")
'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 = "smtp.servidor.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
%>
ERRO:
Ocorreu um erro.
O Erro é At least one Recipient, CC or BCC must be entered
lembrando que eu preenchi as linhas:
sEmailTo = "meu@email.com.br"
e
Mailer.RemoteHost = "smtp.servidor.com.br"
precisaria adicionar mais algo?
bem.. espero pela resposta de vocês... e desde já agradeço!
Edição feita por: megapixel, 23/08/2004, 21:32.
