Jump to content


Photo

Jmail


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

#1 kamuswar

kamuswar

    Normal

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

Posted 25/02/2004, 21:13

Set Mail = Server.CreateObject("JMail.SMTPMail")
Mail.ServerAddress = "mail.libihost.net"
Mail.Logging = True
Mail.Sender = "email@bol.com.br"
Mail.SenderName = "teste"
Mail.AddRecipient "email@bol.com.br"
Mail.Subject = "assunto da mensagem"
Mail.Body =  "Teste"
Mail.Execute
Set Mail = Nothing


eu queria saber como eu configuro o ServerAddress para o email do bol
Mail.ServerAddress = "mail.libihost.net" em vez de mail.libhost.net teria como eu fazer mail.bol.com.br?

Obrigado

Edição feita por: kamuswar, 25/02/2004, 21:14.


#2 Xclick

Xclick

    12 Horas

  • Usuários
  • 198 posts
  • Sexo:Não informado
  • Localidade:Bauru

Posted 26/02/2004, 01:46

não, na verdade o correto seria smtp.bol.com.br mas também vc pode usar o smtp que seu servidor vai te fornecer, abaixo um mini tutorial sobre o Jmail:

Jmail é o componente utilizado para o envio de mensagens via ASP.

Principais comandos:


Set JMail = Server.CreateObject("JMail.SMTPMail")

Serve para criar a conexão com o servidor

JMail.ServerAddress = "mail.extendnet.com.br:25"

Indica o endereço do servidor responsável pelo envio das mensagens

JMail.Sender = email

Indica o e-mail de quem está enviando (pode ser uma variável que contém o e-mail)

JMail.SenderName = nome

Indica o nome de quem está enviando (pode ser uma variável que contém o nome)

JMail.Subject = "Extend.Net - Fale Conosco"

Indica o título da mensagem

JMail.AddRecipient "suporte@extendnet.com.br"

Indica o endereço de quem vai receber o e-mail

JMail.ContentType = "text/html"

Indica em que tipo seu e-mail será enviado

JMail.body = "<center><font face=arial size=3 color=#ff0000><b>Fale conosco - Site Extend.Net</b><p></font></center>"

Inicializa o texto no corpo da mensagem


JMail.AppendText("<tr><td><b>Contato: </b></td><td>" & nome & "</td></tr>")

Adiciona texto ao corpo da mensagem

JMail.Execute

Envia o e-mail

set JMail = nothing

Apaga o objeto criado para enviar o e-mail

Exemplo:
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.extendnet.com.br:25"
JMail.Sender = email
JMail.SenderName = nome
JMail.Subject = "Extend.Net - Fale Conosco"
JMail.AddRecipient "suporte@extendnet.com.br"
JMail.ContentType = "text/html"
JMail.body = "<center><font face=arial size=3 color=#ff0000><b>Fale conosco - Site Extend.Net</b><p></font></center>"
JMail.AppendText("<table cellpadding=0 cellspacing=0 border=0 align=left><tr><td><b>Empresa: </b></td><td>" & nome & "</td></tr>")
JMail.AppendText("<tr><td><b>Contato: </b></td><td>" & nome & "</td></tr>")
JMail.AppendText("<tr><td><b>Email: </b></td><td>" & email & "</td></tr>")
JMail.AppendText("<tr><td><b>Empresa: </b></td><td>" & empresa & "</td></tr>")
JMail.AppendText("<tr><td><b>Endereço: </b></td><td>" & endereco & "</td></tr>")
JMail.AppendText("<tr><td><b>Cidade: </b></td><td>" & cidade & "</td></tr>")
JMail.AppendText("<tr><td><b>Estado: </b></td><td>" & estado & "&nbsp;&nbsp;&nbsp;Cep: " & cep & "</td></tr>")
JMail.AppendText("<tr><td colspan=2><b>Como você chegou a nós ?</b></td></tr>")
JMail.AppendText("<tr><td colspan=2>" & chegar & "</td></tr>")
JMail.AppendText("<tr><td colspan=2><b>Comentários:</b></td></tr>")
JMail.AppendText("<tr><td colspan=2> " & comenta & "</td></tr>")
JMail.Execute
set JMail = nothing


