Ir para conteúdo

POWERED BY:

Arquivado

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

Rodrigo 3R

Form para envio de e-mail

Por , em ASP Clássico

Recommended Posts

Rodrigo 3R    0

Rodrigo 3R
Postado

Galera, o que acontece é o seguinte, tenho um form para envio de e-mail, porém existe uma cgi para fazer este envio, até então se fosse para enviar um e-mail tudo bem pelo form, porem será feito um padrão e uma mala direta, meu problema é como fazer rolar isto.... coloquei o JS para tentar ajudar mas nao ta rolando, quem tiver ideia melhor... agradeço.... valeus

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%..Comandos..	If Not Rs.EOF then  '»»Existem empresas no intervalo solicitado.		Aviso = "<font color='#0270A2'>Mensagem enviada com sucesso!</font>"		'»»INÍCIO: Rotina p/ enviar e-mail p/ cada usuário individualmente.		While Not Rs.EOF			'»»INÍCIO: Rotina p/ pegar cód. atual da empresa de um funcionário.			If QuemUsaSist = "0" then '»»HI-TEC				CodAtual = Rs("DPCliente")			ElseIf QuemUsaSist = "1" then  '»»Condomínio on-line, etc...						CodAtual = Rs("DPEmpresa")					End If			'»»FIM: Rotina p/ pegar cód. atual da empresa de um funcionário.			DPNome = Trim(Rs("DPNome"))			DPEMail = Trim(Rs("DPEMail"))			response.Write("<script>alert('Teste')</script>")			%>				<script language="javascript">				FA 			= "<%=dpemail%>"//				FN 			= FromName//				EA 			= EmailAddresses//				CC 			= CcAddresses				Body 		= "<%=Mensagem%>"				Subject 	= "<%=assunto%>"//				Attach 		= Attach//				UserName 	= UserName//				Password 	= Password//				Host 		= Host//				Autentica 	= Autentica					url = "http://www.xyz.com.br/cgi/cgimail.exe/email?&FA="+FA+"&Body="+Body+"&Subject="+Subject					window.open(url,"","width=200,height=300")			</script>			<%			Response.Write "<br><b>CodAtual:</b> " & CodAtual & "<br>" & CorpoMail & "<p>"			Rs.MoveNext '»»Move p/ o próximo registro.		Wend		'»»FIM: Rotina p/ enviar e-mail p/ cada usuário individualmente.						Response.Write "<br><b>CodAtual:</b> " & CodAtual & "<br>" & CorpoMail & "<p>"	ElseIf Rs.EOF then   '»»NÃO existem empresas no intervalo solicitado.		Aviso = "<font color='#FF0000'>Não existem empresas no intervalo solicitado!</font>"	End IfEnd If'»»FIM: Rotina p/ validar os dados fornecidos p/ o envio de e-mail.%><html><head><title>Envio de E-mail - Confirmação</title></head><body>....Comandos..%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Se fosse mandar normal, usando um FormMail como seria o seu FORM completo? Poste que assim poderemos tentar adaptar.

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