Page 1 of 1
Inviare un'email
Posted:
Sun Sep 14, 2008 7:38 pm
by Marco Turco
Salve,
sto pensando di inserire nelle mie applicazioni un sistema di richiesta assistenza on line al prodotto.
Sono dell'idea di utilizzare per l'invio la classe tsmtp di FWH che però mi sembra non affidabilissima da quanto leggo sul forum.
Vorrei un vostro parere a riguardo ed anche sapere se conoscete alternative (mi sembra di ricordare che c'era una dll freeware per inviare email)
Grazie.
Re: Inviare un'email
Posted:
Mon Sep 15, 2008 7:40 am
by Enrico Maria Giordano
Sì, io uso la SndMail.dll
http://www.xmailserver.org/davide.html
che finora non mi ha dato problemi. Questa è la funzione che uso per pilotarla (è solo per darti un'idea, non funziona così com'è):
- Code: Select all Expand view
FUNCTION SENDMAIL( cFrom, cServer, cTo, cSubject, cMessage, aAttach, cSender, cUser, cPassword, aCc, lHtml, cPort )
LOCAL cMsgFile := GETNEWFNAME()
LOCAL cCmd := "SndMail -f " + cFrom + " -X " + cServer + " -r " + cTo + " -s " + ["] + cSubject + ["] + " -b " + cMsgFile
LOCAL nRes
LOCAL i
DEFAULT lHtml := .F.
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
MSGBOX "Invio email in corso..."
hDLL = LOADLIB32( "sndmail.dll" )
SMTPLIBOPEN()
nRes = SMTPSENDMAIL( cCmd )
SMTPLIBCLOSE()
FREELIB32( hDLL )
CLOSE MSGBOX
FERASE( cMsgFile )
RETURN nRes = 0
DLL STATIC FUNCTION SMTPLIBOPEN() AS VOID;
PASCAL FROM "USmtpLibOpen"
DLL STATIC FUNCTION SMTPSENDMAIL( cCmd AS STRING ) AS LONG;
PASCAL FROM "USmtpCmdLineSendMail"
DLL STATIC FUNCTION SMTPLIBCLOSE() AS VOID;
PASCAL FROM "USmtpLibClose"
EMG
Posted:
Tue Sep 30, 2008 6:50 pm
by Marco Turco
Sto provando l'esempio che mi hai inviato ma non riesco a compilarlo perché mi da sempre errori "syntax error static" sulle definizioni delle fnzioni dll. Ecco il codice leggermente semplificato che mi da l'errore.
Qualche idea ?
Grazie.
Marco
FUNCTION SENDMAIL( cFrom, cServer, cTo, cSubject, cMessage, aAttach, cSender, cUser, cPassword, aCc, lHtml, cPort )
LOCAL cMsgFile := "test.txt"
LOCAL cCmd := "SndMail -f " + cFrom + " -X " + cServer + " -r " + cTo + " -s " + ["] + cSubject + ["] + " -b " + cMsgFile
LOCAL nRes
LOCAL i
DEFAULT lHtml := .F.
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
hDLL = LOADLIB32( "sndmail.dll" )
SMTPLIBOPEN()
nRes = SMTPSENDMAIL( cCmd )
SMTPLIBCLOSE()
FREELIB32( hDLL )
FERASE( cMsgFile )
RETURN nRes = 0
DLL STATIC FUNCTION SMTPLIBOPEN() AS VOID;
PASCAL FROM "USmtpLibOpen"
DLL STATIC FUNCTION SMTPSENDMAIL( cCmd AS STRING ) AS LONG;
PASCAL FROM "USmtpCmdLineSendMail"
DLL STATIC FUNCTION SMTPLIBCLOSE() AS VOID;
PASCAL FROM "USmtpLibClose"
Posted:
Tue Sep 30, 2008 8:09 pm
by Enrico Maria Giordano
Prova così:
- Code: Select all Expand view
#include "Fivewin.ch"
STATIC hLib
FUNCTION MAIN()
? SENDMAIL( ... )
RETURN NIL
FUNCTION SENDMAIL( cFrom, cServer, cTo, cSubject, cMessage, aAttach, cSender, cUser, cPassword, aCc, lHtml, cPort )
LOCAL cMsgFile := CTEMPFILE()
LOCAL cCmd := "SndMail -f " + cFrom + " -X " + cServer + " -r " + cTo + " -s " + ["] + cSubject + ["] + " -b " + cMsgFile
LOCAL nRes
LOCAL i
DEFAULT lHtml := .F.
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
hLib = LOADLIBRARY( "sndmail.dll" )
SMTPLIBOPEN()
nRes = SMTPSENDMAIL( cCmd )
SMTPLIBCLOSE()
FREELIBRARY( hLib )
CLOSE MSGBOX
FERASE( cMsgFile )
RETURN nRes = 0
DLL STATIC FUNCTION SMTPLIBOPEN() AS VOID;
PASCAL FROM "USmtpLibOpen" LIB hLib
DLL STATIC FUNCTION SMTPSENDMAIL( cCmd AS STRING ) AS LONG;
PASCAL FROM "USmtpCmdLineSendMail" LIB hLib
DLL STATIC FUNCTION SMTPLIBCLOSE() AS VOID;
PASCAL FROM "USmtpLibClose" LIB hLib
EMG
Posted:
Wed Oct 01, 2008 8:18 am
by Marco Turco
Ora viene compilata correttamente ma quando invio una mail mi restituisce sempre .f.
Ho creato un account di prova per fare i test e funziona correttamente con outlook.
Ho dimenticato qualcosa secondo te ?
------
#include "Fivewin.ch"
STATIC hLib
function invia()
cFrom:="customers@softwarexp.co.uk"
cServer:="mail.softwarexp.co.uk"
cTo:="m.turco@softwarexp.co.uk"
cSubjeCt:="Richiesta di assistenza"
cMessage:="Problema generale di contabilit…"
cSender:="Studio amministrativo"
cUser:="customers@softwarexp.co.uk"
cPassword:="diamante71"
i:=SENDMAIL( cFrom, cServer, cTo, cSubject, cMessage, {}, cSender, cUser, cPassword)
msginfo(i)
return
FUNCTION SENDMAIL( cFrom, cServer, cTo, cSubject, cMessage, aAttach, cSender, cUser, cPassword, aCc, lHtml, cPort )
LOCAL cMsgFile := CTEMPFILE()
LOCAL cCmd := "SndMail -f " + cFrom + " -X " + cServer + " -r " + cTo + " -s " + ["] + cSubject + ["] + " -b " + cMsgFile
LOCAL nRes
LOCAL i
DEFAULT lHtml := .F.
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
hLib = LOADLIBRARY( "sndmail.dll" )
SMTPLIBOPEN()
nRes = SMTPSENDMAIL( cCmd )
SMTPLIBCLOSE()
FREELIBRARY( hLib )
FERASE( cMsgFile )
RETURN nRes = 0
DLL STATIC FUNCTION SMTPLIBOPEN() AS VOID;
PASCAL FROM "USmtpLibOpen" LIB hLib
DLL STATIC FUNCTION SMTPSENDMAIL( cCmd AS STRING ) AS LONG;
PASCAL FROM "USmtpCmdLineSendMail" LIB hLib
DLL STATIC FUNCTION SMTPLIBCLOSE() AS VOID;
PASCAL FROM "USmtpLibClose" LIB hLib
Posted:
Wed Oct 01, 2008 8:40 am
by Enrico Maria Giordano
Per favore, usa il mio esempio così com'è. Hai cancellato qualcosa di essenziale.
EMG
Posted:
Wed Oct 01, 2008 9:14 am
by Marco Turco
Mi sono limitato a cancellare la creazione del file temporaneo che contiene il messaggio e il comando close msgbox, per il resto è tutto inviariato inoltre il problema si presenta anche con il codice originario.
Forse c'è un problema nei parametri ?
Posted:
Wed Oct 01, 2008 10:37 am
by Enrico Maria Giordano
A me questo ha funzionato perfettamente (dovrebbero esserti arrivati due messaggi):
- Code: Select all Expand view
#include "Fivewin.ch"
STATIC hLib
FUNCTION MAIN()
LOCAL cFrom := "customers@softwarexp.co.uk"
LOCAL cServer := "mail.softwarexp.co.uk"
LOCAL cTo := "m.turco@softwarexp.co.uk"
LOCAL cSubjeCt := "Richiesta di assistenza"
LOCAL cMessage := "Problema generale di contabilità"
LOCAL cSender := "Studio amministrativo"
LOCAL cUser := "customers@softwarexp.co.uk"
LOCAL cPassword := "diamante71"
? SENDMAIL( cFrom, cServer, cTo, cSubject, cMessage, , cSender, cUser, cPassword )
RETURN NIL
FUNCTION SENDMAIL( cFrom, cServer, cTo, cSubject, cMessage, aAttach, cSender, cUser, cPassword, aCc, lHtml, cPort )
LOCAL cMsgFile := CTEMPFILE()
LOCAL cCmd := "SndMail -f " + cFrom + " -X " + cServer + " -r " + cTo + " -s " + ["] + cSubject + ["] + " -b " + cMsgFile
LOCAL nRes
LOCAL i
DEFAULT lHtml := .F.
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
hLib = LOADLIBRARY( "sndmail.dll" )
SMTPLIBOPEN()
nRes = SMTPSENDMAIL( cCmd )
SMTPLIBCLOSE()
FREELIBRARY( hLib )
FERASE( cMsgFile )
RETURN nRes = 0
DLL STATIC FUNCTION SMTPLIBOPEN() AS VOID;
PASCAL FROM "USmtpLibOpen" LIB hLib
DLL STATIC FUNCTION SMTPSENDMAIL( cCmd AS STRING ) AS LONG;
PASCAL FROM "USmtpCmdLineSendMail" LIB hLib
DLL STATIC FUNCTION SMTPLIBCLOSE() AS VOID;
PASCAL FROM "USmtpLibClose" LIB hLib
EMG
Posted:
Wed Oct 01, 2008 10:38 am
by Enrico Maria Giordano
Marco Turco wrote:Mi sono limitato a cancellare la creazione del file temporaneo che contiene il messaggio
Probabilmente il problema è proprio quello. Quella parte è essenziale.
EMG
Posted:
Wed Oct 01, 2008 11:34 am
by Marco Turco
Niente da fare.
Ho anche provato ad utilizzare direttamente la versione .exe a linea di comando ed il messaggio di errore che viene visualizzato è "Error code -17 Low level network error"
Credo che la dll non sia progettata per essere utilizzata su Vista (è datata 2003 !!)
Posted:
Wed Oct 01, 2008 11:40 am
by Enrico Maria Giordano
Che io sappia funziona perfettamente anche su Vista.
EMG
Posted:
Wed Oct 01, 2008 4:25 pm
by Marco Turco
Qui non funziona però.
Comunque ho risolto con un altra soluzione,
ho scoperto che xharbour ha già inclusa una funzione per inviare emails.
Basta chiamare hb_SendMail(....) senza necessità di utilizzare classi o dll esterne.
Ci vorrebbe proprio una guida on line decente su tutte le funzionalità di xHarbour....
Posted:
Wed Oct 01, 2008 4:33 pm
by Enrico Maria Giordano
Marco Turco wrote:Qui non funziona però.
Sembra più un problema di router che di sistema operativo. Hai provato con XP con la stessa connessione Internet?
Marco Turco wrote:Comunque ho risolto con un altra soluzione,
ho scoperto che xharbour ha già inclusa una funzione per inviare emails.
Sì, ma è paurosamente lenta è per me è inusabile.
EMG
Posted:
Wed Oct 01, 2008 5:23 pm
by Enrico Maria Giordano
Enrico Maria Giordano wrote:Sembra più un problema di router che di sistema operativo.
O forse di Firewall.
EMG