Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

blini

formulario de email atraves do aspemail

Por , em ASP Clássico

Recommended Posts

blini    0

blini
Postado

;) Por favor preciso de ajuda!Criei um formulario para email na Intranet da empresa mas não esta funcionado. Quando o usuario clicar no botão enviar ele executara a pagina envia.asp que tem o seguinte codigo.<%'Declarando variveisDim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sAssunto'Pegando os dados digitados nos campos e colocando em variaveissNameFrom = Request.Form("nome")sEmailFrom = Request.Form("email")sEmailTo = ""sNameTo = ""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 = "" 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%><html><head><title></title></head><body></body></html>Quando executo da o seguinte erroO Erro é At least one Recipient, CC or BCC must be entered

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Não tá faltando um "=" aqui:

Mailer.AddRecipient sEmailTo, sNameTo

não?

Isso não é assim:

Mailer.AddRecipient = sEmailTo, sNameTo

 

 

Valeu?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Corrigindo, é ASPMail.

E aqui:

sEmailTo = ""

sNameTo = ""

você coloca o nome e o E-mail do destinatário, ou seja:

sEmailTo = "seunome@seuprovedor.algo.algumacoisa"
sNameTo = "seunome"

E realmente não precisa do "=" no addRecipient, mas tem que ter obrigatóriamente um e-mail aqui

 

Valeu?

Compartilhar este post

Link para o post
Compartilhar em outros sites

WLJ    0

WLJ
Postado

Não tá faltando um "=" aqui:

Mailer.AddRecipient sEmailTo, sNameTo

não?Isso não é assim:
Mailer.AddRecipient = sEmailTo, sNameTo
Valeu?
salgado... na hora q coloca esse "=" da esse erro:
Informações técnicas (para a equipe de suporte)Tipo de erro:Erro de compilação do Microsoft VBScript (0x800A0401)Fim da instrução esperado/sites/joao_teste/enviar_email.asp, line 20, column 29Mailer.AddRecipient= sEmailTo, sNameTo----------------------------^

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Dá uma olhadinha no post Acima do seu! ;)

Tem uma correção lá.

 

Valeu?

Compartilhar este post

Link para o post
Compartilhar em outros sites

WLJ    0

WLJ
Postado

Dá uma olhadinha no post Acima do seu! :D Tem uma correção lá.Valeu?

desculpe kra num entendi tua explicação lá em cima (devo tar ficando loco...) da uma esclarecida aí... por favor... ;)

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Ok, vamos lá:

O código do nosso amigo blini lá em cima não é para o ASPEmail, e sim para o ASPMail.

Nesse mesmo código ele não setou para quem enviar o e-mail, por isso o erro "O Erro é At least one Recipient, CC or BCC must be entered", veja essas variáveis do código dele:

sEmailTo = ""

sNameTo = ""

Estão vazias, então aqui:

Mailer.AddRecipient sEmailTo, sNameTo

Ele tá enviando para ninguém!

É só você colocar para quem você quer passar o e-mail nas var sEmailTo e sNameTo.

Entendeu?

 

 

Valeu?

Compartilhar este post

Link para o post
Compartilhar em outros sites

WLJ    0

WLJ
Postado

ai salgado

ja setei os valores como pode ver abaixo:

 

sNameFrom = Request.Form("nome")sEmailFrom = Request.Form("email")sEmailTo= "weblemejunior@hotmail.com"sNameTo= "João"sText = Request.Form("mensagem")sAssunto = Request.Form("assunto")'Cria o objetoset mailer = server.createobject("SMTPsvg.Mailer")Mailer.FromName = sNameFromMailer.FromAddress = sEmailFrom'Host para envio de emailsMailer.RemoteHost = "smtp.fox.com.br"Mailer.AddRecipient sEmailTo, sNameToMailer.Subject = sAssunto & " - E-mail"

 

agora aparece este erro novamente...

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

E num é o negocio do "=" no AddRecipient, pq se eu coloco "=" ele da esse erro novamente...

Tipo de erro:Erro de compilação do Microsoft VBScript (0x800A0401)Fim da instrução esperado/sites/joao_teste/enviar_email.asp, line 20, column 29Mailer.AddRecipient= sEmailTo, sNameTo----------------------------^

Help... :blink:

Compartilhar este post

Link para o post
Compartilhar em outros sites

Netanias    0

Netanias
Postado

Kra, o negócio tá errado....

 

Mailer.AddRecipient sEmailTo, sNameTo

 

tem quer ser primeiro o sNameTo depois o sEmailTo - é o nome do destinatário e depois o email dele....

 

só troca que vai funcionar....

 

vlw!

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito