invio email

[tiberi72]

ciao,
qualcuno mi sa dare qualche dritta su qualche funzione (oggetto o codice) che mi permetta di inviare una mail da un programma?

[Fabio]

Dai un occhiata a questo componente
http://wiki.lazarus.freepascal.org/lNet

Va compilato nell'IDE per renderlo disponibile.

Hai anche un esempio poi volendo
..\lnet\examples\visual\smtp

Non posso aiutarti oltre però non l'ho provato ancora.

[tiberi72]

grazie, lo provo poi ti faccio sapere

ciao!!

[xinyiman]

Nella sezione How To si trovano già un sacco di suggerimenti. Al riguardo avevo fatto questo!

http://www.lazaruspascal.it/index.php?page=8

[tiberi72]

chiedo scusa ma avevo provato a cercare solo nel forum.
faro' diverse prove.
Ancora grazie

Ciao

[Microges2000]

Dipende da cosa devi inviare e come...

Se vuoi inviare attach oppure non vuoi usare il gestore email istallato sul pc devi usare componenti di terze parti (per esempio Indy).
Se vuoi inviare messaggi senza attach ed utilizzare il gestore del pc basta chiamare la funzione OpenURL(messaggio : string) in questo modo:

Codice: [Seleziona]

// invio a indirizzo@pippo.it un messaggio che ha come oggetto Questo è l'oggetto
// e come testo del messaggio questo è il testo del messaggio
Var
  Messaggio : String;
Begin
   Messaggio := 'mailto:indirizzo@pippo.it?subject=Questo è l''oggetto&body=questo è il testo del messaggio';
   OpenUrl(Messaggio);
End;

tieni presente che se vuoi andare a capo (più linee) devi inserire la sequenza %0D%0A. Esempio:

Codice: [Seleziona]

Messaggio := 'Linea numero 1'+'%0D%0A'+'Linea numero 2';

facile no?

[bonmario]

Nella sezione How To si trovano già un sacco di suggerimenti. Al riguardo avevo fatto questo!

http://www.lazaruspascal.it/index.php?page=8

Ciao,
ho provato a seguire quello che hai scritto nell'HowTo.
Ieri, a casa su Ubuntu 64 bit funziionava tutto alla perfezione.
Oggi lo sto provando qui al lavoro su Windows XP e mi da un errore windows, perché non riesce a trovare la libreria "libeay32.dll".


Sai dove la posso trovare?

P.S. Se mi posso permettere, ho visto che nel tuo codice usi "#13#10" per mandare a capo gli errori. Questo però potrebbe creare problemi di visualizzazione in Linux. Secondo me ti conviene usare "LineEnding", in questo modo verrà usato il terminatore di riga corretto in base al sistema operativo.

Grazie in anticipo, Mario

[xinyiman]

Onestamente no, dovrai googlare un po per capirlo. Ma penso che magari la trovi nel pacchetto synapse.

Permettiti pure, ho sempre da migliorare. Grazie mille

[bonmario]

Ok, alla fine ho trovato la DLL. Adesso ho un altro problema da risolvere .... la situazione è questa:
- Ubuntu 64 bit funziona
- PC di casa con Win7 pro 64 bit funziona
- PC del lavoro con Win XP, non funziona

Credo che il problema sia dovuto al fatto che al lavoro siamo sotto proxy.
Ho provato nel tuo codice, subito sotto a

Codice: [Seleziona]

      if (MySicurezza = 2) then begin
        //SSL/TLS
        smtp.FullSSL := True;
      end;

ad aggiungere questo:

Codice: [Seleziona]

        smtp.Sock.HTTPTunnelIP:='NomeDelProxyAziendale';
        smtp.Sock.HTTPTunnelPort:='8080';

Ma non funziona ugualmente, mi esce il messaggio che utente e password sono errati.
Non so se è uno standard, ma il mio proxy aziendale funziona così:
- l'accesso avviene in automatico all'avvio del PC
- nei posti in cui serve, basta indicare il nome del proxy e la porta, non vanno indicati utente e password

Con la stessa tecnica, cioè indicando nome del proxy e porta, sempre da Lazarus e sempre con Synapse, riesco a fare il download di files dal web.


Qualche idea?

Grazie in anticipo, Mario

[bonmario]

Alla fine, dopo aver contattato direttamente il team di Synapse, sono arrivato alla conclusione che mi devo far dare dai sistemisti della mia azienda i dati del server smtp aziendale ed usare quello.

Per xinyiman: stavo riguardando il tuo codice e vorrei permettermi di darti qualche consiglio:
- nella procedura MySendMail, all'inizio, dovresti impostare Result a False, altrimenti un eventuale test sull'esito della funzione, in caso di errori, potrebbe non essere veritiero
- nella stessa procedura, usi una variabile di nome "k". Per esperienza personale, è meglio dare alle variabili un nome di almeno 3 lettere, così se devi cercare quella variabile nel sorgente non impazzisci, cosa che rischieresti col nome di una sola lettera !!!
- La variabile Errore, secondo me potrebbe essere "trasformata" in una proprietà della tua classe, così sarebbe sempre a disposizione e non obbligherebbe a creare una variabile di tipo stringa in tutti i programmi in cui si usa la tua unit.

Ciao, Mario

[xinyiman]

grazie bonmario. i consigli sono sempre ben accetti

[bonmario]

Ciao,
ho un problemino ....
Allora, in un programma, sto usando la tua unit per inviare un'email, prendendo il testo da quello che l'utente digita in un TMemo.

Questo è quello che c'è nel TMemo:

Codice: [Seleziona]

per cui non è stata fatta

Questo invece è quello che c'è scritto nella mail:

Codice: [Seleziona]

per cui non Ã̈ stata fatta

Credo che il problema derivi dal fatto che i testi del programma sono UTF8 e l'email no.

Qualche consiglio?

Grazie in anticipo, Mario

[Stilgar]

Come copi il testo?
Se usi un buffer come ansistring possibile si rovini il testo quando lo copi nel corpo della mail.
Oppure non hai impostato che la mail sia in UTF8.
Controlla che ci sia la possibilità di inviare le mail in UTF8.

Stilgar

[bonmario]

Il testo lo copio con "WrkMyMailObject.AddRowCorpoMail" per ogni riga della memo.
Ho provato a guardare i sorgenti e, da quel che ho capito, UTF8 è gestito solo per le email in formato HTML. Ho aggirato il problema convertendo le singole righe della TMemo con "UTF8ToSys" prima di passarle alla "AddRowCorpoMail".

Ciao, Mario

[xinyiman]

Letto ora, ti avrei suggerito proprio UTF8ToSys oppure UTF8ToAnsi. Ma hai già risolto e va bene così