Ir para conteúdo

POWERED BY:

Arquivado

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

reinaldo polato

Envio de e-mail

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado

olha un exemplo simples de anexar

 

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="teste@dominio.com"
myMail.To="teste2@dominio.com"
myMail.TextBody="Esta é uma mensagem."
myMail.AddAttachment "c:\meusdocumentos\test.txt"
myMail.Send
set myMail=nothing
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

reinaldo polato    1

reinaldo polato
Postado

e ai xanburzum beleza é o seguinte eu testei esse codigo seu eu mudei o caminho do mymail.addattachment "c:\meusdocumentos\test.txt"

apareceu a pagina em branco como que eu faço pra aparecer a pagina com o anexar pra enviar por e-mail

valeu pela ajuda ai

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

olha o exemplo usando o componente SaFileUp para enviar um arquivo para a upload e em seguida usar o CDOSYS para enviar a mensagem com este arquivo anexado.

 

<html>
 <head>
 <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 <title>Exemplo Locaweb</title>
 <style type="text/css">
  <!--
 .texto {
 font-family: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif;
 font-size: 12px; color: #666666; text-decoration: none;
 }
 h4 {
 font-family: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif;
 font-size: 16px; color: #666666; font-weight: bold; text-decoration: none;
 }
 input {
 font-family: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif;
 font-size: 10px; color: #666666; font-weight: bold; text-decoration: none;
 background-color: #E8E8E8;
 }
 file {
 font-family: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif;
 font-size: 10px; color: #666666; font-weight: bold; text-decoration: none;
 background-color: #E8E8E8;
 }
 textarea {
 font-family: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; 
 font-size: 10px; color: #666666; font-weight: bold; text-decoration: none;
 background-color: #E8E8E8;
 }
 -->
 </style>
 </head>
 <%
 v_situacao = " disabled" 'variavel que habilita os campos do e-mail
 Select Case Request.QueryString("acao") 'Verifica parametro acao para executar determinado script
    Case "upload" 'caso a acao seja upload, executa script do SaFileUp
        Set obj_Upload = Server.CreateObject("SoftArtisans.FileUp")
        obj_Upload.Path = Server.MapPath("./upload") 'local onde será gravado o arquivo
        obj_Upload.Form("File").Save
        Session("arquivo") = obj_Upload.Form("File").ServerName 'recupera o nome do arquivo no servidor
        Response.Write "<script>alert('Total de Bytes Enviados: " & obj_Upload.TotalBytes & "')</script>"
        Set obj_Upload = Nothing
        v_situacao = "" 'habilita os campos pra enviar o e-mail
        v_foco = " onLoad=""document.frm_email.txt_nome_rem.focus();""" 'coloca o cursor no campo do form de e-mail
    Case "email" 'caso a acao seja email, executa script do CDOSYS
        Set objCDOSYSMail = Server.CreateObject("CDO.Message")
        Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 'objeto de configuração do CDO
        objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "seu SMTP"
        objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
        objCDOSYSCon.Fields.update
        Set objCDOSYSMail.Configuration = objCDOSYSCon
        objCDOSYSMail.From = Trim(Request.Form("txt_nome_rem")) & "<" & Trim(Request.Form("txt_email_rem")) & ">"
        objCDOSYSMail.To = Trim(Request.Form("txt_nome_para")) & "<" & Trim(Request.Form("txt_email_para")) & ">"
        objCDOSYSMail.AddAttachment(Session("Arquivo")) 'anexa o arquivo
        objCDOSYSMail.Subject = Request.Form("txt_assunto")
        objCDOSYSMail.TextBody = Request.Form("txt_corpo")
        objCDOSYSMail.Send 'envia o e-mail com o anexo
        Set objCDOSYSMail = Nothing
        Set objCDOSYSCon = Nothing
        Response.Write "<script>alert('E-mail enviado com Sucesso!')</script>"
        Session("Arquivo") = ""
 End Select
 %>
 <body<%=v_foco%>>
 <div align="center" class="texto">
 <h4><strong>SaFileUp + CDOSYS</strong></h4>
 <p>Neste exemplo faremos o upload de um arquivo usando o componente SaFileUp para anexar em 
