Ir para conteúdo
Fórum Script Brasil
  • 0

Enviar E-mail Pelo Asp

bonoddr

Perguntado por bonoddr,

 Share

Pergunta

bonoddr

bonoddr

Postado
Postado

Vou colocar o código que encontrei em ASP para enviar um e-mail a partir de um formulário:

<%

Dim var_nome, var_mail, var_tel, var_tema, var_assunto, var_msg, var_to, EnviarMail, MsgBody

'aqui atribuo às variáveis seus respectivos conteúdos dos campos do formulário
var_nome =  Request.QueryString("Nome") 
var_mail =  Request.QueryString("Email") 
var_tel =  Request.QueryString("Telefone") 
var_tema =  Request.QueryString("Tema") 
var_assunto =  Request.QueryString("Assunto") 
var_msg =  Request.QueryString("Msg") 
var_to = "emailTeste@serv.com.br"
MsgBody = "OI"

'agora instancio o objeto de CDONTS através da variável EnviarMail
Set EnviarMail = Server.CreateObject("CDONTS.NewMail")

EnviarMail.To = var_to
EnviarMail.From = var_mail
EnviarMail.Subject = var_tema
EnviarMail.Body = MsgBody
EnviarMail.Importance = 1
EnviarMail.BodyFormat = 1
EnviarMail.MailFormat = 0
'obtenho erro de permissão (?) na linha abaixo
EnviarMail.Send
Set EnviarMail = Nothing
%>

Alguém sabe porque não consigo fazer o código funcionar? huh.gif

Grato pela atenção.

bonoddr

Link para o comentário
Compartilhar em outros sites

27 respostass a esta questão

Posts Recomendados

  • 0
bonoddr

bonoddr

Postado
  • Autor
Postado

Eu tenho o cdonts.dll sim, e eu mando os arquivos pra uma máquina remota. De lá eu posso testar a página também.

Vocês podem copiar/colar o código e verem se funciona no computador de vocês? Valeu e no aguardo,

bonoddr

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

mas erro de permissao negada.. geralmente é config do servidor que ta errada..

eu não posso testar aqui, pois não tenho cdons instalado, e meu servidor da web, usa jmail...

Link para o comentário
Compartilhar em outros sites
  • 0
bonoddr

bonoddr

Postado
  • Autor
Postado

Pessoal, muito obrigado a todos pela atenção, mas eu ainda não consegui resolver o meu problema. sad.gif

A diferença é que eu disponibilizarei a página no servidor, então não posso fazer isso localmente. Como contornaria este problema de permissão, já que não posso solicitar ao servidor que mude as configurações de acesso? blink.gif

bonoddr

Link para o comentário
Compartilhar em outros sites
  • 0
resopi

resopi

Postado
Postado

(tou ficando importante já colocaram artigo meu no forum biggrin.gif )

Vamus lá amigo...

O Cdonts eu particulamente não gosto dele pois ele usa o servidor SMTP que vem com o IIS... primeiramente você tem que verificar se o sseu IIS esta com o serviço SMTP instalado, depois de verificado você tem qu ever se seu Firewall não esta bloqueando a porta 25 que é aporta padrão o servidor SMTP caso você esta usando o Windows XP professional você provavelmente vai precisar mecher na configurção do Firewall interno dele!!!

t+

Link para o comentário
Compartilhar em outros sites
  • 0
mariofdf

mariofdf

Postado
Postado

blink.gif Aproveitando.

Cade o resto da série de 4 artigos que voce prometeu, e não se esque RESOPI de quando for falar do aspmail, ensinar como fazer fila de envio para facilitar na hora de montar e-mail lista.!!! já estou pedindo muito... laugh.giflaugh.gifbiggrin.giflaugh.giflaugh.gif

Link para o comentário
Compartilhar em outros sites
  • 0
Victor

Victor

Postado
Postado
Vou colocar o código que encontrei em ASP para enviar um e-mail a partir de um formulário:

<%

Dim var_nome, var_mail, var_tel, var_tema, var_assunto, var_msg, var_to, EnviarMail, MsgBody

'aqui atribuo às variáveis seus respectivos conteúdos dos campos do formulário
var_nome =  Request.QueryString("Nome") 
var_mail =  Request.QueryString("Email") 
var_tel =  Request.QueryString("Telefone") 
var_tema =  Request.QueryString("Tema") 
var_assunto =  Request.QueryString("Assunto") 
var_msg =  Request.QueryString("Msg") 
var_to = "emailTeste@serv.com.br"
MsgBody = "OI"

