[DELPHI] Inviare messaggi email con allegati usando i componenti Indy

[gygabyte017]

Ciao, come posso fare per inviare gli allegati per email con Delphi 2006??
Per il momento invio email usando TIdSMTP e TIdMessage e funziona benissimo, ma non riesco ad aggiungere allegati...

Come posso fare? Grazie!

[pallinopinco]

La Indy mette a tua disposizione la classe TIdAttachment.

Esempio trovato in rete:

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;