Newsgroup: it.comp.lang.delphi
Titolo: Inviare e-mail con delphi 3

Salve, ho bisogno di scrivere un programmino in delphi 3 che
si connetta con un server SMTP per l'invio di messaggi e-mail.
Ho provato con il progetto dimostrativo fornito con delphi
"Delphi 3\Demos\INTERNET\SIMPMAIL\SIMPMAIL.DPR"
ma purtroppo, per quanto riguarda l'invio delle email, funziona
soltanto con il mio server SMTP locale.
Quando provo con un server Internet (ad esempio "
mail.inwind.it
")
riesco a connettermi senza problemi, ma ottengo un messaggio di
errore dal server nel momento in cui cerco di inviare email.
L'errore sembra legato al modo con cui il componente Delphi "SMTP"
comunichi con il server Internet.... sembrerebbe che il componente utilizzi
una sintassi diversa da quella che il server si attende.
Avete un'idea di come risolvere il problema ?
Grazie mille in anticipo.
Riccardo Fiorenza
---
* Dott. Riccardo Fiorenza
* Dr.Soft - Soluzioni Internet
* web: 
http://www.drsoft.it
* email: 
fior...@drsoft.it

 Grazie mille in anticipo.
Il componente funziona benissimo. Ti ricordo che per spedire la posta con
qualche server di posta (tipo Libero o Tin) devi essere collegato a internet
in quel momento tramite loro (cioè usando il loro provider).

 in quel momento tramite loro (cioč usando il loro provider).
Grazie per il suggerimento... ma ovviamente ho provato il server
"
mail.inwind.it
" solo dopo essermi collegato attraverso InWind.
Tu con quale server SMTP hai provato il componente in questione ?
Grazie,
Riccardo


Ho provato con libero ed ha SEMPRE funzionato.

 ha scritto nel messaggio
news:PaWp7.4485$bf.1...@news.infostrada.it...

Hai provato proprio il file originale
"Delphi 3\Demos\INTERNET\SIMPMAIL\SIMPMAIL.DPR"
della distribuzione Delphi3, oppure hai apportato qualche modifica ?
Ciao,
Riccardo

 della distribuzione Delphi3, oppure hai apportato qualche modifica ?
Non ho nemmeno guardato il file originale. Ho scritto tutto da solo.

 ha scritto nel messaggio
news:Ua6q7.1678$Lp6....@news.infostrada.it...

Allego sotto un pezzo del codice SIMPMAIL.DPR che serve a creare gli
Headers...
Comincio a pensare che il mio problema possa dipendere proprio dagli
headers.
Potresti dirmi se ci sono differenze sostanziali ripetto al codice da te
utilizzato ?
Grazie.
Riccardo
-------------
{Clear and repopulate MIME headers, using the component's DocInput property.
A
separate DocInput OLE object could also be used. See RFC1521/1522 for
complete
information on MIME types.}
procedure TMainForm.CreateHeaders;
begin
  with SMTP1 do
  begin
    DocInput.Headers.Clear;
    DocInput.Headers.Add('To', eTo.Text);
    DocInput.Headers.Add('From', eHomeAddr.Text);
    DocInput.Headers.Add('CC', eCC.Text);
    DocInput.Headers.Add('Subject', eSubject.Text);
    DocInput.Headers.Add('Message-Id', Format('%s_%s_%s',
[Application.Title,
      DateTimeToStr(Now), eHomeAddr.Text]));
    DocInput.Headers.Add('Content-Type', 'TEXT/PLAIN charset=US-ASCII');
  end;
end;
-------------

Prova ad andare in questo sito, e cerca SakMail, e' una serie di
componenti per fare l'invio e la ricezione della posta. Funziona bene,
lo sto utilizzando anche io.
http://www.vclcomponents.com/

 ha scritto nel messaggio
news:3BAF9C82...@libero.it...

Grazie per il suggerimento. Ho appena scaricato SakeMail.
Adesso però ho un problema. Non riesco ad installarlo.
Appena apro con delphi il file "SakEmail.dpk" mi appare una finestra di
errore con il seguente messaggio:
"Error in module SakEmail: CONTAINS clause is incorrect."
Non ho idea di cosa si tratti... puoi aiutarmi ?
Grazie,
Riccardo