Infomarket
InfoMail v1.5 - Componente ActiveX/OLE
para o envio de e-mails via web

InfoMail

InfoMail é um componente ActiveX/OLE que permite enviar e-mails ou listas de e-mails usando o protocolo SMTP por  scripts  em páginas Web que estejam rodando no servidor onde o componente está instalado.

Recursos:

  1. Protocolo SMTP.
  2. Permite Múltiplos Arquivos Anexados.
  3. Permite que o corpo do e-mail seja uma página HTML.
  4. Envia e-mails independentes para os destinatários.
  5. Gera relatório para o administrador dos e-mails enviados.
  6. Permite Múltiplos Usuários Concorrentes.
  7. Fácil de usar e de instalar.

 

Instalação do InfoMail

XP, Windows NT, Windows 2000

  • Copie o InfoMail.dll para a pasta  c:\windows\system32 ou c:\winnt\system32.
  • Chame uma janela de Prompt de Comando (Iniciar, executar e digite cmd)
  • Troque para a pasta onde está a DLL (ex:  cd \windows\system32)
  • Digite regsvr32 infomail.dll Aparecerá: (O registro de InfoMail.dll teve êxito)

Windows 2003

O Procedimento para instalar o InfoMail no W2003 e o mesmo descrito acima, só que para o W2003 após  instalar qualquer DLL,  você  precisa no IIS cadastrar e autorizar o o uso desta DLL para o site que pretende usá-la.

Exemplo do uso do componente para o envio de e-mail tipo "Fale Conosco" de um formulário web.

<%
nome = Request.form ("nome")
email = Request.form ("email")
comentario = Request.form ("comentario")

Set Mail = Server.CreateObject("infoMail.Mail")

Mail.Host = "localhost"
Mail.Port = "25"
Mail.ContentType = "text/html"
Mail.Subject = "Fale Conosco"
Mail.BodyText = "<html>" & replace(comentario, chr(13),"<br>")  & "</html>"
Mail.From = "admin@seu_provedor.com.br"
Mail.FromName = nome
Mail.ReplyTo = email
Mail.ToMail = "admin@seu_provedor.com.br"

Mail.Send
%>

Propriedades e sintaxe do Componente.

propriedade descrição obrigatório
Mail.Host Nome ou IP do servidor SMTP que será usado para o envio da mensagem.
ex:
Mail.Host = "127.0.0.1"
Mail.Host = "10.220.20.20"
Mail.Host = "smt.isp1.com.br"		 X
Mail.Port Porta para a comunicação com o servidor SMTP. O padrao é 25.
ex:
Mail.Port = "25"		 X
Mail.UserID Esta propriedade não é obrigatória, mas existem alguns servidores SMTP que exigem um usuário cadastrado.
ex:
Mail.UserID = "admin"		  
Mail.ContentType Codificação do corpo da mensagem.
Para mensagens em html, use  "text/html".
Para mensagens texto, use  "text/plain".
ex:
 Mail.ContentType = "text/html"		 X
Mail.From E-mail de quem está enviando a mensagem.
ex:
 Mail.From = "admin@isp3.com.br"		 X
Mail.FromName Nome de quem está enviando a mensagem.
ex: "administrador"		  
Mail.ReplyTo E-mail de retorno ao clicar em responder.
ex:
Mail.ReplyTo = "email5@isp1.com.br"		  
Mail.ToMail Para cada e-mail adicionado em ToMail, o componente tratará como e-mail independente enviando um e-mail para cada um. Você pode fazer um loop adicionando destinatários em ToMail ou adicionar um ou mais strings com a relação de destinatários, o delimitador poderá ser virgula ou ponto e virgula.
NOTA1: Adicione todos os destinatários em ToMail antes de usar o Mail.Send, isso tornará mais rápido e mais eficiente o envio dos e-mails.
ex:
Mail.ToMail = "email1@isp1.com.br"
Mail.ToMail = "nome1 <email1@isp1.com.br>"
Mail.ToMail = "email1@isp1.com.br;email2@isp2.com.br"
Mail.ToMail = "nome1 <email1@isp1.com.br>;nome2 <email2@isp2.com.br>"
NOTA2: Para enviar e-mails com o nome do destinatário, o e-mail deve estar entre "<>"		 X
Mail.CC Adiciona cópias para outros e-mails. A relação de e-mails é enviada para todos.
ex:
Mail.CC = "email1@isp1.com.br;email2@isp2.com.br"		  
Mail.BCC Com esta propriedade você pode adicionar cópias ocultas para outros e-mails.
ex:
Mail.BCC = "email1@isp1.com.br;email2@isp2.com.br"		  
Mail.Subject Assunto do seu e-mail.
ex:
Mail.Subject = "Teste do E-mail"		  
Mail.BodyText Corpo do seu e-mail. O conteúdo deve ser em html ou apenas texto de acordo com a propriedade  Mail.ContentType.
ex:
Mail.BodyText = "<b>Teste do envio de E-mail</b>"		  
Mail.FileBodyText O corpo do e-mail também pode ser uma página html ou uma página de texto, de acordo com a propriedade  Mail.ContentType.
ex:
Mail.FileBodyText = "C:\raiz\site\testeEmail.txt"
Mail.FileBodyText = Server.MapPath("News.htm")
NOTA: Para lembrar: o endereçamento das figuras na página html a ser enviada devem ser absolutos.		  
Mail.AttachFile Use esta propriedade para anexar arquivos no e-mail.
ex:
Mail.AttachFile = "C:\raiz\site\teste.zip"
Mail.AttachFile = Server.MapPath("teste.doc")
Mail.AttachFile = Server.MapPath("teste.ppp")		  
Mail.FileReport Nesta propriedade se especifica o caminho do arquivo onde o componente fará o relatório de envio dos e-mails. Ela funciona em conjunto com Mail.Report.
ex:
 Mail.FileReport = "C:\raiz\site\relat\relatorio.txt"
Mail.FileReport = Server.MapPath("relatorio.txt")
NOTA: Possivelmente você terá que dar permissão na pasta para criação do arquivo.		  
Mail.Report Esta propriedade tem duas opções: "A" e "B". Ela funciona em conjunto com a propriedade Mail.FileReport.
"A" : O componente cria um relatório informando o numero de e-mails enviados.
"B" : O componente cria um relatório informando o numero de e-mails enviados e para quais e-mails foi enviado.
ex:
Mail.Report = "A" 
Mail.Report = "B"

Esta propriedade é muito útil quando por algum motivo o componente não conseguiu enviar para todos os e-mails que foi passado, como por exemplo por Server-Timeout da página, no relatório terá o total de e-mails enviados.

Formato do Relatório:
Linha 1: Tipo de relatório pedido, pode conter "A" ou "B"
Linha 2: O caminho do arquivo onde será feito o relatório, colocado em Mail.FileReport.
Linha 3: Quantidade de e-mails enviados
Linha 4: A partir desta linha usando a opção "B", será colocado os e-mails destinatários que foram enviados, um em cada linha.
NOTA1: A  opção "B" foi desenvolvida para seus testes de desenvolvimento, a opção "A" é suficiente para fazer todo o gerenciamento do envio de seus e-mails. 		 
Mail.Send Inicia o processo de envio dos e-mails.  
Baixe o InfoMail Aqui é FREE!

Veja outros componentes

Fale Conosco