'agora instancio o objeto de CDONTS através da variável EnviarMail
Set EnviarMail = Server.CreateObject("CDONTS.NewMail")

EnviarMail.To = var_to
EnviarMail.From = var_mail
EnviarMail.Subject = var_tema
EnviarMail.Body = MsgBody
EnviarMail.Importance = 1
EnviarMail.BodyFormat = 1
EnviarMail.MailFormat = 0
'obtenho erro de permissão (?) na linha abaixo
EnviarMail.Send
Set EnviarMail = Nothing
%>

Alguém sabe porque não consigo fazer o código funcionar? huh.gif

Grato pela atenção.

bonoddr

Eu fiz um formulario de envio de email, pode ser com o formulario, ou você so quer o codigo d envio de email???

Link para o comentário
Compartilhar em outros sites
  • 0
resopi

resopi

Postado
Postado
blink.gif Aproveitando.

Cade o resto da série de 4 artigos que voce prometeu, e não se esque RESOPI de quando for falar do aspmail, ensinar como fazer fila de envio para facilitar na hora de montar e-mail lista.!!! já estou pedindo muito... laugh.giflaugh.gifbiggrin.giflaugh.giflaugh.gif

Cara estarie lançando em breve mais um artigo da serie.... hj eu coloque um artigo novo mas não é da serie agora é só aguadar a moderção do site liberar o artigo....

t+

Link para o comentário
Compartilhar em outros sites
  • 0
[ GuTo ]

[ GuTo ]

Postado
Postado

Esse erro já aconteceu comigo na ASPECTO.

O CDONTS funcionava, depois de algum tempo, devem ter feito alteraçãos no servidor (as tais permissões) e pá, não deu mais.

Dava o mesmo erro, no .SEND.

Então como todos disseram, o problema está no servidor.

Logo seu código está correto e, uma dica, troque de servidor, oras... oras... hehehe.

Link para o comentário
Compartilhar em outros sites
  • 0
bonoddr

bonoddr

Postado
  • Autor
Postado

Eu fiz um formulario de envio de email, pode ser com o formulario, ou você so quer o codigo d envio de email???

Victor, se puder, me manda o formulário também, eu comparo com o daqui..

Engraçado é que o problema é com a minha máquina mesmo, pois quando mandei pro servidor e enviei os dados a partir da mesma página no servidor, deu certo! Não dá mais pra entender hehehehee

[ GuTo ], eu não posso trocar de servidor, já que tenho que disponibilizar para a empresa, então tenho que colocar no servidor da mesma! tongue.gif

resopi, li o seu artigo no portal asp do scriptbrasil, muito interessante. Mas tenho uma pergunta: como fazer para deixar o usuário especificar o arquivo que deseja enviar em mensagem.AttachFile?

Valeu pela atenção galera! cool.gif

bonoddr

Link para o comentário
Compartilhar em outros sites
  • 0
Victor

Victor

Postado
Postado (editado)

Ta aki...Eu já fiz um com js, pra ter os campos obrigatorios, e so copiar os codigos d baixo e colocar na mesma pasta:

function_email.asp

<%
function email_cdonts(de_email, para_email, subject,  mensagem)

Set objmail = Server.CreateObject("CDONTS.NewMail")
objmail.mailformat=0 'para enviar html como mensagem
objmail.bodyformat=0 'para enviar html como mensagem
objmail.from = de_email
objmail.to = para_email
objmail.subject = subject
objmail.body = mensagem
objmail.send
Set objmail = nothing

