|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
attach нужна помощь
есть код, должен отправлять несколько файлов
но если хоть 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; |
#2
|
||||
|
||||
Так проверять надо на наличие файла в папке, прежде чем его прилеплять:
Код:
if FileExists('C:\papka\file1.zip') then attach:=TIdAttachment.Create(msg.MessageParts,'C:\papka\file1.zip'); Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#3
|
|||
|
|||
Страдалецъ
вот так правильно? Код:
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; |
#4
|
||||
|
||||
правильно)
|