#3 kamuswar

kamuswar

    Normal

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

Posted 26/02/2004, 10:28

Valeu cara

Muito Obrigado

Só mais uma duvida

Mail.ServerAddress = "mail.libihost.net"
quando o libhost, q é o servidor envia o email, ele não tem como ver ou receber uma copia do email né?

#4 kamuswar

kamuswar

    Normal

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

Posted 26/02/2004, 10:56

Eu coloquei

smtp.bol.com.br e deu esse erro

jmail.SMTPMail erro '8000ffff'

The message was undeliverable. All servers failed to receive the message

/teste/email.asp, line 9


abaixo segue o codigo do email

Set Mail = Server.CreateObject("JMail.SMTPMail")
Mail.ServerAddress = "smtp.bol.com.br"
Mail.Sender = "email@bol.com.br"
Mail.SenderName = "teste"
Mail.AddRecipient "email@bol.com.br"
Mail.Subject = "assunto da mensagem"
Mail.Body =  "Teste"
Mail.Execute
Set Mail = Nothing


porque da esse erro, e como faço para arruma-lo?


Obrigado

Edição feita por: kamuswar, 26/02/2004, 10:57.


#5 Xclick

Xclick

    12 Horas

  • Usuários
  • 198 posts
  • Sexo:Não informado
  • Localidade:Bauru

Posted 26/02/2004, 11:04

o libihost não vai receber cópia não... o e-mail apenas vai ser enviado pelo servidor deles.

sua página está sendo testada em algum servidor de hospedagem ou é local? Se for em algum servidor de hospedagem, contate eles para saber qual seria o servidor de envio de e-mail. Se o mail.libihost.net tá funcionando deixa ele.

#6 WeedzMan

WeedzMan

    Turista

  • Usuários
  • 52 posts
  • Sexo:Não informado
  • Localidade:Rio de Janeiro
  • Interesses:Arte, design, culinária, música e programação

Posted 26/02/2004, 11:05

Depende ...

Você precisa saber se o BOL permite que você use o servidor SMTP para enviar mensagens fora do webmail ou clientes de correio (Outlook, Eudora, NS Messenger, etc).

Isto se chama "relay" e a grande maioria dos servidores SMTP são bloqueados para este fim ... assim começa o SPAM.

Boa sorte.

WeedzMan
Inteligência artificial é melhor que burrice natural

#7 kamuswar

kamuswar

    Normal

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

Posted 26/02/2004, 11:14

Ta funcionando normal

blz , valeu é q eu fico meio preocupado com as informações

mas eu fiz um teste e chego o email rapido

Valeu , cara
Obrigado! :D

Edição feita por: kamuswar, 26/02/2004, 11:14.


#8 Cesar Brunelli

Cesar Brunelli

    Novato no fórum

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

Posted 21/04/2006, 15:31

Amigo estou tentando fazer um formulário com o JMAIL e não consigo localizar em nenhum lugar o código vou colocar meu formulário aqui pra saber se alguém pode me ajudar:

-MEU FORMULÁRIO------------------------------------------------------------------------>>>