end function
%>
function_system.js 
function function_system(){
	if (document.formulario.nome.value==''){
  alert('Por favor, preencha o campo Nome');
  document.formulario.nome.focus();
  return(false);
	}
	if (document.formulario.cidade.value==''){
  alert('Por favor, preencha o campo Cidade');
  document.formulario.cidade.focus();
  return(false);
	}     
	if (document.formulario.CEP.value==''){
  alert('Por favor, preencha o campo Cep');
  document.formulario.CEP.focus();
  return(false);
	}  
	if (document.formulario.telefone.value==''){
  alert('Por favor, preencha o campo Telefone');
  document.formulario.telefone.focus();
  return(false);
	} 
	if (document.formulario.email.value==''){
  alert('Por favor, preencha o campo E-mail');
  document.formulario.email.focus();
  return(false);
	}              
  var str=document.formulario.email.value
  var filter=/^.+@...+..+..{2,3}$/
  if (filter.test(str))
  testresults=true
  else
  {
  alert("Por favor, preencha o campo E-mail corretamente")
  testresults=false
  formulario.email.focus();
  return (testresults)
  }
	if (document.formulario.icq.value==''){
  alert('Por favor, preencha o campo Icq');
  document.formulario.icq.focus();
  return(false);
  }  
	if (document.formulario.idade.value==''){
  alert('Por favor, preencha o campo Idade');
  document.formulario.idade.focus();
  return(false);
  }  
	if (document.formulario.site.value==''){
  alert('Por favor, preencha o campo Site');
  document.formulario.site.focus();
  return(false);
  }  
	if (document.formulario.descricao.value==''){
  alert('Por favor, preencha o campo Descrição');
  document.formulario.descricao.focus();
  return(false);
}
}
Formulario.asp 
<!--#include file="function_system.asp"-->
<%
if request.form("acao")<>"" then

nome = request.form("nome")
cidade = request.form("cidade")
CEP = request.form("CEP")
telefone = request.form("telefone")
email = request.form("email")
icq = request.form("icq")
idade = request.form("idade")
site = request.form("site")
descricao = request.form("descricao")

  mensagem="Formulario de envio<br><br>Nome: "&nome&"<br>Cidade: "&cidade&"<br>CEP: "&CEP&"<br>Telefone: "&telefone&"<br>E-mail: "&email&"<br>ICQ: "&icq&"<br>Idade: "&idade&"<br>Site: "&site&"<br><br>Descrição do site: "&descricao
  call email_cdonts (request.form("email"), "email@uol.com.br", "Formulario de envio",  mensagem)%>
