PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → Dll para envio de e-mail: ACBrMail32.dll
Dll para envio de e-mail: ACBrMail32.dll
Iniciado por Boller, dez., 08 2020 3:14 PM - Sem resposta
Membro registado
3.651 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/