um e-mail que será enviado pelo componente CDOSYS.</p>

 <form action="?acao=upload" method="post" enctype="multipart/form-data" name="frm_upload" id="frm_upload">
 <table width="500" border="1" cellspacing="0" cellpadding="2">
 <tr><th width="390" scope="col"><div align="center"><input name="file" type="file" size="40"></div></th>
 <th width="96" scope="col"><input name="Upload" type="submit" id="Upload" value="Upload"></th>
 </tr></table></form>

 <form action="?acao=email" method="post" name="frm_email" id="frm_email">
 <table width="500" border="1" cellspacing="0" cellpadding="2"><tr><th colspan="4">Remetente</th></tr>
 <tr><th width="55">Nome:</th><td width="181"><div align="left">
 <input name="txt_nome_rem" type="text" id="txt_nome_rem" size="30"<%=v_situacao%>>
 </div></td><th width="55">Email:</th><td>
 
 <div align="left">
 <input name="txt_email_rem" type="text" id="txt_email_rem" size="30"<%=v_situacao%>>
 </div></td></tr><tr><th colspan="4">Destinatário</th></tr>
 <tr><th>Nome:</th><td>

 <div align="left">
 <input name="txt_nome_para" type="text" id="txt_nome_para" size="30"<%=v_situacao%>>
 </div></td><th>Email:</th><td>

 <div align="left">
 <input name="txt_email_para" type="text" id="txt_email_para" size="30"<%=v_situacao%>>
 </div></td></tr><tr><th>Assunto:</th><td>

 <div align="left">
 <input name="txt_assunto" type="text" id="txt_assunto" size="30"<%=v_situacao%>>
 </div></td><th>Arquivo:</th><td>

 <div align="left">
 <input name="txt_arquivo" type="text" disabled id="txt_arquivo" value="<%=Session("arquivo")%>" size="30">
 </div></td></tr><tr><th colspan="4">Mensagem</th>
 </tr><tr><td colspan="4">

 <div align="center">
 <textarea name="txt_corpo" cols="75" rows="5" id="txt_corpo"<%=v_situacao%>></textarea>
 </div></td></tr><tr><td colspan="4">

 <div align="right">
 <input name="Enviar" type="submit" id="Enviar" value="Enviar"<%=v_situacao%>>
 </div></td></tr></table></form>
 </div>

 </body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

reinaldo polato    1

reinaldo polato
Postado

e ai gente beleza

eu fiz um codigo assim

 

 

<%
'on error resume next
Para=Request.Form("To")
Assunto=Request.Form("Subject")
Mensagem=Request.form("Body")



sch = "http://schemas.microsoft.com/cdo/configuration/" 

Set cdoConfig = Server.CreateObject("CDO.Configuration") 


cdoConfig.Fields.Item(sch & "sendusing") = 2 
cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1 
cdoConfig.Fields.Item(sch & "smtpusessl") = True
cdoConfig.Fields.Item(sch & "smtpserverport") = 465
cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.gmail.com" 
cdoConfig.Fields.Item(sch & "sendusername") = "meue-mail@dominio.com" 
cdoConfig.Fields.Item(sch & "sendpassword") = "minhasenha" 
cdoConfig.fields.update 

Set cdoMessage = Server.CreateObject("CDO.Message") 
Set cdoMessage.Configuration = cdoConfig 

cdoMessage.From = "meue-mail@dominio.com" 
cdoMessage.To = "meue-mail@dominio.com"
cdoMessage.Subject = Assunto 
cdoMessage.HTMLBody = Mensagem
objCDOSYSMail.AddAttachment("c:\menu\envia\c://localhost/recebe_formulario.asp\enviar.txt") 
x = cdoMessage.Send 

if x > 0 then
	Response.Write x
	Response.End
	else
	response.write "Sua mensagem foi enviada com sucesso!"
End if

Set cdoMessage = Nothing 
Set cdoConfig = Nothing 


%>
nesse comando é pra anexar o arquivo e enviar por e-mail mais ele não aparece no e-mail

valeu gente pela ajuda de voces

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

altere o

 

objCDOSYSMail.AddAttachment("c:\menu\envia\c://localhost/recebe_formulario.asp\enviar.txt")

para isso

 

cdoMessage.AddAttachment("c:\menu\envia\c://localhost/recebe_formulario.asp\enviar.txt")

Compartilhar este post

Link para o post
Compartilhar em outros sites

reinaldo polato    1

reinaldo polato
Postado

e ai xanburzum beleza

esse codigo está funcionando mais so para arquivo txt e quando eu coloquei esse outro arquivo drivermax.exe ele deu erro cdoMessage.AddAttachment("c:\adv\drivermax.exe")

 

Active Server Pages, ASP 0113 (0x80004005)

O tempo máximo de execução de um script foi excedido. Você pode alterar esse limite especificando um novo valor para a propriedade Server.ScriptTimeout ou alterando o valor nas ferramentas de administração do IIS.

/adv/recebe_email.asp

 

 

esse é o erro

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você esta tentando anexar um arquivo muito grande...

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

isso depende do seu Host, tem host k limita o tamanho de envio de adados, precoisa ver junto ao seu server...

Compartilhar este post

Link para o post
Compartilhar em outros sites

reinaldo polato    1

reinaldo polato
Postado

e ai gente beleza

é assim eu tenho um sistema ai quando eu entro na pagina de consulta eu clico eu seleciono um nome Tipo RazaoSocial = Reinaldo e aparece assim

2

0000000

29 dias

Reinaldo

SP

(11)000-0000

00000000

Pet

100000

000000

0000000

000000000

polatoreinaldo@gmail.com

Reinaldo

10/10/1960

109

Reinaldo

Rua

Vila

Rua Teles Peixoto Bairro Jardim França

2¨Alcaparras Média ¨Pet¨

São Paulo

000000000

2

00000

28 dias

Reinaldo

 

11 0000000

0000000

Pet

000000

R$ 200,00

R$ 200,00

11 9999999

meuemail@hotmail.com

Reinaldo

10/10/1960

 

 

eu queria enviar isso por e-mail como eu faço

 

meu codigo é esse

 

<title> Register Products </title>
<table align="left" width="550" border="1">
<form type="text" name="frm1" Method="Post" action="recebe_formulario.asp">
			<tr>
		<td>
		</tr>
		</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">CodCliente</font></td>
