Jump to content

  2. →
  3. →

Photo

Envio De E-mail

Started By ronaldo_calado, 29/07/2006, 12:11

  • Faça o login para participar
9 replies to this topic

#1 ronaldo_calado

ronaldo_calado

    Novato no fórum

  • Usuários
  • 19 posts
  • Sexo:Não informado

Posted 29/07/2006, 12:11

Programo em PHP, mais nunca cheguei nem perto de ASP e agora vo t q fazer este codigo de envio d e-mail pq o servidor d hospedagem do meu cliente so suporta ASP, e o formulario de e-mail usado pelo servidor é o Aspmail, vo mandado o formulario pra se alguem puder me ajudar a fazer esse script, to precisando mto!!!


<form id="form1" name="form1" method="post" action="resp_fale.asp">
		<table width="90%" border="0" cellspacing="0" cellpadding="0">

		  <tr>
			<td width="85" valign="top" class="style19"><span class="style31">Nome</span></td>
			<td colspan="3" class="style19"><span class="style32">
			  <label>
			  <input name="nome" type="text" id="nome" size="50" maxlength="50" />
			  </label>
			</span></td>
		  </tr>
		  <tr>
			<td class="style33">&nbsp;</td>
			<td colspan="3" class="style33">&nbsp;</td>
		  </tr>
		  <tr>
			<td class="style31">E-mail</td>
			<td colspan="3" class="style19"><span class="style29">
			  <label>
			  <input name="email" type="text" id="email" size="50" maxlength="50" />
			  </label>
			</span></td>
		  </tr>
		  <tr>
			<td class="style31">&nbsp;</td>
			<td colspan="3" class="style31">&nbsp;</td>
		  </tr>
		  <tr>
			<td valign="top" class="style31">DDD</td>
			<td width="56" class="style19"><span class="style29">
			  <label>
			  <input name="ddd" type="text" id="ddd" size="4" maxlength="2" />
			  </label>
			</span></td>
			<td valign="top" class="style19"><span class="style29">
			  <label>
			  Telefone			  </label>
			</span></td>
			<td class="style19"><span class="style29">
			  <input name="telefone" type="text" id="telefone" size="30" maxlength="8" />
			</span></td>
		  </tr>
		  <tr>
			<td class="style31">&nbsp;</td>
			<td colspan="3" class="style31">&nbsp;</td>
		  </tr>
		  <tr>
			<td valign="top" class="style31">Estado</td>
			<td width="56" class="style19"><span class="style29">
			  <label>
			  <input name="estado" type="text" id="estado" size="4" maxlength="2" />
			  </label>
			</span></td>
			<td valign="top" class="style31">Cidade   
			  <label></label></td>
			<td class="style31"><input name="cidade" type="text" id="cidade" size="30" maxlength="30" /></td>
		  </tr>
		  <tr>
			<td class="style31">&nbsp;</td>
			<td colspan="3" class="style31">&nbsp;</td>
		  </tr>
		  <tr>
			<td valign="top" class="style31">Assunto</td>
			<td colspan="3" class="style19"><span class="style29">
			  <label>
			  <input name="assunto" type="text" id="assunto" size="50" maxlength="50" />
			  </label>
			</span></td>
		  </tr>
		  <tr>
			<td class="style31">&nbsp;</td>
			<td colspan="3" class="style31">&nbsp;</td>
		  </tr>
		  <tr>
			<td valign="top" class="style31">Coment&aacute;rio</td>
			<td colspan="3" class="style19"><span class="style29">
			  <label>
			  <textarea name="comentario" cols="40" rows="3" id="comentario"></textarea>
			  </label>
			</span></td>
		  </tr>
		  <tr>
			<td class="style31">&nbsp;</td>
			<td colspan="3" class="style31">&nbsp;</td>
		  </tr>
		  <tr>
			<td colspan="4" class="style31">Desejo receber informa&ccedil;&otilde;es sobre nossos
			  produtos?</td>
		  </tr>
		  <tr>
			<td class="style31">&nbsp;</td>
			<td width="56" class="style31">
			  <label>
			  <input name="info" type="radio" value="Sim" checked />
			  </label>
			  <label>			Sim</label></td>
			<td width="64" class="style19"><span class="style29">
			  <label></label>
			</span></td>
			<td width="276" class="style31">
			  <label>
			  <input name="info" type="radio" value="N&atilde;o" />
				</label>
			  <label>N&atilde;o</label></td>
		  </tr>
		  <tr>
			<td class="style19">&nbsp;</td>
			<td colspan="3" class="style19">&nbsp;</td>
		  </tr>
		  <tr>
			<td class="style19"><div align="center" class="style28">
			  <label>
			  <input type="submit" name="Submit" value="Enviar" />
			  </label>
			</div></td>
			<td colspan="3" class="style19">&nbsp;</td>
		  </tr>
		</table>
	  </form>

