Как создать письмо с вложением?

← →
deras (2009-05-26 09:45) [0]

Уважаемые мастера, подскажите, как создать письмо с вложением. Причем вложение - файлик, в имени которого есть русские буквы.

Заранее благодарен.

← →
KilkennyCat © (2009-05-26 11:24) [1]

Что имеется ввиду?
Создание своего почтового клиента, или открыть сторонний клиент?

← →
deras (2009-05-26 12:07) [2]

уже нашел ответ. Кому интересно:

procedure TForm1.Button1Click(Sender: TObject);
var Msg: TIdMessage;
begin
Msg:=TIdMessage.Create(nil);
Msg := TIdMessage.Create(Form1);
Msg.From.Text := "from_me@email.ru";
Msg.Recipients.Add;
Msg.Recipients.Items[0].Text := "client@email.ru";
Msg.ContentType := "text/plain; charset=Windows-1251";
Msg.Subject := "";
Msg.ExtraHeaders.Add("Subject: "+"тема письма");
Msg.Body.Text :="текст письма";
TIdAttachment.Create(Msg.MessageParts,"c:\Предложение к сотрудничеству.xls");

IdSMTP1.Port := 25;
IdSMTP1.Host := "mail.yourmailserver.com";
IdSMTP1.AuthenticationType:=atLogin;
IdSMTP1.Username:="mylogin";
IdSMTP1.Password:="mypassword";

try
IdSMTP1.Connect(5000);
except end;

if IdSMTP1.Connected then
begin
IdSMTP1.Send(Msg);
end else ShowMessage("Письмо не отправлено...");
IdSMTP1.Disconnect;
end;

← →
KilkennyCat © (2009-05-26 13:37) [3]

Ну-ну. Ставндартный пример работы c Indy. Ему сто лет в обед будет.
Ждем вопроса "пачиму не работает через прокси, откуда вопросики, шифрация и проч."

← →
{RASkov} © (2009-05-26 13:38) [4]

> [2] deras (26.05.09 12:07)
> var Msg: TIdMessage;
> begin
> Msg:=TIdMessage.Create(nil);
> Msg := TIdMessage.Create(Form1);

Это специальная утечка памяти?)

> try
> IdSMTP1.Connect(5000);
> except end;

...диверсантский код)

> Кому интересно:

Нет уж, спасибо)

← →
deras (2009-05-26 14:24) [5]

> "пачиму не работает через прокси, откуда вопросики, шифрация
> и проч."

Пазве я с ошибками что-то написал? Зачем стёб?

> Это специальная утечка памяти?)

можете рассказать, в чем утечка... я не сомневаюсь, я не знаю...

> ...диверсантский код)

почему диверсантский? что и тут не так?

← →
KilkennyCat © (2009-05-26 14:28) [6]

> Пазве я с ошибками что-то написал? Зачем стёб?

Просто это не решает многих проблем. А сказано, что уже "нашел ответ". Потому и стеб, что это не ответ, а лишь намек на него.

← →
deras (2009-05-26 14:45) [7]

> а лишь намек на него.

Вы имеете ввиду, что в своем ответе, я должен был описать пример отправки письма на все случаи жизни? Но ведь такого не бывает... Всегда найдется тот, кто скажет - "а я еще б и это вот добавил, а тут нету еще этого..."
Разве не так?

← →
KilkennyCat © (2009-05-26 14:57) [8]

> Разве не так?

Так. {RASkov} тебе уже так и ответил.

← →
deras (2009-05-26 15:16) [9]

> KilkennyCat © (26.05.09 14:57) [8]

ну вот и я об этом же...
Если есть охота раскритиковать код, то лучше конструктивная критика - это будет полезно и мне и другим начинающим...

← →
Dennis I. Komarov © (2009-05-26 15:21) [10]

ИМХО [4] вполне конструктивная критика...

← →
deras (2009-05-26 15:32) [11]

> ИМХО [4] вполне конструктивная критика...

я б сказал - указано, на части кода, где что-то не так... ну, возможно Вы и правы... дальше стоит самому разобраться, что не так... но было б интересно узнать мнение профи....

> я б сказал - указано, на части кода, где что-то не так..

Там даже указано что не так...

← →
Фима (2009-05-29 19:02) [13]

Есть встречный вопрос, как открыть сторонний клиент и послать письмо с вложением

"Открыть" сторонний клиент, предпочтительными и позволяющими это сделать, методами/технолониями и послать письмо с вложениями с использованием инструментов, предоставляемых этим сторонним клиентом.

> как открыть сторонний клиент

один из вариантов - MAPI

Как создать письмо с вложением? Найти похожие ветки