<td width="423" colspan="8"><input type="text" name="CodCliente" Size="20"></td>
    <td valign="center" class="exemplo">
            Ex.: REsp 12345678910
				<tr>
			<td>
			</tr>
			</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">RazaoSocial</font></td>
<td width="423" colspan="8"><input type="text" name="RazaoSocial" Size="20"></td>
				<tr>
			<td>
			</tr>
			</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">Endereco</font></td>
<td width="423" colspan="8"><input type="text" name="Endereco" Size="20"></td>
				<tr>
			<td>
			</tr>
			</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">Bairro</font></td>
<td width="423" colspan="8"><input type="text" name="Bairro" Size="20"></td>
				<tr>
			<td>
			</tr>
			</td>
<td bgcolor="#336699" width="10%" align="left"><font color="#ffffffr">Cep</font></td>
<td width="50%" colspan="8" align="left" ><select name="Cep" Style="WIDTH=100%">
						<option value="" selected>Select</option>
						<option value="Rua Padre Luciano Jardim frança">02337080</option>
						<option value="Rua Belchior Barreiros Bairro Vila Aurora
									   Estado São Paulo
									   Cep 02410060">02410060</option>
						<option value="Rua Teles Peixoto Bairro Jardim França ">02337050</option>
						<option value="AP">AMAPÁ</option>
						<option value="BA">BAHIA</option>
						<option value="CE">CEARÁ</option>
						<option value="DF">DISTRITO FEDERAL</option>
						<option value="ES">ESPIRÍTO SANTO</option>
						<option value="GO">GOIÁS</option>
						<option value="MA">MARANHÃO</option>
						<option value="MT">MATO GROSSO</option>								
						<option value="MS">MATO GROSSO DO SUL</option>
						<option value="MG">MINAS GERAIS</option>								
						<option value="PA">PARÁ</option>
						<option value="PB">PARAÍBA</option>
						<option value="PR">PARANÁ</option>
						<option value="PE">PERNAMBUCO</option>								
						<option value="PI">PIAUÍ</option>								
						<option value="RJ">RIO DE JANEIRO</option>
						<option value="RN">RIO GRANDE DO NORTE</option>
						<option value="RS">RIO GRANDE DO SUL</option>								
						<option value="RO">RONDÔNIA</option>
						<option value="RR">RORAIMA</option>
						<option value="SC">SANTA CATARINA</option>
						<option value="SE">SERGIPE</option>
						<option value="SP">SÃO PAULO</option>
						</select></td>
				<tr>
			<td>
			</tr>
			</td>