Teria como alguem me ajudar a fazer o arquivo pra receber essas informações e enviar pro e-mail...
to precisando mto desse script, meu chefe ta me cobrando ele e eu não sei mais oq fazer!
preciso da ajuda de vcs!!

#2 Generation

Generation

    Super Veterano

  • Usuários
  • 1546 posts
  • Sexo:Masculino
  • Localidade:Curitiba - PR

Posted 29/07/2006, 12:40

Vou postar o link do site do fabricante que tem um breve codigo para que voce possa usar :

http://www.serverobj...mp/Aspmail4.htm

Um topico com um pequeno codigo :

http://forum.wmonlin...o...&hl=aspmail

Agora caso queira esperar alguem fazer para voce tudo bem, as vezes.. :)

[]'s
Favoritos : | OpenSuse | Opera | Firefox | NetBeans | GMail | Leia As Regras | Use a Busca | Como fazer Perguntas Inteligentes |
“Obstáculos são aquelas coisas medonhas que você vê quando tira seus olhos de seu objetivo” (Henry Ford)
“É impossível para um homem aprender aquilo que ele acha que já sabe.” (Epíteto)
“A única razão da existência do tempo é para que todas as coisas não aconteçam de uma vez.”(Albert Einstein)

#3 ronaldo_calado

ronaldo_calado

    Novato no fórum

  • Usuários
  • 19 posts
  • Sexo:Não informado

Posted 29/07/2006, 12:47

Vou postar o link do site do fabricante que tem um breve codigo para que voce possa usar :

http://www.serverobj...mp/Aspmail4.htm

Um topico com um pequeno codigo :

http://forum.wmonlin...o...&hl=aspmail

Agora caso queira esperar alguem fazer para voce tudo bem, as vezes.. :)

[]'s

Kra, é q eu ja tentei mais d 10 scripts e não consegui fazer funcionar, por isso q to com a esperança q alguem faça pra mim, eu não sei mais oq fazer :(

#4 sandino

sandino

    12 Horas

  • Usuários
  • 134 posts
  • Sexo:Não informado
  • Localidade:Lages - SC
  • Interesses:WeB

Posted 29/07/2006, 13:08

Posta algum cod q vc deseja usar e o erro q acontece. Fica mais fácil pra ajudar!

;)

#5 ronaldo_calado

ronaldo_calado

    Novato no fórum

  • Usuários
  • 19 posts
  • Sexo:Não informado

Posted 29/07/2006, 19:26

Posta algum cod q vc deseja usar e o erro q acontece. Fica mais fácil pra ajudar!

;)

Kra, tava querendo na verdad que alguem fizesse o script pra mim baseado no formulário q eu coloquei...
Se alguem puder me ajudar, meu chefe ta me cobrando isso direto!

#6 siola

siola

    Usuário

  • Usuários
  • 894 posts
  • Sexo:Masculino
  • Localidade:SBC - SP
  • Interesses:ASP, .NET, javascript

Posted 29/07/2006, 20:18

Acho dificil alguem te dar um código pronto, você pode esperar pra ver se alguem faz, mas aqui vai um link que ensina tudo que você precisa =p

http://www.baboo.com...t...2&zoneid=24

[]s

#7 ronaldo_calado

ronaldo_calado

    Novato no fórum

  • Usuários
  • 19 posts
  • Sexo:Não informado

Posted 30/07/2006, 10:31

Acho dificil alguem te dar um código pronto, você pode esperar pra ver se alguem faz, mas aqui vai um link que ensina tudo que você precisa =p

http://www.baboo.com...t...2&zoneid=24

[]s


Kra, não consegui entender direito essas paradas desse link, so mttoooo leigo em ASP, fiz o download da parada la pra saber quais e-mails ele suportava e deu o ASPMAIL,tentei fazer uma junção de alguns scripts e fico assim

<%

Set objmail = Server.CreateObject("SMTPsvg.Mailer")
objmail.FromName = "Ronaldo"
objmail.FromAddress = "br_neves@hotmail.com.br"
objmail.RemoteHost = "smtp.terraemprezas.com.br"
objmail.AddRecipient "Ronaldo", "br_neves8@yahoo.com.br"
objmail.Subject = Request.form("assunto")
objmail.ContentType = "text/html"
objmail.BodyText = "Nome: "& request.form("nome")
objmail.BodyText = objmail.BodyText & "Email: "& request.form("frm_email")
objmail.BodyText = objmail.BodyText & "Telefone: "& request.form("ddd")&"-"& request.form("telefone")
objmail.BodyText = objmail.BodyText & "Cidade: "& request.form("cidade")&"-"& request.form("estado")
objmail.BodyText = objmail.BodyText & "Mensagem: "& request.form("comentario")
objmail.BodyText = objmail.BodyText & "Informações: "& request.form("info")

objmail.SendMail 
 
Set objmail = nothing

%>

Ele ta dando esse erro:

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'BodyText'

/recebe.asp, line 20

Não tenho ideia do que possa ta errado

Edição feita por: ronaldo_calado, 30/07/2006, 10:41.

