| IkaMazini |
10-10-2004 18:40 203687 |
Ребята, IdSMTP1 может посылать письмо с файлом? Если “да”, как это делать?
и когда я посылаю письмо с файлом, хочу чтоб этот процесс в StatusBar1-е или
в ProgressBar1-е било видно. Пожалуйста помогите! *WinXP. Delphi 7. *
* * * * * * * * * * * С уважением, Ika Mazini. *
|
| IkaMazini |
11-10-2004 01:46 203688 |
Цитата:
procedure TForm1.Button1Click(Sender: TObject);
var
*Mes : TIdMessage;
begin
*IdSMTP1.Connect;
*Mes := TIdMessage.Create(self);
*Mes.Recipients.EMailAddresses := Edit1.Text;
*Mes.ReplyTo.EMailAddresses := Edit2.Text;
*Mes.From.Address := Edit3.Text;
*Mes.Name := Edit4.Text;
*Mes.Subject := Edit5.Text;
*Mes.Body.Text := Memo1.Text;
* *// Attachment не могу сделать!
*IdSMTP1.Send(Mes);
begin
*IdSMTP1.Disconnect;
end;
end;
|
|
Время: 19:38.
© OSzone.net 2001-
