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

Formulário De Envio De E-mail Formatado

Guest Jorge Andrade

Perguntado por Guest Jorge Andrade,

 Share

Pergunta

Guest Jorge Andrade

Guest Jorge Andrade

Postado
Postado

Oi Pessoal,

Onde consigo um form ou script para envio um e-mail neste formato:

ara: delphiprogramas@yahoo.com.br

Assunto: Pedido Sistema Integrado

Data: Sat, 22 Jan 2005 21:48:25 -0300 (BRT)

De: Fulano de Tal

Dados do pedido

Nome : Fulano de Tal

E-mail: email@provedor.com

MSN : MSN@provedor.com

YAHOO : yahoo@provedor.com

Identificação do deposito

Documento: 1001

Data : 20/01/2005

Depositante: Fulano de Tal

Um abraço !

Link para o comentário
Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

  • 0
dark0

dark0

Postado
Postado

Isso você pode fazer facilmente usando ASP/PHP

Já que estamos na área ASP, seu servidor dá suporte à qual componente de e-mail?

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

Developer

Postado
Postado
Isso você pode fazer facilmente usando ASP/PHP

Já que estamos na área ASP, seu servidor dá suporte à qual componente de e-mail?

Já falei com ele... Ele dá suporte á CDONTS... eu to desenvolvendo um pra ele...Faz o seu também mano... rolleyes.gif

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

dark0

Postado
Postado

Hãn

Dê uma olhada:

http://scriptbrasil.com.br/forum/index.php?showtopic=34563

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

cyberalexxx

Postado
Postado

formulario de contato usando CDONTS:

<%
sYouEmail="mail@seuemail.com.br" ' coloque aki o email q ira receber as mensagens
EmailSubject="mensagem de usuario do SITE"
FontColor="#3333FF"
HeadColor="#ffc500"
FormFontColor="#FFFFFF"
FormBackColor="#3333FF"
ErrorColor="red"

Function ValidateField(sFieldvalue, sFieldtype)
	ValidField = true
	Select Case LCase(sFieldtype)
  Case "name"
  If Len(sFieldvalue) = 0 Then ValidField = False
  Case "email"
  	If Len(sFieldvalue) < 5 Then
    ValidField = False
  	Else
    If InStr(1, sFieldvalue, "@", 1) < 2 Then
    	ValidField = False
    Else
    	If InStr(1, sFieldvalue, ".", 1) < 4 Then
      ValidField = False
    	End If
    End If
  	End If
  Case "message"
  	If Len(sFieldvalue) = 0 Then ValidField = False
  Case "else"
  	ValidField = False
	End Select