<td bgcolor="#336699"  width="111" align="left" ><font color="#ffffffr">DescricaoProduto</font></td>
 <td width="600" colspan="8"  align="left">
		<select name="DescricaoProduto" Style="WIDTH=167; height:22">
						  	<option value="">Select</option>
						  
                            <option value="1¨Alcaparras Miúda Capuccine ¨Pet¨31">1</option>
						  
                            <option value="2¨Alcaparras Média ¨Pet¨">2</option>
						  
                            <option value="3¨Alcaparras Miúda ¨Pet¨28,8">3</option>
						  
                            <option value="4¨Aceto Balsâmico ¨Vidro¨70">4</option>
						  
                            <option value="5¨Aceto Balsâmico ¨Vidro¨98">5</option>
						  
                            <option value="6¨Anchovas em Salmoura ¨Lata¨103">6</option>
						  
                            <option value="7¨Aspargos ¨Vidro¨66">7</option>
						  
                            <option value="12¨Alcaparras Miúda¨Barrica¨12,3">12</option>
						  
                            <option value="13¨Alcaparras Média ¨Barrica¨">13</option>
						  
                            <option value="14¨Azeite Extra Virgem ¨Vidro¨157">14</option>
						  
                            <option value="15¨Azeite Extra Virgem ¨Vidro¨126">15</option>
						  
                            <option value="16¨Azeite Extra Virgem ¨Lata¨242">16</option>
						  
                            <option value="18¨Azeite Extra Virgem ¨Pet¨274">18</option>
						  
                            <option value="19¨Azeite Extra Virgem - Linea D’oro¨Vidro¨138">19</option>
						  
                            <option value="21¨Azeite de Bagaço de Oliva Autran¨Pet¨190">21</option>
						  
                            <option value="22¨Azeitonas Preta Azapa ¨Barrica¨10,5">22</option>
						  
                            <option value="23¨Azeitonas Preta Azapa ¨Pet ¨26,5">23</option>
						  
                            <option value="24¨Azeitonas Preta Azapa ¨Balde¨160">24</option>
						  
                            <option value="25¨Azeitonas Preta Fatiada ¨Pet¨26,5">25</option>
						  
                            <option value="26¨Azeitonas Preta Fatiada ¨Balde¨185">26</option>
						  
                            <option value="27¨Azeitonas Preta Fatiada ¨Barrica¨10,8">27</option>
						  
                            <option value="28¨Azeitonas Preta Miúda ¨Barrica¨8,4">28</option>
						  
                            <option value="29¨Azeitonas Preta Miúda ¨Pet ¨21,2">29</option>
						  
                            <option value="30¨Azeitonas Preta Miúda ¨Balde¨145">30</option>
						  
                            <option value="31¨Azeitonas Preta Média ¨Barrica¨9,4">31</option>
						  
                            <option value="32¨Azeitonas Preta Média ¨Pet ¨21,2">32</option>
						  
                            <option value="33¨Azeitonas Preta Média  ¨Balde¨160">33</option>
						  
                            <option value="34¨Azeitonas Preta Picual Grauda¨Barrica¨9,7">34</option>
						  
                            <option value="35¨Azeitonas Preta Picual Graúda¨Pet¨23,8">35</option>
						  
                            <option value="36¨Azeitonas Preta Picual Graúda¨Balde¨164">36</option>
						  
                            <option value="37¨Azeitonas Preta S/ Caroço¨Barrica¨11">37</option>
						  
                            <option value="38¨Azeitonas Preta S/ Caroço¨Pet¨25">38</option>
						  
                            <option value="39¨Azeitonas Preta S/ Caroço¨Balde¨187">39</option>
						  
                            <option value="40¨Azeitonas Verde Graúda ¨Barrica¨">40</option>
						  
                            <option value="41¨Azeitonas Verde Graúda ¨Pet¨">41</option>
						  
                            <option value="42¨Azeitonas Verde Graúda ¨Balde¨">42</option>
						  
                            <option value="43¨Azeitonas Verde Fatiada ¨Barrica¨9,9">43</option>
						  
                            <option value="44¨Azeitonas Verde Fatiada ¨Pet ¨24,5">44</option>
						  
                            <option value="45¨Azeitonas Verde Fatiada ¨Balde¨170">45</option>
						  
                            <option value="46¨Azeitonas Verde Gordal ¨Barrica¨12,6">46</option>
						  
                            <option value="47¨Azeitonas Verde Gordal ¨Pet ¨29,5">47</option>
						  
                            <option value="48¨Azeitonas Verde Gordal ¨Balde¨208">48</option>
						  
                            <option value="55¨Azeitonas Verde Média ¨Barrica¨5,7">55</option>
						  
                            <option value="56¨Azeitonas Verde Média ¨Pet ¨17">56</option>
						  
                            <option value="57¨Azeitonas Verde Média ¨Balde¨104">57</option>
						  
                            <option value="58¨Azeitonas Verde Recheada ¨Barrica¨10,4">58</option>
						  
                            <option value="59¨Azeitonas Verde Recheada ¨Pet ¨26,5">59</option>
						  
                            <option value="60¨Azeitonas Verde Recheada ¨Balde¨175">60</option>
						  
                            <option value="61¨Azeitonas Verde S/ Caroço ¨Barrica¨10,4">61</option>
						  
                            <option value="62¨Azeitonas Verde S/ Caroço ¨Pet ¨24">62</option>
						  
                            <option value="63¨Azeitonas Verde S/ Caroço ¨Balde¨175">63</option>
						  
                            <option value="64¨Beterrabas em Conserva “Zilse”¨Lata¨98">64</option>
						  
                            <option value="65¨Beterraba em Conserva “Zilse”¨Lata¨70">65</option>
						  
                            <option value="67¨Cerejas ao Marrasquino ¨Vidro¨79">67</option>
						  
                            <option value="68¨Cerejas ao Marrasquino¨Vidro¨142">68</option>
						  
                            <option value="69¨Cerejas ao Marrasquino ¨Lata¨37,5">69</option>
						  
                            <option value="70¨Cebolinhas em Conserva¨Vidro¨54">70</option>
						  
                            <option value="71¨Cebolinhas em Conserva “Zilse”¨Vidro¨125">71</option>
						  
                            <option value="73¨Corações de Alcachofra ¨Vidro¨165">73</option>
						  
                            <option value="74¨Corações de Alcachofra Cortado ¨Lata¨165">74</option>
						  
                            <option value="75¨Corações de Alcachofra 25/30¨Lata¨188">75</option>
						  
                            <option value="76¨Corações de Alcachofra 30/40¨Lata¨188">76</option>
						  
                            <option value="77¨Corações de Alcachofra 40/50 ¨Lata¨188">77</option>
						  
                            <option value="78¨Corações de Alcachofra 50/60 ¨Lata¨188">78</option>
						  
                            <option value="79¨Corações de Alcachofra Marinado- óleo girassol¨Vidro¨170">79</option>
						  
                            <option value="80¨Corações de Alcachofra a Mediterrânea¨Vidro¨172">80</option>
						  
                            <option value="81¨Champignon Selecionado  Graúdo “Carmelo 40 kg¨Barrica¨17">81</option>
						  
                            <option value="82¨Champignon Selecionado  Fatiado“Carmelo 40 kg¨Balde¨18,7">82</option>
						  
                            <option value="83¨Champignon Fatiado “Carmelo” 40 kg¨Balde¨14,9">83</option>
						  
                            <option value="84¨Champignon  Graúdo  “Carmelo” -   40  kg¨Barrica¨16,5">84</option>
						  
                            <option value="85¨Champignon Selecionado  Graúdo  “Carmelo”¨Balde¨39">85</option>
						  
                            <option value="86¨Champignon Selecionado  Fatiado “Carmelo”¨Balde¨39">86</option>
						  
                            <option value="87¨Champignon Graudo  “Carmelo”¨Balde¨36">87</option>
						  
                            <option value="88¨Champignon  Fatiado “Carmelo”¨Balde¨36">88</option>
						  
                            <option value="89¨Figo em Calda “Helomar”¨Lata¨64">89</option>
						  
                            <option value="90¨Filés de Anchoita ¨Lata¨128">90</option>
						  
                            <option value="91¨Filés de Anchoita ¨Vidro¨165">91</option>
						  
                            <option value="93¨Filés de Anchoita ¨Vidro¨400">93</option>
						  
                            <option value="95¨Filés de Anchoita ¨Lata¨415">95</option>
						  
                            <option value="96¨Filés de Anchoita ¨Vidro¨74">96</option>
						  
                            <option value="97¨Filés de Anchoita ¨Balde¨208">97</option>
						  
                            <option value="100¨Fundos de Alcachofra 20/25 ¨Lata¨194">100</option>
						  
                            <option value="101¨Fundos de Alcachofra 25/30¨Lata¨194">101</option>
						  
                            <option value="102¨Fundos de Alcachofra 30/40 ¨Lata¨194">102</option>
						  
                            <option value="103¨Fundos de Alcachofra 40/50 ¨Lata¨194">103</option>
						  
                            <option value="104¨Fundos de Alcachofra 50/60 ¨Lata¨194">104</option>
						  
                            <option value="105¨Fundos de Alcachofra 60/70 ¨Lata¨194">105</option>
						  
                            <option value="106¨Funghi Seco Chileno¨      Pet¨100">106</option>
						  
                            <option value="107¨Funghi Seco Chileno ¨Pct¨31">107</option>
						  
                            <option value="108¨Funghi Seco Chileno¨Saco¨420">108</option>
						  
                            <option value="109¨Funghi Trifolati Italiano¨Lata ¨246">109</option>
						  
                            <option value="111¨Mini Milho ¨Lata¨123">111</option>
						  
                            <option value="112¨Mostarda Amarela “Zilse”¨Galão¨44">112</option>
						  
                            <option value="113¨Orégano Chileno – Embalagem 500grs¨Pct¨7">113</option>
						  
                            <option value="114¨Orégano Chileno – Embalagem 1 kg¨Pct¨13,5">114</option>
						  
                            <option value="115¨Orégano Chileno – Embalagem 12,5 kg¨Pct¨162,5">115</option>
						  
                            <option value="116¨Palmito ¨Vidro¨148">116</option>
						  
                            <option value="116¨Pimentão Vermelho S/ Pele ¨Vidro¨154">116</option>
						  
                            <option value="117¨Palmito ¨Vidro¨330">117</option>
						  
                            <option value="118¨Palmito Picado¨Vidro¨140">118</option>
						  
                            <option value="119¨Pepinos em Conserva “Zilse”¨Vidro¨110">119</option>
						  
                            <option value="121¨Picles em Conserva “Zilse”¨Vidro¨83">121</option>
						  
                            <option value="125¨Pimentão Vermelho S/ Pele ¨Vidro¨154">125</option>
						  
                            <option value="126¨Pimentão Vermelho S/ Pele ¨Lata¨154">126</option>
						  
                            <option value="127¨Queijo Parmesão – Argentino Capa Branca¨+ - 7 Kg ¨26,80">127</option>
						  
                            <option value="128¨Queijo Parmesão – Argentino Capa Preta¨+ - 7 Kg ¨26,80">128</option>
						  
                            <option value="129¨Tomates Pelados ¨Lata¨66,00">129</option>
						  
                            <option value="130¨Tomates Pelados ¨Lata¨77">130</option>
						  
                            <option value="131¨Tomates Secos ¨Vidro¨155,00">131</option>
						  
                            <option value="133¨Tomates Secos ¨Vidro¨52,00">133</option>
						  
                            <option value="135¨Aspargos ¨Vidro¨66">135</option>
						  
                            <option value="136¨Aspargos ¨Vidro¨118">136</option>
						  
                            <option value="137¨Alcaparras Media¨Pet¨">137</option>
						  
                            <option value="138¨Alcaparras Miúda¨Pet¨136">138</option>
						  
                            <option value="141¨Alcaparras Miuda ¨Pet¨55">141</option>
						  
                            <option value="151¨Alcaparras Miúda Capuccine¨Barrica¨13,5">151</option>
						  
                            <option value="154¨Aspargos Verdes¨Vidro¨59">154</option>
						  
                            <option value="155¨Alcaparras Miúda Capuccine¨Pet¨145">155</option>
						  
                            <option value="158¨Corações de Alcachofra 20/25¨Lata¨188">158</option>
						  
                            <option value="160¨Pêssego em calda¨Lata¨">160</option>
						  
                            <option value="195¨Canudos Plástico Sanfonado¨Caixa¨44">195</option>
						  
                            <option value="202¨Tomate Seco  1 kg¨Balde¨16,40">202</option>
						  
                            <option value="301¨Cerejas ao Marrasquino com cabo¨Vidro¨148">301</option>
						  
                            <option value="303¨Kiwis em calda¨Vidro¨138">303</option>
                          </select></td>
				<tr>
			<td>
			</tr>
			</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">Cidade</font></td>
