Italian community of Lazarus and Free Pascal

Programmazione => Generale => Topic aperto da: Diego1981 - Novembre 11, 2015, 08:39:18 am

Titolo: MAIL
Inserito da: Diego1981 - Novembre 11, 2015, 08:39:18 am
Buongiorno a tutti
sto usando le librerie synapse per inviare delle semplici mail(semplici testi)
ho creato un'applicazione con un semplice pulsante, 3 edit,un memo e una label
ho copiato tutte le unit synapse che servono nella cartella principale dell'applicazione

il pulsante esgue (brutalmente e senza controlli) l'invio della mail
procedure TForm1.Button4Click(Sender: TObject);
begin
  if SendTo(Mittente.Text,Destinatario.Text,'OGGETTO',SMTP.Text,Memo1.Lines) then
    Label6.Caption:='Inviata'
  else
    Label6.Caption:='Errore in invio';
end;

fin qui tutto bene, le mail vengono inviate.

Se porto la stessa procedura in un'altro programma (copiando sempre le unit nella cartella corretta) non c'è verso di inviare mail, la procedura mi torna falso.
L'altro programma è in multhitread, potrebbe influire?
grazie in anticipo
Titolo: Re:MAIL
Inserito da: nomorelogic - Novembre 11, 2015, 08:54:27 am
...
L'altro programma è in multhitread, potrebbe influire?
...

in teoria no, non ci sono controindicazioni nell'uso dei thread

dire che ritorna falso ci aiuta poco per capire: potrebbero fallire molte cose, partire dal raggiungimento del server smtp ;)
Titolo: Re:MAIL
Inserito da: Diego1981 - Novembre 11, 2015, 01:13:11 pm
ora provo a vedere se riesco a trovare qualche funzione o procedura che mi sollevi qualche eccezione
grazie
Titolo: Re:MAIL
Inserito da: Diego1981 - Novembre 12, 2015, 08:43:59 am
risolto, se può essere di aiuto,
la questione era semplicemente legata all'indirizzo del mittente, in poche parole deve essere un indirizzo "credibile"  ::) :D
grazie