ValidateField = ValidField
End Function
Sub ShowForm
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFFFFF" width="634">
<tr>
<td width="100%">&nbsp;<center><form action="<%= Request.ServerVariables("Script_Name") %>" method="post">
<p>&nbsp;</p>
<table border="0" cellspacing="0" width="240" cellpadding=0><tr bgcolor="<%=HeadColor%>">
<td ALIGN="left"><font color="<%=FontColor%>" face="verdana,arial,helvetica" size="-1"><B>
Seu Nome:</B></font>&nbsp;</td></tr>
<tr><td><input name="name" type="text" value="<%= Request.Form("name") %>" SIZE="45" style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>"></INPUT></td>
</tr><tr><td><%
  If dictFields(LCase("name")) Then
  Response.Write "<font color=""" & ErrorColor & """ face=""verdana,arial,helvetica"" size=-2>Voce precisa informar um nome</font>"
	Else  
  Response.Write "&nbsp;"
  End If
  %>
</td></tr>
	<tr bgcolor="<%=HeadColor%>">
  <td ALIGN="left"><font color="#3333FF" face="verdana,arial,helvetica" size="-1"><B>email:</B></font>&nbsp;</td></tr>
  <tr><td><input name="email" type="text" value="<%= Request.Form("email") %>" SIZE="45" style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>"></INPUT></td>
  </tr><tr><td><%
  If dictFields(LCase("email")) Then
  Response.Write "<font color=""" & ErrorColor & """  face=""verdana,arial,helvetica"" size=-2>voce precisa informar um endereço de email valido</font>"
	Else  
  Response.Write "&nbsp;"
  End If
  %>
</td></tr>
	<tr bgcolor="<%=HeadColor%>">
  <td ALIGN="left"><font color="#3333FF" face="verdana,arial,helvetica" size="-1"><B>
        Mensagem:</B></font>&nbsp;</td></tr>
  <tr><td><TEXTAREA NAME="message" WRAP=VIRTUAL COLS="45" ROWS=7 style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>"><%= Request.Form("message") %></TEXTAREA></td>
  </tr><tr><td><%
  If dictFields(LCase("message")) Then
  Response.Write "<font color=""" & ErrorColor & """  face=""verdana,arial,helvetica"" size=-2> Você precisa digitar uma mensagem</font>"
	Else  
  Response.Write "&nbsp;"
  End If
%>
</td></tr>
<tr><td colspan=2><font color="#000000" face="verdana,arial,helvetica" size="-1"><input type="checkbox" name="agree" value="true" <% 
  if Len(Request.Form("agree")) > 0 then 
  Response.Write "checked"
  End If
  %>> Clique aqui caso deseje fazer parte de nossa lista de contatos</td></tr>
</table><p><input type="submit" value="Envia Mensagem"></input><br></form>
<P>
<%
End Sub
Sub Send
sPunter = Request.Form("Name")
sPunterEmail = Request.Form("Email")
Message = Request.Form("message")
If Request.Form("agree") = "true" then
Mailout = "Ele deseja ser incluido em nossa lista de contatos"
Else
Mailout ="Ele NÃO deseja ser incluido em nossa lista de contatos"
End If
sMessage = "Essa é uma mensagem de " & sPunter & vbcrlf _
        & vbcrlf _
  & vbcrlf _
  & Message & vbcrlf _
  & vbcrlf _
  & "Seu email é: " & sPunterEmail & vbcrlf _
  & vbcrlf _
  & Mailout & vbcrlf _
  & vbcrlf  
Set objNewMail = CreateObject("CDONTS.NewMail")
objNewMail.Send sPunterEmail, sYouEmail, EmailSubject, sMessage
Set objNewMail = Nothing
End Sub

Set dictFields = Server.CreateObject("Scripting.Dictionary")
For Each Field in Request.Form
If ValidateField(Request.Form(Field), Field) = False Then
dictFields.Add LCase(Field), true
End If
Next
If Request.Form.Count <> 0 And dictFields.Count  = 0 Then
%><P>
&nbsp;<P>
&nbsp;<b>Sua Mensagem foi enviada!<BR></b><P><b><i>Obrigado por entrar em contato.</i></b><BR>
<%
Call Send
Else
ShowForm
End If
%></td>
</tr>
</table>

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

Developer

Postado
Postado
Oi Pessoal,

Onde consigo um form ou script para envio um e-mail neste formato:

ara: delphiprogramas@yahoo.com.br

Assunto: Pedido Sistema Integrado

Data: Sat, 22 Jan 2005 21:48:25 -0300 (BRT)

De: Fulano de Tal

Dados do pedido

Nome : Fulano de Tal

E-mail: email@provedor.com

MSN : MSN@provedor.com

YAHOO : yahoo@provedor.com

Identificação do deposito

Documento: 1001

Data : 20/01/2005

Depositante: Fulano de Tal

Um abraço !

To ai:

contato.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

If request("acao") <> "" then
mensagem="Dados do Usuário:<br><br>Nome: "&request("nome")&"<br>E-mail: "&request("email")&"<br>MSN: "&request("MSN")&"<br>Yahoo: "&request("yahoo")&"<br><br>Identificação do deposito:<br>Documento: "&request("documento")&"<br>Data do envio: "&request("datadeposito")&"<br>Depositante: "&request("depositante")
  call email_cdonts (request("email"), "contato@seusite.com.br", "ASSUNTO",  mensagem)
response.write "Enviado com sucesso!!!"
else
%>
<table>
<form action="contato.asp" name="faleconosco">
<tr><td>Nome: </td><td><input name="nome"></td></tr>
<tr><td>Email: </td><td><input name="email"></td></tr>
<tr><td>MSN: </td><td><input name="MSN"></td></tr>
<tr><td>YAHOO: </td><td><input name="yahoo"></td></tr>
<tr><td>Documento: </td><td><input name="documento"></td></tr>
<tr><td>Data do deposito: </td><td><input name="datadeposito"></td></tr>
<tr><td>Depositante: </td><td><input name="depositante"></td></tr>
<tr><td colspan="2"><input type="Hidden" name="acao" value="form"><input type="Submit" name="botao" value="Enviar"></td></tr>
</form>
</table>
<%end if%>

Link para o comentário
Compartilhar em outros sites
  • 0
Guest izaiasbbrito@hotmail.com

Guest izaiasbbrito@hotmail.com

Postado
Postado

CURRICULUM VITAE

IZAÍAS BARBOSA DE BRITO

Dados Pessoais

Nome: IZAÍAS BARBOSA DE BRITO

Nacionalidade: BRASILEIRO

Data de Nascimento: 18 / 04 / 1.977

Naturalidade: BRASÍLIA DF

Endereço: QDA 01 MR 10 LT.27 ST. OESTE

Cidade: PLANALTINA GOÍAS

Telefone: ( 61 ) 637-5687 ou ( 61 ) 637-6595

Celular: ( 61 ) 8405-5900

E-mail: grandezaca@bol.com.br / izaiasbarbosa_8@hotmail.com

Formação Escolar

Escolaridade: 1º Gral Em Andamento

Experiência Profissional

Empresa: Sousa Contabilidade

Cargo: Auxiliar de Contabilidade

Experiência: 4 Anos

Empresa: Escolar Alan Kardec

Cargo: Porteiro

Experiência: 2 Ano e 6 Mês

Cursos

Operador de Micro Computador

Programas: Windows 98, Word 2000, Excel, Power Point 2000, Internet.

Período: 1 MES

Ano 2002

Instituição ( Projeto Saber )

Digitação

Período: 6 meses

Ano:1998

Instituição: ( Projeto Saber )

Objetivo Profissional

Jardineiro

Serviços Gerais e Copeiro

Referência Pessoais

Nome: Cleidmar Barbosa de Brito

Fone: ( 61 ) 637 -6595 ou ( 61 ) 9657-9334

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,2k
    • Posts
      651,9k
×
×
  • Criar Novo...