<td width="423" colspan="8"><input type="text" name="Cidade" Size="20"></td>
				<tr>
			<td>
			</tr>
			</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">CNPJ</font></td>
<td width="423" colspan="8"><input type="text" name="CNPJ" Size="20"></td>
					<tr>
			<td>
			</tr>
			</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">Tipo</font></td>
<td width="100%" width="423" colspan="8" ><Select Name="Tipo" Style="WIDTH: 100%" Onchange="Verifica_pessoa()">
<Option Value="">(Selecione)</option>
<Option Value="1">Fisica</option>
<Option Value="2">Jurídica</option>
 </select>
 </td>
 				<tr>
			<td>
			</tr>
			</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">IE</font></td>
<td width="423" colspan="8"><input type="text" name="IE" Size="20"></td>
				<tr>
			<td>
			</tr>
			</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">CondPagamento</font></td>
<td width="423" colspan="8"><input type="text" name="CondPagamento" Size="20"></td>
				<tr>
			<td>
			</tr>
			</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">Vendedor</font></td>
<td width="423" colspan="8"><input type="text" name="Vendedor" Size="20"></td>
				<tr>
			<td>
			</tr>
			</td>
<td bgcolor="#336699" width="10%" align="left"><font color="#ffffffr">Estado</font></td>
<td width="50%" colspan="8" align="left" ><select name="Estado" Style="WIDTH=100%">
						<option value="" selected>Select</option>
						<option value="AC">ACRE</option>
						<option value="AL">ALAGOAS</option>
						<option value="AM">AMAZONAS</option>
						<option value="AP">AMAPÁ</option>
						<option value="BA">BAHIA</option>
						<option value="CE">CEARÁ</option>
						<option value="DF">DISTRITO FEDERAL</option>
						<option value="ES">ESPIRÍTO SANTO</option>
						<option value="GO">GOIÁS</option>
						<option value="MA">MARANHÃO</option>
						<option value="MT">MATO GROSSO</option>								
						<option value="MS">MATO GROSSO DO SUL</option>
						<option value="MG">MINAS GERAIS</option>								
						<option value="PA">PARÁ</option>
						<option value="PB">PARAÍBA</option>
						<option value="PR">PARANÁ</option>
						<option value="PE">PERNAMBUCO</option>								
						<option value="PI">PIAUÍ</option>								
						<option value="RJ">RIO DE JANEIRO</option>
						<option value="RN">RIO GRANDE DO NORTE</option>
						<option value="RS">RIO GRANDE DO SUL</option>								
						<option value="RO">RONDÔNIA</option>
						<option value="RR">RORAIMA</option>
						<option value="SC">SANTA CATARINA</option>
						<option value="SE">SERGIPE</option>
						<option value="SP">SÃO PAULO</option>
						<option value="TO">TOCANTINS</option>
						</select></td>
				<tr>
			<td>
			</tr>
			</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">Tel</font></td>
