Форум: "Сети";
Текущий архив: 2008.05.04;
Скачать: [xml.tar.bz2];
ВнизОтправка письма с аттачем Найти похожие ветки
← →
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;
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2008.05.04;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c