Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как создать письмо с вложением? [D7, XP]

deras © (2009-05-26 09:45:00)
Уважаемые мастера, подскажите, как создать письмо с вложением. Причем вложение - файлик, в имени которого есть русские буквы.

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

clickmaker (2009-06-01 12:04:00) [1]
> как открыть сторонний клиент

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

Palladin (2009-05-30 08:05:00) [2]
"Открыть" сторонний клиент, предпочтительными и позволяющими это сделать, методами/технолониями и послать письмо с вложениями с использованием инструментов, предоставляемых этим сторонним клиентом.

Фима (2009-05-29 19:02:00) [3]
Есть встречный вопрос, как открыть сторонний клиент и послать письмо с вложением

Dennis I. Komarov (2009-05-26 15:34:00) [4]

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

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

deras (2009-05-26 15:32:00) [5]

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

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

Dennis I. Komarov (2009-05-26 15:21:00) [6]
ИМХО [4] вполне конструктивная критика...

deras (2009-05-26 15:16:00) [7]

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

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

KilkennyCat (2009-05-26 14:57:00) [8]

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

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

deras (2009-05-26 14:45:00) [9]

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

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

KilkennyCat (2009-05-26 14:28:00) [10]

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

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

deras (2009-05-26 14:24:00) [11]

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

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

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

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

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

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

{RASkov} (2009-05-26 13:38:00) [12]
> [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;

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

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

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

KilkennyCat (2009-05-26 13:37:00) [13]
Ну-ну. Ставндартный пример работы c Indy. Ему сто лет в обед будет.
Ждем вопроса "пачиму не работает через прокси, откуда вопросики, шифрация и проч."

deras (2009-05-26 12:07:00) [14]
уже нашел ответ. Кому интересно:

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 11:24:00) [15]
Что имеется ввиду?
Создание своего почтового клиента, или открыть сторонний клиент?

Наверх

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