<td width="423" colspan="8"><input type="text" name="Tel" Size="20"></td>
				<tr>
			<td>
			</tr>
			</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">Frete</font></td>
<td width="423" colspan="8"><input type="text" name="Frete" Size="20"></td>		
			<tr>
		<td>
		</tr>
		</td>
					<td bgcolor="#336699" width="111" align="left" ><font color="#ffffffr">Embalagem</font></td>
					<td width="118" colspan="8" align="left">
					<select name="Embalagem" Style="WIDTH=164; height:38">
					
					<option value="Caixa" <% If Embalagen = "Caixa" Then Response.Write("selected") End If %>>Caixa</option>
					<option value="Unidade" <% If Embalagem = "Unidade" Then Response.Write("selected") End If %>>Unidade</option>
					<option value="Pet" <% If Embalagem = "Pet" then Response.Write("selected") End If %>>Pet</option>
					</select>
			<tr>
		<td>
		</tr>
		</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">Qtde</font></td>
<td width="423" colspan="8"><input type="text" name="Qtde" Size="20"></td>
			<tr>
		<td>
		</tr>
		</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">PrecoUnit</font></td>
<td width="423" colspan="8"><input type="text" name="PrecoUnit" Size="20"></td>
			<tr>
		<td>
		</tr>
		</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">PrecoTotal</font></td>
<td width="423" colspan="8"><input type="text" name="PrecoTotal" Size="20"></td>
			<tr>
		<td>
		</tr>
		</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">Celular</font></td>
<td width="423" colspan="8"><input type="text" name="Celular" Size="20"></td>
			<tr>
		<td>
		</tr>
		</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">Email</font></td>
<td width="423" colspan="8"><input type="text" name="Email" Size="20"></td>
			<tr>
		<td>
		</tr>
		</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">Contato</font></td>
<td width="423" colspan="8"><input type="text" name="Contato" Size="20"></td>
			<tr>
		<td>
		</tr>
		</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">Ds_Data</font></td>
<td width="423" colspan="8"><input type="text" name="Ds_Data" Size="20"></td>
			<tr>
		<td>
		</tr>
		</td>
</table>
<input type="Submit" name="btn1" value=" Enviar Pedidos >>">
<input type="Button" name="reset" value=" Reset >>">
<P> </P>

</BODY>
</HTML>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você consegue fazer isso colocando o corpo da sua mensagem no formato HTML, dá uma pesquisada no forum k existem exemplos...

Compartilhar este post

Link para o post
Compartilhar em outros sites

reinaldo polato    1

reinaldo polato
Postado

e ai xanburzum valeu pela ajuda ai

é o seguinte eu seleciono o nome tipo RazaoSocial e digito o nome cadastrado Lindo e clico em pesquisar ai aparece assim

