[foxer]

есть код, должен отправлять несколько файлов
но если хоть 1 файла нет, то программа виснет с ошибками.
подскажите как исправить чтобы программа отправляла даже если отсутствует 1 или 2 файла

Код:

procedure send;
var
attach:TidAttachment;
msg:tidmessage;
i:integer;
begin
Form1.idSMTP1.AuthenticationType:= atLogin;
Form1.idSMTP1.Username:='login';
Form1.idSMTP1.Password:='*****';
Form1.idSMTP1.Host:='smtp.yandex.ru';
Form1.IdSMTP1.Port:=25;
msg:=TIdMessage.Create(nil);
msg.Body.Add('files');
msg.Subject:='file test';
msg.From.Address:='login@yandex.ru';
msg.From.Name:='attach';
msg.Recipients.EMailAddresses:='to@Yandex.ru';
msg.IsEncoded:=true;
attach:=TIdAttachment.Create(msg.MessageParts,'C:\papka\file1.zip');
attach:=TIdAttachment.Create(msg.MessageParts,'C:\papka\file2.zip');
attach:=TIdAttachment.Create(msg.MessageParts,'C:\papka\file3.zip');
attach:=TIdAttachment.Create(msg.MessageParts,'C:\papka\file4.zip');
attach:=TIdAttachment.Create(msg.MessageParts,'C:\papka\file5.zip');
Form1.idSMTP1.Connect();
Form1.idSMTP1.Send(msg);
Form1.IdSMTP1.Disconnect;
end;

несколько файлов могут отсутствовать

[Страдалецъ]

Так проверять надо на наличие файла в папке, прежде чем его прилеплять:

Код:

if FileExists('C:\papka\file1.zip')
then attach:=TIdAttachment.Create(msg.MessageParts,'C:\papka\file1.zip');

[foxer]

Страдалецъ
вот так правильно?

Код:

procedure send;
var
attach:TidAttachment;
msg:tidmessage;
i:integer;
begin
Form1.idSMTP1.AuthenticationType:= atLogin;
Form1.idSMTP1.Username:='login';
Form1.idSMTP1.Password:='*****';
Form1.idSMTP1.Host:='smtp.yandex.ru';
Form1.IdSMTP1.Port:=25;
msg:=TIdMessage.Create(nil);
msg.Body.Add('files');
msg.Subject:='file test';
msg.From.Address:='login@yandex.ru';
msg.From.Name:='attach';
msg.Recipients.EMailAddresses:='to@Yandex.ru';
msg.IsEncoded:=true;
if FileExists('C:\papka\file1.zip')
then attach:=TIdAttachment.Create(msg.MessageParts,'C:\papka\file1.zip');
if FileExists('C:\papka\file2.zip')
then attach:=TIdAttachment.Create(msg.MessageParts,'C:\papka\file2.zip');
if FileExists('C:\papka\file3.zip')
then attach:=TIdAttachment.Create(msg.MessageParts,'C:\papka\file3.zip');
if FileExists('C:\papka\file4.zip')
then attach:=TIdAttachment.Create(msg.MessageParts,'C:\papka\file4.zip');
if FileExists('C:\papka\file5.zip')
then attach:=TIdAttachment.Create(msg.MessageParts,'C:\papka\file5.zip');
Form1.idSMTP1.Connect();
Form1.idSMTP1.Send(msg);
Form1.IdSMTP1.Disconnect;
end;

[ALexandr555]

правильно)