Отправка письма с аттачем

← →
Darth Avenger (2007-07-30 09:41) [0]

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

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

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

← →
umbra © (2007-07-30 10:45) [1]

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

← →
Darth Avenger (2007-07-30 11:27) [2]

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

← →
umbra © (2007-07-30 17:01) [3]

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

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

← →
Darth Avenger (2007-07-30 17:06) [4]

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;

Отправка письма с аттачем Найти похожие ветки