115

Lindo

Rua

Vila

Rua Padre Luciano Jardim frança

3¨Alcaparras Miúda ¨Pet¨28,8

São Paulo

0000000000

1

000000000

28 dias

Lindo

SP

(11)0000-0000

00000000

Unidade

0000000

R$ 200,00

R$ 200,00

(11)9999-999

meuemail@gmail.com

Lindo

10/10/1960

 

ai eu peguei e fiz o codigo pra enviar por e-mail ai eu recebo no e-mail a pagina consulta.asp eu queria receber no e-mail isso que foi pesquisado

 

o meu codigo é 

<%

dim conexao
dim strDriver
dim objconexao
dim objrecordset

set objconexao=server.CreateObject("Adodb.connection")
set objrecordset=server.CreateObject("adodb.recordset")



'strconexao="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\asp\cep.mdb;User Id=admin;Password=;"
Strconexao="DBQ=C:\asp\cep.mdb"
strdriver="Driver={Microsoft Access Driver (*.mdb)}"

objconexao.Open Strconexao & ";" & strdriver
objrecordset.Open  "Consulta",objconexao,1,3,2


strBody = "CodigodoCliente: " & Request.Form("CodigodoCliente") & vbCrLf
strBody = strBody & "RazaoSocial: " & Request.Form("RazaoSocial") & vbCrLf
strBody = strBody & "Endereco: " & Request.Form("Endereco") & vbCrLf
strBody = strBody & "Bairro: - " & vbCrLf & Request.Form("Bairro") & vbCrLf
strBody = strBody & "Cep: - " & vbCrLf & Request.Form("Cep") & vbCrLf
strBody = strBody & "DescricaoEstadual: - " & vbCrLf & Request.Form("DescricaoEstadual") & vbCrLf
strBody = strBody & "Cidade: - " & vbCrLf & Request.Form("Cidade") & vbCrLf
strBody = strBody & "CNPJ: - " & vbCrLf & Request.Form("CNPJ") & vbCrLf
strBody = strBody & "Tipo: - " & vbCrLf & Request.Form("Tipo") & vbCrLf
strBody = strBody & "IE: - " & vbCrLf & Request.Form("IE") & vbCrLf
strBody = strBody & "CondPagamento: - " & vbCrLf & Request.Form("CondPagamento") & vbCrLf
strBody = strBody & "Vendedor: - " & vbCrLf & Request.Form("Vendedor") & vbCrLf
strBody = strBody & "Estado: - " & vbCrLf & Request.Form("Estado") & vbCrLf
strBody = strBody & "Tel: - " & vbCrLf & Request.Form("Tel") & vbCrLf
strBody = strBody & "Frete: - " & vbCrLf & Request.Form("Frete") & vbCrLf
strBody = strBody & "Embalagem: - " & vbCrLf & Request.Form("Embalagem") & vbCrLf
strBody = strBody & "Qtde: - " & vbCrLf & Request.Form("Qtde") & vbCrLf
strBody = strBody & "PrecoUnit: - " & vbCrLf & Request.Form("PrecoUnit") & vbCrLf
strBody = strBody & "PrecoTotal: - " & vbCrLf & Request.Form("PrecoTotal") & vbCrLf
strBody = strBody & "Celular: - " & vbCrLf & Request.Form("Celular") & vbCrLf
strBody = strBody & "Email: - " & vbCrLf & Request.Form("Email") & vbCrLf
strBody = strBody & "Contato: - " & vbCrLf & Request.Form("Contato") & vbCrLf
strBody = strBody & "Ds_Data: - " & vbCrLf & Request.Form("Ds_Data") & vbCrLf



'on error resume next
Para=Request.Form("To")
Assunto=Request.Form("Subject")
Mensagem=Request.form("Body")



sch = "http://schemas.microsoft.com/cdo/configuration/" 

Set cdoConfig = Server.CreateObject("CDO.Configuration") 


cdoConfig.Fields.Item(sch & "sendusing") = 2 
cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1 
cdoConfig.Fields.Item(sch & "smtpusessl") = True
cdoConfig.Fields.Item(sch & "smtpserverport") = 465
cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.gmail.com" 
cdoConfig.Fields.Item(sch & "sendusername") = "meuemail@gmail.com" 
cdoConfig.Fields.Item(sch & "sendpassword") = "Minha Senha" 
cdoConfig.fields.update 

Set cdoMessage = Server.CreateObject("CDO.Message") 
Set cdoMessage.Configuration = cdoConfig 

cdoMessage.From = "meuemail@gmail.com" 
cdoMessage.To = "meuemail@gmail.com"
cdoMessage.Subject = Assunto 
cdoMessage.HTMLBody = Mensagem
cdoMessage.AddAttachment("c:\asp\consulta.asp") 
x = cdoMessage.Send 

if x > 0 then
	Response.Write x
	Response.End
	else
	response.write "Sua mensagem foi enviada com sucesso!"
End if

Set cdoMessage = Nothing 
Set cdoConfig = Nothing 



objconexao.Close
set objconexao=nothing
set objrecordset=nothing

%>


