A tool to send email ?
- albeiroval
- Posts: 384
- Joined: Tue Oct 16, 2007 5:51 pm
- Location: Barquisimeto - Venezuela
Re: A tool to send email ?
Enrico,
Please you can set an example for sendmail (...), for the case of using cServer ?
Please you can set an example for sendmail (...), for the case of using cServer ?
- Enrico Maria Giordano
- Posts: 8759
- Joined: Thu Oct 06, 2005 8:17 pm
- Location: Roma - Italia
- Has thanked: 1 time
- Been thanked: 4 times
- Contact:
- karinha
- Posts: 7944
- Joined: Tue Dec 20, 2005 7:36 pm
- Location: São Paulo - Brasil
- Been thanked: 3 times
- Contact:
Re: A tool to send email ?
Perfect! Thanks.

Regards, saludos.

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
- karinha
- Posts: 7944
- Joined: Tue Dec 20, 2005 7:36 pm
- Location: São Paulo - Brasil
- Been thanked: 3 times
- Contact:
Re: A tool to send email ?
link for download sndmail.dll
http://www.xmailserver.org/SndMail-2.5.zip
http://www.xmailserver.org/SndMail-2.5.zip
Code: Select all | Expand
#include "Fivewin.ch"STATIC hDllFUNCTION MAIN() LOCAL cFrom := "joao@pleno.com.br" LOCAL cServer := "smtp.pleno.com.br" LOCAL cTo := "joao@pleno.com.br" LOCAL cSubjeCt := "Test with sendmail.dll" LOCAL cMessage := "Test with sendmail.dll - Email Body" LOCAL cSender := "joao@pleno.com.br" LOCAL cUser := "joao@pleno.com.br" LOCAL cPassword := "xxxx999" LOCAL aAttach := {} LOCAL aCc := "" //??? LOCAL lHtml := .F. LOCAL cPort := "587" LOCAL lNotification := .F. // cFrom LOCAL lRet lRet := SENDMAIL( cFrom, cServer, cTo, cSubject, cMessage, cSender, cUser, cPassword, aAttach, aCc, lHtml, cPort, lNotification ) IF lRet ? "Message sent successfully" ELSE ? "Unsent message check windows live mail" ENDIFRETURN NILFUNCTION SENDMAIL( cFrom, cServer, cTo, cSubject, cMessage, cSender, cUser, cPassword, aAttach, aCc, lHtml, cPort, lNotification ) LOCAL cMsgFile := CTEMPFILE() LOCAL cCmd := "SndMail -f " + cFrom + " -X " + cServer + " -r " + cTo + " -s " + ["] + cSubject + ["] + " -b " + cMsgFile LOCAL nRes LOCAL i DEFAULT lHtml := "<html" $ LOWER( cMessage ) MEMOWRIT( cMsgFile, cMessage + CRLF ) IF !EMPTY( aAttach ) FOR i = 1 TO LEN( aAttach ) cCmd += " -a " + ["] + aAttach[ i ] + ["] NEXT ENDIF IF !EMPTY( cSender ) cCmd += " -F " + ["] + cSender + ["] ENDIF IF !EMPTY( cUser ) cCmd += " -h LOGIN -u " + cUser ENDIF IF !EMPTY( cPassword ) cCmd += " -p " + cPassword ENDIF IF !EMPTY( aCc ) FOR i = 1 TO LEN( aCc ) cCmd += " -c " + ["] + aCc[ i ] + ["] NEXT ENDIF IF lHtml cCmd += " -H" ENDIF IF !EMPTY( cPort ) cCmd += " -P " + cPort ENDIF IF !EMPTY( lNotification ) cCmd += " -t " + ["] + "Disposition-Notification-To: " + cFrom + ["] ENDIF hDLL = LOADLIBRARY( "sndmail.dll" ) IF hDll = 0 ? [Install sendmail.dll.. ] __QUIT() ELSE SMTPLIBOPEN() // OPEN sndmail.dll ENDIF nRes = SMTPSENDMAIL( cCmd ) SMTPLIBCLOSE() FREELIBRARY( hDLL ) FERASE( cMsgFile )RETURN nRes = 0DLL STATIC FUNCTION SMTPLIBOPEN() AS VOID; PASCAL FROM "USmtpLibOpen" LIB hDllDLL STATIC FUNCTION SMTPSENDMAIL( cCmd AS STRING ) AS LONG; PASCAL FROM "USmtpCmdLineSendMail" LIB hDllDLL STATIC FUNCTION SMTPLIBCLOSE() AS VOID; PASCAL FROM "USmtpLibClose" LIB hDll// END OF PROGRAM
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
- karinha
- Posts: 7944
- Joined: Tue Dec 20, 2005 7:36 pm
- Location: São Paulo - Brasil
- Been thanked: 3 times
- Contact:
Re: A tool to send email ?
Last edited by karinha on Wed Jun 15, 2016 1:07 pm, edited 1 time in total.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
- albeiroval
- Posts: 384
- Joined: Tue Oct 16, 2007 5:51 pm
- Location: Barquisimeto - Venezuela
Re: A tool to send email ?
Enrico,
puedes mostrar un ejemplo de uso de sendmail() con el parametro cServer ?
Google translator :
you can show an example of using sendmail () with the parameter cServer?
puedes mostrar un ejemplo de uso de sendmail() con el parametro cServer ?
Google translator :
you can show an example of using sendmail () with the parameter cServer?
- Enrico Maria Giordano
- Posts: 8759
- Joined: Thu Oct 06, 2005 8:17 pm
- Location: Roma - Italia
- Has thanked: 1 time
- Been thanked: 4 times
- Contact:
- MarcoBoschi
- Posts: 1072
- Joined: Thu Nov 17, 2005 11:08 am
- Location: Padova - Italy
- Contact:
Re: A tool to send email ?
> Is it working to send with TLS/e-mails?
In my opinion the answer is NO
Bye
In my opinion the answer is NO
Bye
Marco Boschi
info@marcoboschi.it
info@marcoboschi.it
- Enrico Maria Giordano
- Posts: 8759
- Joined: Thu Oct 06, 2005 8:17 pm
- Location: Roma - Italia
- Has thanked: 1 time
- Been thanked: 4 times
- Contact: