[delphi]Mandare e-mail con delphi 7

[Cobra99]

Salve a tt...sono nuovo del forum......vorrei sapere come far mandare delle email al programma ke ho fatto,email contenenti un allegato (es. KKK.txt )all'indirizzo di posta impostato del codice....senza utilizzare programmi esterni come OutLook...grazie 1000
PS è davvero utile qst forum,grazie per tutto quello che fate!!

[mondobimbi]

dovresti utilizzare i componenti indy, disponibili nella tua palette. Esiste un client di posta. Dal sito di indy ti puoi scaricare delle demo, tra cui una che spiega il funzionamento di questo componente.
ciao
sergio

[Cobra99]

cioè???no ke le librerie nn le ho mai usate......se mi puoi aiutare....e far capire te ne sarei grato....grazie

[mondobimbi]

purtroppo delphi 7 lo ho installato su un altro computer e ti posso dire solo a memoria.
Il progetto indy lo trovi
http://www.indyproject.org/index.en.aspx
da lì puoi scaricarti le librerie se non fossero già installate (lo sono sicuramente nella edizione delphi 7 professional).
Vedrai che ci sono molti componenti, tu devi cercare un client di posta pop3 ed inserilo nel tuo form.
Le demo se vuoi le scarichi da qui
http://www.indyproject.org/Sockets/D.../index.EN.aspx
ciao
sergio

[Cobra99]

non riesco a far partire l'esempio....tu non ricordi nulla di come posso fare? perchè la paletta POP3 indy l'ho trovata....ma nn so come fare.....grazie

[mondobimbi]

prova a dare una occhiata qui
http://delphi.about.com/od/interneti.../aa020304a.htm
ciao
sergio

[Cobra99]

Senti ma cosa andrebbe scritto in server SMPT? (nel programma che mi hai consigliato c'è scritto <<mail.htnet.hr>>?!?!?! scs ankora x l'ingoranza!!!

[mondobimbi]

il codice che devi usare è questo

procedure TMailerForm.btnSendMailClick(Sender: TObject);
begin
  StatusMemo.Clear;

  //setup SMTP
  SMTP.Host := ledHost.Text;
  SMTP.Port := 25;

  //setup mail message
  MailMessage.From.Address := ledFrom.Text;
  MailMessage.Recipients.EMailAddresses := 
      ledTo.Text + ',' + ledCC.Text;

  MailMessage.Subject := ledSubject.Text;
  MailMessage.Body.Text := Body.Text;

  if FileExists(ledAttachment.Text) then
    TIdAttachment.Create(MailMessage.MessageParts, 
                         ledAttachment.Text);

  //send mail
  try
    try
      SMTP.Connect(1000);
      SMTP.Send(MailMessage);
    except on E:Exception do
      StatusMemo.Lines.Insert(0, 'ERROR: ' + E.Message);
    end;
  finally
    if SMTP.Connected then 
      SMTP.Disconnect;
  end;

end; (* btnSendMail Click *)

Dopo aver inserito i due componenti

To send an email with attachment(s) from Delphi using Indy, we'll need two components. First, the TIdSMTOP is used to connect and communicate (send mail) with an SMTP server. Second, the TIdMessage handles storing and encoding of message(s).
When the message is constructed (TIdMessage "filled" with data), the email message is delivered to an SMTP server using the TIdSMTP.

l'host è il tuo server di posta.
Se vuoi ti crei una dialog box come in figura, altrimenti li compili da codice.
ciao
sergio

[Cobra99]

Per server di posta cosa intendi??

[mondobimbi]

il tuo server per l'uscita della posta, quello che imposti su outlook per esempio
ciao
sergio