|
Dll para envio de e-mail: ACBrMail32.dll |
Iniciado por Boller, dez., 08 2020 3:14 PM - Sem resposta |
| |
| | | |
|
| |
Membro registado 3.657 mensagems Popularité : +175 (223 votes) |
|
Publicado em dezembro, 08 2020 - 3:14 PM |
DLLRetorno is int = 0 DLLFinalizar is int
DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_Inicializar","C:\rhwx24\WD\email\exe\acbremail01.ini","") IF DLLRetorno = 0 DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_ConfigGravarValor","Email","Nome","RH") END IF DLLRetorno = 0 DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_ConfigGravarValor","Email","Conta","email@rh.com.br") END IF DLLRetorno = 0 DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_ConfigGravarValor","Email","Usuario","email@rh.com.br") END IF DLLRetorno = 0 DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_ConfigGravarValor","Email","Senha","senhaconta") END IF DLLRetorno = 0 DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_ConfigGravarValor","Email","Servidor","smtp.rh.com.br") END IF DLLRetorno = 0 DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_ConfigGravarValor","Email","Porta","465") END IF DLLRetorno = 0 DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_ConfigGravarValor","Email","SSL", "1") END IF DLLRetorno = 0 DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_ConfigGravarValor","Email","TLS", "0") END IF DLLRetorno = 0 DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_Clear") END IF DLLRetorno = 0 DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_SetSubject","Email teste que deu certo") END IF DLLRetorno = 0 DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_AddAddress","roneiheck@rh.com.br","Ronei Heck") END IF DLLRetorno = 0 DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_AddAltBody","Corpo do email teste") END IF DLLRetorno = 0 DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_Send",True) END DLLFinalizar = CallDLL32("ACBrMail32.dll","MAIL_Finalizar")
Info(DLLRetorno)
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | | | |
| | |
|