<form method="POST" action="envia_formulario.asp">
<p align="center">
<input type="hidden" name="subject" value="Formulário de Contato">
<input type="hidden" name="recipient" value="EMAIL@MEUSITE.COM.BR">
<center>
<table width="494" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="107"><strong><font color="#FF6600" size="1" face="Verdana, Arial, Helvetica, sans-serif">Nome
Completo:</font></strong></td>
<td width="387"> <input name="Nome:" size="50" class="Fields"> </td>
</tr>
<tr>
<td><strong><font color="#FF6600" size="1" face="Verdana, Arial, Helvetica, sans-serif">Endere&ccedil;o:</font></strong></td>
<td> <input name="Endereço:" size="50" class="Fields"> </td>
</tr>
<tr>
<td><strong><font color="#FF6600" size="1" face="Verdana, Arial, Helvetica, sans-serif">Complemento:</font></strong></td>
<td> <input name="Complemento:" size="50" class="Fields"> </td>
</tr>
<tr>
<td><strong><font color="#FF6600" size="1" face="Verdana, Arial, Helvetica, sans-serif">Bairro:</font></strong></td>
<td> <input name="Bairro:" size="50" class="Fields"> </td>
</tr>
<tr>
<td><strong><font color="#FF6600" size="1" face="Verdana, Arial, Helvetica, sans-serif">Cidade:</font></strong></td>
<td> <input name="Cidade:" size="50" class="Fields"> </td>
</tr>
<tr>
<td><strong><font color="#FF6600" size="1" face="Verdana, Arial, Helvetica, sans-serif">DDD</font><font color="#FF6600" size="1" face="Verdana, Arial, Helvetica, sans-serif">+Telefone:</font></strong></td>
<td> <input name="Telefone:" size="50" class="Fields"> </td>
</tr>
<tr>
<td><strong><font color="#FF6600" size="1" face="Verdana, Arial, Helvetica, sans-serif">DDD+Celular.:</font></strong></td>
<td> <input name="Celular:" size="50" class="Fields"> </td>
</tr>
<tr>
<td><strong><font color="#FF6600" size="1" face="Verdana, Arial, Helvetica, sans-serif">E-mail:</font></strong></td>
<td> <input name="E_mail:" size="50" class="Fields"> </td>
</tr>
<tr>
<td><strong><font color="#FF6600" size="1" face="Verdana, Arial, Helvetica, sans-serif">Mensagem:</font></strong></td>
<td> <textarea name="Mensagem:" cols="52" rows="5" class="Fields"></textarea>
</td>
</tr>
<tr>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;</font></td>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;</font></td>
</tr>
<tr>
<td colspan="2"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;</font><font color="#800000"><b><font face="Arial" size="2" color="#800000">
<input name="submit" type="submit" value="Enviar dados" class="Buttons">
<input name="reset" type="reset" value="Limpar dados" class="Buttons">
</font></b></font><font size="1" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;</font></div></td>
</tr>
</table>
</center>
</form>


------------------------------------------------------------------------------------------------------>>>

-MEU CÓDIGO QUE ENVIA------------------------------------------------------------------------>>>

<%
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "localhost"
JMail.Sender = Request.Form("E_mail:")
JMail.SenderName = Request.Form("Nome:")
JMail.Subject = Request.Form("subject")
JMail.AddRecipient "EMAIL@MEUSITE.COM.BR"
JMail.Body = Request.Form("Mensagem:")

COMO SERIA O CÓDIGO DOS SEGUINTES CAMPOS:
"Endereço:"
"Complemento:"
"Bairro:"
"Cidade:"
"Telefone:"
"Celular:"
??
SERÁ QUE TERIA UMA OPÇÃO QUE A MENSAGEM "Mensagem enviada com sucesso!" PUDESSE APARECER NAQUELAS JANELAS DE AVISO DO WINDOWS EM VER DE NESSE ARQUIVO E AUTOMATICAMENTE DAR O REFRESH NA PÁGINA DO FORMULÁRIO??


vIPAddress = Request.ServerVariables("HTTP_HOST")
JMail.AddHeader "Originating-IP", vIPAddress
JMail.Execute
Response.Write "Mensagem enviada com sucesso!"
%>

------------------------------------------------------------------------------------------------------>>>

AGUARDO ALGUM AMIGO PARA ME AJUDAR!! DESDE JÁ MUITO OBRIGADO!




1 user(s) are reading this topic

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

IPB Skin By Virteq