• advertisement_alt
  • advertisement_alt
  • advertisement_alt
Cassiano

ACBrLibMail - Dll usada para envio de emails

1 post in this topic

O projeto ACBr é um projeto open source q existe a mais de 10 anos integrando diversas facilidades, uma delas é o envio de emails.

Os componentes do projeto ACBr são nativos para linguagem pascal, no entanto, podem ser utilizados por outras linguagens por meio de um monitor (EXE q monitora determinada pasta e faz troca de arquivos para interação das funcionalidades) e agora via Dll.

O objetivo deste tópico é fornecer um exemplo de código / passo a passo para utilizar a Dll no envio de e-mails

Segue:

// Manual Online do ACBrLib
//    https://acbr.sourceforge.io/ACBrLib/MAIL_Inicializar.html

// Pré requisitos:
//   Dlls:
//     ACBrMail32.dll q deve estar na pasta EXE do projeto
//     Demais dlls dependencias q são:
//		 libssl-1_1.dll
// 	     libcrypto-1_1.dll


DLLRetorno is int = 0

// Caso não exista será criado o arquivo ACBrEmail.INI no path informado
DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_Inicializar",fCurrentDir()+"\ACBrEmail.INI", "") // Segundo parametro conforme manual é a chave de criptografia, se deixar em branco fica o padrão

DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_ConfigGravarValor","Email","Nome",     "Sua Empresa")
DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_ConfigGravarValor","Email","Conta",    "[email protected]")
DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_ConfigGravarValor","Email","Usuario",  "[email protected]")
DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_ConfigGravarValor","Email","Senha",    "senhadoemail")
DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_ConfigGravarValor","Email","Servidor", "smtp.googlemail.com") // se for google, se não tem q ver as configurações dos outros
DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_ConfigGravarValor","Email","Porta",    "465") // exemplo se for hotmail, yahoo, etc, pode ser q varie a porta, SSL, TLS etc
DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_ConfigGravarValor","Email","SSL",      "1")   // vide configuração do provedor de email e tb como configurar no manual*
DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_ConfigGravarValor","Email","TLS",      "0")

DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_Clear")

DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_SetSubject",                                "Email Teste"          )
DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_AddAddress","[email protected]", "Nome do destinatário" )
DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_AddAltBody",                                "Corpo do email teste" )
DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_Send", True) // manda via thread, em background

DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_Finalizar")

Info(DLLRetorno) // lista de retornos no manual

 

image_2020_03_03T17_58_19_192Z.png

2 people like this

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now