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

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

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

отправка писем на емаил

sdaf © (2008-01-10 21:59:00)
Здравствуйте.
Нашел несколько способов отправки: с использованием MAPI, использование COM объекта Outlook и TNMSMTP и для последнего ненашел нужную библиотеку нде ее можно скачать? В общем у меня ничего не отправляеться, Как можно послать письмо, не указывая в программе smtp сервер и желательно без outlook?

grisme (2008-01-16 09:42:00) [1]

> DVM © (14.01.08 23:04) [11]
> > sdaf © (14.01.08 20:38) [10] > Все работает как мне
> хотелось!Тебе ж хотелось без указания почтового сервера.
> А в [9] сервер указывается. :)

не им же %-)

DVM (2008-01-14 23:04:00) [2]

> sdaf © (14.01.08 20:38) [10]
> Все работает как мне хотелось!

Тебе ж хотелось без указания почтового сервера. А в [9] сервер указывается. :)

sdaf (2008-01-14 20:38:00) [3]
Все работает как мне хотелось!
спасибо за ваши комменты

sdaf (2008-01-14 20:36:00) [4]
нашел отправка письма с использованием indy!
procedure TForm1.Button1Click(Sender: TObject);
var {
attach:TidAttachment; }
msg:tidmessage;
begin
button1.Enabled:=false;
idSMTP1.AuthenticationType:=atLogin;
idSMTP1.Username:='primer@mail.ru';
idSMTP1.Password:='password';
idSMTP1.Host:= 'smtp.mail.ru';
idSMTP1.Port:= 25;
msg:=TIdMessage.Create(nil);
msg.Body.Add('пример!');
msg.Subject:='Indy';
msg.From.Address:='отправитель';
msg.From.Name:='Имя отправителя';
msg.Recipients.EMailAddresses:='получатель';
msg.IsEncoded:=true;
try
idSMTP1.Connect();
if idSMTP1.Connected then
begin
idSMTP1.Send(msg);
showmessage('Отправлено');
end
else showmessage('Ошибка!');
finally
IdSMTP1.Disconnect;
end;
button1.Enabled:=true;

Anatoly Podgoretsky (2008-01-14 20:33:00) [5]

> Весь инет перерыл немогу найти Fastnet и использовать TNMSMTP

Зачем где то искать, он входит в состав Дельфи.

sdaf (2008-01-14 19:28:00) [6]
Еще, скажите пожалуйста, я думаю многие видели этот код. Он работает?, если нет то дальше искать TNMSMTP не буду.
procedure TForm1.Button1Click(Sender: TObject);
begin
NMSMTP1.Host := 'smtp.mail.ru';
NMSMTP1.UserID := 'sdaf;
NMSMTP1.Connect;
NMSMTP1.PostMessage.FromAddress := 'sdaf@hotmail.ru';
NMSMTP1.PostMessage.ToAddress.Text := 'sdaf@mail.ru';
NMSMTP1.PostMessage.Body.Text := 'Текст письма';
NMSMTP1.PostMessage.Subject := 'Тема письма';
NMSMTP1.SendMail;
end;
Да, еще на многих форумах пишут - используй Indy, можно ли отправлять письма автоматически с помощью него?, в 7 дельфи у меня 5 вкладок. Даже не знаю в какую податься по этому поводу)

sdaf (2008-01-14 18:58:00) [7]
Я в этом плохо разбераюсь. С использованием Mapi, каждый раз приходиться,включать outlook, и нажимать в нем кнопку отправить. а если мне надо отправить 20,30 писем. Мне просто надо, автоматически отправлять письма, что бы без лишних окошек и вопросов. Весь инет перерыл немогу найти Fastnet и использовать TNMSMTP если знаете где достать скажите пожалуйста.

Anatoly Podgoretsky (2008-01-13 15:29:00) [8]
> DVM (13.01.2008 14:40:04) [4]

И это хорошо.
Но ты видимо все таки не просто домен имеешь в виду, а почтовый домен.

DVM (2008-01-13 14:40:00) [9]

> но придется написать свой SMTP сервер, как делают это вирусы.

Только вот большинство SMTP серверов в Internet давно уже не принимает письма не то что с адресов без доменов, но и с доменами без обратной записи, поэтому толку не будет.

Anatoly Podgoretsky (2008-01-12 22:11:00) [10]
Можно, но придется написать свой SMTP сервер, как делают это вирусы.

DVM (2008-01-12 21:15:00) [11]

> не указывая в программе smtp сервер

Никак. Сам подумай куда слать то будешь?

Сергей М. (2008-01-12 18:40:00) [12]

> Как можно послать письмо, не указывая в программе smtp сервер
> и желательно без outlook?

Использовать любой иной (отличный от Outlook, коль уж он не угодил) внешний почтовый клиент - MSOE, Thunderbird, TheBat e.t.c.

Наверх

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