#8 Generation

Generation

    Super Veterano

  • Usuários
  • 1546 posts
  • Sexo:Masculino
  • Localidade:Curitiba - PR

Posted 30/07/2006, 12:39

<%

Set objmail = Server.CreateObject("SMTPsvg.Mailer")
objmail.FromName = "Ronaldo"
objmail.FromAddress = "br_neves@hotmail.com.br"
objmail.RemoteHost = "smtp.terraemprezas.com.br"
objmail.AddRecipient "Ronaldo", "br_neves8@yahoo.com.br"
objmail.Subject = Request.form("assunto")
objmail.ContentType = "text/html"
Text = "Nome: "& request.form("nome")
Text = Text & "Email: "& request.form("frm_email")
Text = Text & "Telefone: "& request.form("ddd")&"-"& request.form("telefone")
Text = Text & "Cidade: "& request.form("cidade")&"-"& request.form("estado")
Text = Text & "Mensagem: "& request.form("comentario")
Text = Text & "Informações: "& request.form("info")
objmail.BodyText = Text

objmail.SendMail

Set objmail = nothing

%>


Opa viu que como consegue fazer algo :D .

teste assim...

Edição feita por: Generation, 30/07/2006, 12:40.

Favoritos : | OpenSuse | Opera | Firefox | NetBeans | GMail | Leia As Regras | Use a Busca | Como fazer Perguntas Inteligentes |
“Obstáculos são aquelas coisas medonhas que você vê quando tira seus olhos de seu objetivo” (Henry Ford)
“É impossível para um homem aprender aquilo que ele acha que já sabe.” (Epíteto)
“A única razão da existência do tempo é para que todas as coisas não aconteçam de uma vez.”(Albert Einstein)

#9 ronaldo_calado

ronaldo_calado

    Novato no fórum

  • Usuários
  • 19 posts
  • Sexo:Não informado

Posted 30/07/2006, 13:23

<%

Set objmail = Server.CreateObject("SMTPsvg.Mailer")
objmail.FromName = "Ronaldo"
objmail.FromAddress = "br_neves@hotmail.com.br"
objmail.RemoteHost = "smtp.terraemprezas.com.br"
objmail.AddRecipient "Ronaldo", "br_neves8@yahoo.com.br"
objmail.Subject = Request.form("assunto")
objmail.ContentType = "text/html"
Text = "Nome: "& request.form("nome")
Text = Text & "Email: "& request.form("frm_email")
Text = Text & "Telefone: "& request.form("ddd")&"-"& request.form("telefone")
Text = Text & "Cidade: "& request.form("cidade")&"-"& request.form("estado")
Text = Text & "Mensagem: "& request.form("comentario")
Text = Text & "Informações: "& request.form("info")
objmail.BodyText = Text

objmail.SendMail

Set objmail = nothing

%>


Opa viu que como consegue fazer algo :D .

teste assim...

kra, valew, mando, mais so mais uma duvida, quando e email chego tava td numa linha so, como eu faço pra colocar uma quebra de linha????? so ta faltando isso agora

#10 Generation

Generation

    Super Veterano

  • Usuários
  • 1546 posts
  • Sexo:Masculino
  • Localidade:Curitiba - PR

Posted 30/07/2006, 13:27

adicione um <br>

<%

Set objmail = Server.CreateObject("SMTPsvg.Mailer")
objmail.FromName = "Ronaldo"
objmail.FromAddress = "br_neves@hotmail.com.br"
objmail.RemoteHost = "smtp.terraemprezas.com.br"
objmail.AddRecipient "Ronaldo", "br_neves8@yahoo.com.br"
objmail.Subject = Request.form("assunto")
objmail.ContentType = "text/html"
Text = "Nome: "& request.form("nome")
Text = Text & "<br>Email: "& request.form("frm_email")
Text = Text & "<br>Telefone: "& request.form("ddd")&"-"& request.form("telefone")
Text = Text & "<br>Cidade: "& request.form("cidade")&"-"& request.form("estado")
Text = Text & "<br>Mensagem: "& request.form("comentario")
Text = Text & "<br>Informações: "& request.form("info")
objmail.BodyText = Text

objmail.SendMail

Set objmail = nothing

%>


Edição feita por: Generation, 30/07/2006, 13:27.

Favoritos : | OpenSuse | Opera | Firefox | NetBeans | GMail | Leia As Regras | Use a Busca | Como fazer Perguntas Inteligentes |
“Obstáculos são aquelas coisas medonhas que você vê quando tira seus olhos de seu objetivo” (Henry Ford)
“É impossível para um homem aprender aquilo que ele acha que já sabe.” (Epíteto)
“A única razão da existência do tempo é para que todas as coisas não aconteçam de uma vez.”(Albert Einstein)
Voltar para ASP


0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

  1. Fórum WMO
  2. → Desenvolvimento
  3. → ASP
  4. Privacy Policy
  5. Regras ·
IPB Skin By Virteq