•  

ГлавнаяIndyIdSMTP → Создание и отправка письма с вложением

Создано: 26.09.2009 1:34:51 · Исправлено: 13.03.2011 1:36:27 · Прочтений: 6730

При помощи Indy создать и отправить письмо с вложенным файлом (аттачментом) очень просто.
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;