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.

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'è):



EMG

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"

Prova così:



EMG

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

Per favore, usa il mio esempio così com'è. Hai cancellato qualcosa di essenziale.

EMG

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 ?

A me questo ha funzionato perfettamente (dovrebbero esserti arrivati due messaggi):



EMG

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

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

Che io sappia funziona perfettamente anche su Vista.

EMG

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....

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

Enrico Maria Giordano wrote:Sembra più un problema di router che di sistema operativo.

O forse di Firewall.

EMG