FiveTech Software tech support forums

www.FiveTechSoft.com
https://fivetechsupport.com/forums/

Inviare un'email

https://fivetechsupport.com/forums/viewtopic.php?f=20&t=12707

Page 1 of 1

Inviare un'email

PostPosted: 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

PostPosted: 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

PostPosted: 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"

PostPosted: 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

PostPosted: 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

PostPosted: 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

PostPosted: 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 ?

PostPosted: 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

PostPosted: 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

PostPosted: 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 !!)

PostPosted: Wed Oct 01, 2008 11:40 am
by Enrico Maria Giordano
Che io sappia funziona perfettamente anche su Vista.

EMG

PostPosted: 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. :D

Ci vorrebbe proprio una guida on line decente su tutte le funzionalità di xHarbour....

PostPosted: 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

PostPosted: 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
All times are UTC
Page 1 of 1
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/