TIdSMTP и TIdMessage...

← →
Levova (2003-04-02 15:00) [0]

Как при помощи этих компонентов отправить файл?

← →
stone © (2003-04-02 16:01) [1]

Пример не помню чей, но работает.

procedure TForm1.butnSendMailClick(Sender: TObject);
var
LMsg: TIdMessage;
begin
butnSendMail.Enabled := False; try
LMsg := TIdMessage.Create(nil); try
with LMsg do begin
TIdAttachment.Create(LMsg.MessageParts, "C:\Test.txt");
From.Address := Trim(editFrom.Text);
Recipients.Add.Address := Trim(editTo.Text);
Subject := Trim(editSubject.Text);
Body.Text := memoMsg.Lines.Text;
end;
with TIdSMTP.Create(nil) do try
Host := Trim(editSMTPServer.Text);
Connect; try
Send(LMsg);
finally Disconnect; end;
finally Free; end;
finally LMsg.Free; end;
ShowMessage("Message sent!");
finally butnSendMail.Enabled := True; end;
end;

Если нужно просто и быстро что-нибудь отослать, то можно использовать TidSMTP.QuickSend, тогда даже TIdMessage не нужен!

TIdSMTP и TIdMessage... Найти похожие ветки