<html>
<body>
<form name="frm1" method="POST" action="consulta.asp">
<table border="0" width="43%">
<tr>
<td width="13%"><strong>Para:</strong></td>
<td width="87%"><input type="text" name="to" size="32"></td>
</tr>
<tr>
<td width="13%"><strong>Assunto:</strong></td>
<td width="87%"><input type="text" name="subject" size="32"></td>
</tr>
<tr>
<td width="13%"><strong>Mensagem:</strong></td>
<td width="87%"><textarea rows="7" name="body" cols="43"></textarea></td>
</tr>
<tr>
Anexar
<input type="file" id="file1" name="Anexar" Size="20">
</tr>
<tr>
<td width="13%"><input type="submit" name="botaoEnviar" value="enviar"></td>
</tr>
</table>
</form>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você pode jogar o resultado da pesquisa direto no body do email, ou até mesmo jogar num txt ou session e depois inserir no email...

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

da mesma forma com o

strBody = "CodigodoCliente: " & Request.Form("CodigodoCliente") & vbCrLf
só k você troca pelo recordset

strBody = "CodigodoCliente: " & rs("CodigodoCliente") & vbCrLf

Compartilhar este post

Link para o post
Compartilhar em outros sites

paespedro    0

paespedro
Postado

Olá Galera, sou novo no fórum e pegeui um site para atualizar. Estamos tendo problemas no envio de email e não sou desenvolvedor ASP, ainda não encontrei alguém pra terceirizar então por hora vou tentar me virar.

 

O código para o envio do email é este abaixo

 

<% @LANGUAGE = VBScript codepage = 1252 LCID = 1046 %> 

<script>

	function enviaContato(tipomsg) {

		acoes = window.parent
		
			if (tipomsg=="ok")
				{	
					acoes.document.frmContato.reset()
					acoes.document.getElementById('btnEnviarContato').style.display = "block";	
					acoes.document.getElementById('tblEnviandoContato').style.display = "none";						
					
				alert("Mensagem enviada com sucesso!")					

				}
				
			if (tipomsg=="adv")
				{
					acoes.document.getElementById('btnEnviarContato').style.display = "block";	
					acoes.document.getElementById('tblEnviandoContato').style.display = "none";						
					
				alert("Ocorreu um erro ao enviar a mensagem\nPor favor, tente novamente mais tarde.")


				}		
	}

</script>

<%
	
	varNome = UCase(request.Form("txtNome"))
	varEmail = LCase(request.Form("txtEmail"))
	varTelefone = request.Form("txtTelefone")
	varCidade = UCase(request.Form("txtCidade"))
	varEstado = request.Form("txtEstado")
	varTipoMensagem = UCase(request.Form("txtTipoMsg"))
	varAssunto = UCase(request.Form("txtAssunto"))
	varMensagem = UCase(request.Form("txtMensagem"))
	
	on error resume next

	Set objCDOSYSMail = Server.CreateObject("CDO.Message")
	Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
	sch = "http://schemas.microsoft.com/cdo/configuration/"
	objCDOSysCon.Fields.Item(sch & "sendusing") = 2
	objCDOSysCon.Fields.Item(sch & "smtpauthenticate") = 1
	objCDOSysCon.Fields.Item(sch & "smtpserver") = "mail.site.com.br"
	objCDOSysCon.Fields.Item(sch & "sendusername") = "info@site.com.br"
	objCDOSysCon.Fields.Item(sch & "sendpassword") = "senha do email acima"
	objCDOSYSCon.Fields.Item(sch & "smtpserverport")=25
	objCDOSYSCon.Fields.Item(sch & "smtpconnectiontimeout")=30
	objCDOSYSCon.Fields.update
	Set objCDOSYSMail.Configuration = objCDOSYSCon

	objCDOSYSMail.From = "info@site.com.br"
	objCDOSYSMail.To = "atendimento@site.com.br"
	objCDOSYSMail.Subject = varTipoMensagem & " - " & varAssunto
	

									
				varCorpo = "Mensagem enviada pelo site. <br><br>"
				varCorpo = varCorpo & "Nome: " & varNome & "<br>"
				varCorpo = varCorpo & "Email: <a href=mailto:" & varEmail & ">" & varEmail & "</a><br>"
				varCorpo = varCorpo & "Telefone: " & varTelefone & "<br>"																		
				varCorpo = varCorpo & "Cidade: " & varCidade & "/" & varEstado & "<br>"			
				varCorpo = varCorpo & "Mensagem: " & varMensagem & "<br><br>"
			
				objCDOSYSMail.HtmlBody = varCorpo
				objCDOSYSMail.Send

			if err.number <> 0 then
				varTipoMSG = "adv"
				varMSG = err.description
			
			else
				varTipoMSG = "ok"
			end if
			
        Set objCDOSYSMail = Nothing 
        Set objCDOSYSCon  = Nothing	

%>
		<script>enviaContato('<%=varTipoMSG%>');</script>

Desculpem colar o código todo aqui mas como não tenho conhecimento sobre estou tentando buscar ajuda aqui. Se reconhecerem algo de errado no código que possa estar causando erro ao enviar (qdo tento enviar cai no alert("Ocorreu um erro ao enviar a mensagem\nPor favor, tente novamente mais tarde.")). Ou também se é possível ser algum erro no servidor, ou com o email indicado?

Outra coisa, existe alguma forma simples de dar um alert exibindo a descrição do erro?

 

Obrigado desde já.

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