<br><br><br><br><br><br><br>
<div align='center'><p><img src='http://www.alfastation.com.br/idesign/imagens/enviocorreto.gif'></p>
<p>&nbsp;</p>
<p><font face='Verdana' size='2'><a href='www.wmonline.com.br'><font color='#0066CC'>Clique aqui para voltar para p&aacute;gina principal</font></a></font></p>
</div>
<%else%>
<div align='center'>
<form name='formulario' action='formulario.asp' method='POST' onSubmit='return function_system();'>
<table width='99%' border='0' align='center'>
<tr>
<td height='20' width='174' valign='middle'>
<div align='right'><font face='Verdana' size='2' color='#000000'>Nome Completo:</font></div>
</td>
<td valign='middle' width='433'><font face='Verdana' size='2'>
<input name='nome' size='45' maxlength='100' style='font-family: Verdana; font-size: 9 pt; color: #333333; background-color: #ECECEC; border: 1 solid #808080'>
</font></td>
</tr>
<tr>
<td height='20' width='174' valign='middle'>
<div align='right'><font face='Verdana' size='2' color='#000000'>Cidade/Estado:</font></div>
</td>
<td valign='middle' width='433'><font face='Verdana' size='2'>
<input name='cidade' size='45' maxlength='100' style='font-family: Verdana; font-size: 9 pt; color: #333333; background-color: #ECECEC; border: 1 solid #808080'>
</font></td>
</tr>
<tr>
<td height='20' width='174' valign='middle'>
<div align='right'><font face='Verdana' size='2' color='#000000'>CEP:</font></div>
</td>
<td valign='middle' width='433'><font face='Verdana' size='2'>
<input name='CEP' size='30' maxlength='100' style='font-family: Verdana; font-size: 9 pt; color: #333333; background-color: #ECECEC; border: 1 solid #808080'>
</font></td>
</tr>
<tr>
<td height='20' width='174' valign='middle'>
<div align='right'><font face='Verdana' size='2' color='#000000'>DDD - Telefone:</font></div>
</td>
<td valign='middle' width='433'><font face='Verdana' size='2'>
<input name='telefone' size='30' maxlength='100' style='font-family: Verdana; font-size: 9 pt; color: #333333; background-color: #ECECEC; border: 1 solid #808080'>
</font></td>
</tr>
<tr>
<td height='20' width='174' valign='middle'>
<div align='right'><font face='Verdana' size='2' color='#000000'>E-Mail:</font></div>
</td>
<td valign='middle' width='433'><font face='Verdana' size='2'>
<input name='email' size='45' maxlength='100' style='font-family: Verdana; font-size: 9 pt; color: #333333; background-color: #ECECEC; border: 1 solid #808080'>
</font></td>
</tr>
<tr>
<td height='20' width='174' valign='middle'>
<div align='right'><font face='Verdana' size='2' color='#000000'>ICQ:</font></div>
</td>
<td valign='top' width='433'><font face='Verdana' size='2'>
<input name='icq' size='30' maxlength='100' style='font-family: Verdana; font-size: 9 pt; color: #333333; background-color: #ECECEC; border: 1 solid #808080'>
</font></td>
</tr>
<tr>
<td height='20' width='174' valign='middle'>
<div align='right'><font face='Verdana' size='2'><font color='#000000'>Idade:</font></font></div>
</td>
<td valign='top' width='433'><font face='Verdana' size='2'>
<input name='idade' size='6' maxlength='3' style='font-family: Verdana; font-size: 9 pt; color: #333333; background-color: #ECECEC; border: 1 solid #808080'>
</font></td>
</tr>
<tr>
<td height='20' width='174' valign='middle'>
<div align='right'><font face='Verdana' size='2'><font color='#000000'>Home Page (URL):</font></font></div>
</td>
<td valign='top' width='433'><font face='Verdana' size='2'>
<input name='site' size='45' maxlength='100' style='font-family: Verdana; font-size: 9 pt; color: #333333; background-color: #ECECEC; border: 1 solid #808080' value='http://'>
</font></td>
</tr>
<tr>
<td height='11' width='174' valign='middle'>&nbsp;</td>
<td valign='top' width='433' height='11'>&nbsp;</td>
</tr>
<tr>
<td height='20' colspan='2' valign='middle'>
<div align='center'><font face='Verdana' size='1' color='#000000'><b><font style='FONT-SIZE: 9pt' size='2'>Descrição:</font></b></font></div>
</td>
</tr>
<tr>
<td height='20' colspan='2' valign='top'>
<div align='right'><font face='Verdana' size='2'></font></div>
<div align='center'><font face='Verdana' size='1'>
<textarea name='descricao' rows='5' wrap='PHYSICAL' cols='60' style='background-color: #ECECEC; color: #333333; font-family: Verdana; font-size: 9 pt; border: 1 solid #808080'></textarea>
</font></div>
</td>
</tr>
</table>
<p style='margin-top: 0; margin-bottom: 0' align='center'><b><font face='Arial' size='3'><b><font color='#000000'>
</font></b></font><font size='2' face=verdana><b><font face='Verdana' size='2' color='#006699'>
<input type='Hidden' name='acao' value='enviar'><input type='submit' value='Enviar' style='color: #333333; font-family: Arial; font-size: 8 pt; background-color: #CCCCCC; font-weight: bold; border: 1 solid #808080' name='enviar'>
</font></b> <b><font face='Verdana' size='2' color='#006699'>
<input type='reset' value='Limpar' style='font-family: Arial; font-size: 8pt; color: #333333; font-weight: bold; background-color: #CCCCCC; border: 1 solid #808080' name='reset'>"&_
</font></b></font><font face='Verdana' size='2' color='#006699'> 
<br>
</font></b></p>
</form>
</div>
<%end if%>
<!--#include file="function_email.asp"-->

cara esse dai eu fiz hj, agora eu vou fazer um de nome, email, e texto pra vc, e te entrego ate anoitr, por enquanto usa esse, já esta funcionando wink.gif

N eskece q isso e cdonts blink.gif

OBS: Coloca td em uma pastaso, jaja posto um outro formulario aki wink.gif

[]'s

Victor

Editado por Victor
Link para o comentário
Compartilhar em outros sites
  • 0
resopi

resopi

Postado
Postado

resopi, li o seu artigo no portal asp do scriptbrasil, muito interessante. Mas tenho uma pergunta: como fazer para deixar o usuário especificar o arquivo que deseja enviar em mensagem.AttachFile?

ola amgo para enviar você tera que fazer primeiro um sistema de UPLOAD slavar o arquivo em disco enviar e dpois apgar.... eu aconselho faser tudo isso por FSO semajuda de componentes...

quanto ao rro você viu se o Servidor SMTP esta instaldo em seu pc junto com o IIS???ele precisa estar instlado pra rodar o cdonts

t+

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

FSO é File Scripting Object.

Traduzindo.. é objeto de acesso à arquivos.

Com ele você pode manipular pastas e arquivos do servidor.

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

da uma olhada:

FileSystemObject de uma vez por todas no Imasters

abraços

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,1k
    • Posts
      651,8k
×
×
  • Criar Novo...