| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Отправка письма с аттачем [D7, WinXP]

Darth Avenger ©   (2007-07-30 09:41:00) 

Приветствую мастеров!

Такой вопрос - как можно отправить письмо из delphi с аттачем? И вообще, возможно ли такое? Заранее благодарен за ответы!

PS. Особенно интересует отправка письма с аттачем в контексте Indy.

---

Darth Avenger   (2007-07-30 17:06:00) [1]

2umbra: Да, разобрался, спасибо! Вобщем, в окончательном варианте выглядит это так:


procedure TForm1.Button1Click(Sender: TObject);
var attach:TidAttachment;
   msg:tidmessage;
   i:integer;
begin
button1.Enabled:=false;
idSMTP1.AuthenticationType:=atLogin;
idSMTP1.Username:='darth_avenger@mail.ru';
idSMTP1.Password:='********';
idSMTP1.Host:='smtp.mail.ru';
idSMTP1.Port:=25;
msg:=TIdMessage.Create(nil);
msg.Body.Add('test :)');
msg.Subject:='test mail';
msg.From.Address:='darth_avenger@mail.ru';
msg.From.Name:='Аццкая сотона';
msg.Recipients.EMailAddresses:='darth_avenger@mail.ru';
msg.IsEncoded:=true;
attach:=TIdAttachment.Create(msg.MessageParts,'C:\attach.rar');
try
idSMTP1.Connect();
if idSMTP1.Connected then
 begin
 idSMTP1.Send(msg);
 showmessage('Sending complete...');
 end
else showmessage('No connect :(');
 finally
 IdSMTP1.Disconnect;
end;
attach.Free;
button1.Enabled:=true;
end;


---

umbra   (2007-07-30 17:01:00) [2]

добавляем файл, выбранный в OpenDialog1в почтовое сообщение IdMsgSend

  if OpenDialog1.Execute then
        TIdAttachment.Create(IdMsgSend.MessageParts, OpenDialog1.FileName);


---

Darth Avenger   (2007-07-30 11:27:00) [3]

хм... Затрудняюсь точно сказать, но версия та, которая стандартно имеется в delphi7.

---

umbra   (2007-07-30 10:45:00) [4]

какая версия инди?

---

Наверх