aspmail

[atpaim 0]

Pessoal,

 

Estou com o código abaixo e nao consigo coloca-lo para funcionar. A duvida é a seguinte: como configuro os campos do formulario dentro do Mail.BodyText a fim de exibir as informações? Alguem poderia passar uma sugestao para corrigir?

 

 

ASPMAIL Configuração

<%Option ExplicitOn Error Resume NextDim MailDim strFromName ' nome do remetenteDim strFromEmail ' endereço de Email do remetenteDim strToEmail ' endereço do destinatarioDim strtelefone ' telefone do clienteDim strdescricao ' DescricaoDim strSubject, strBody 'corpo da mensagemDim strhost ' nome do servidorerr.clearSet Mail = Server.CreateObject("Persits.MailSender")If Err.number <> 0 ThenResponse.Write "Error encountered: " & Err.Descriptionresponse.endEnd Ifstrhost = "smtp.meuservidor.com.br" ‘altere o nome para o seu servidor de mensagensstrFromName = Trim(Request.Form("nome"))strFromEmail = Trim(Request.Form("email"))strtelefone = Trim(Request.Form("telefone"))strdescricao = Trim(Request.Form("descricao"))strSubject = "Teste"Mail.AddAddress "pinauna.digital@bol.com.br"Mail.Subject = "Subject" ' Assunto do e-mailMail.BodyText = "Teste de envio de e-mail pelo AspEmail"'Corpo do e-mailMail.SendIf Err.number <> 0 ThenResponse.Write "Error encountered: " & Err.DescriptionEnd If%>

[FabricioGomes 0]

...strMensagem = "Teste de envio de e-mail pelo AspEmail"strMensagem = strMensagem & strFromName & vbCRLFstrMensagem = strMensagem & strFromEmail & vbCRLFstrMensagem = strMensagem & strtelefone & vbCRLFstrMensagem = strMensagem & strdescricao & vbCRLF...Mail.BodyText = strMensagem'Corpo do e-mailtente assim....

[atpaim 0]

Agora exibe outro erro:

 

Persits.MailSender.4 error '800a0006'

 

554 mailfrom without @ is administratively denied

 

/enviar.asp, line 45

 

 

 

 

<%Dim MailDim strFromName ' nome do remetenteDim strFromEmail ' endereço de Email do remetenteDim strToEmail ' endereço do destinatarioDim strtelefone ' telefone do clienteDim strdestino ' destinoDim strSubject, strBody 'corpo da mensagemDim strhost ' nome do servidorstrhost = "mail.meuservidor.br" 'altere o nome para o seu servidor de mensagensstrFromName = Trim(Request.Form("nome"))strFromEmail = Trim(Request.Form("email"))strtelefone = Trim(Request.Form("telefone"))strdescricao = Trim(Request.Form("descricao"))Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = strHoststrSubject = "Teste"Mail.AddAddress "pinauna.digital@bol.com.br"Mail.Subject = "Subject" ' Assunto do e-mailstrMensagem = "Teste de envio de e-mail pelo AspEmail"strMensagem = strMensagem & strFromName & vbCRLFstrMensagem = strMensagem & strFromEmail & vbCRLFstrMensagem = strMensagem & strtelefone & vbCRLFstrMensagem = strMensagem & strdescricao & vbCRLFMail.SendSet Mail = Nothing ' exibe mensagem de agradecimento%>Response.Redirect "retorno.asp"%>