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

← →
sdaf © (2008-01-10 21:59) [0]

Здравствуйте.
Нашел несколько способов отправки: с использованием MAPI, использование COM объекта Outlook и TNMSMTP и для последнего ненашел нужную библиотеку нде ее можно скачать? В общем у меня ничего не отправляеться, Как можно послать письмо, не указывая в программе smtp сервер и желательно без outlook?

← →
Сергей М. © (2008-01-12 18:40) [1]

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

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

← →
DVM © (2008-01-12 21:15) [2]

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

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

← →
Anatoly Podgoretsky © (2008-01-12 22:11) [3]

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

← →
DVM © (2008-01-13 14:40) [4]

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

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

← →
Anatoly Podgoretsky © (2008-01-13 15:29) [5]

> DVM (13.01.2008 14:40:04) [4]

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

← →
sdaf © (2008-01-14 18:58) [6]

Я в этом плохо разбераюсь. С использованием Mapi, каждый раз приходиться,включать outlook, и нажимать в нем кнопку отправить. а если мне надо отправить 20,30 писем. Мне просто надо, автоматически отправлять письма, что бы без лишних окошек и вопросов. Весь инет перерыл немогу найти Fastnet и использовать TNMSMTP если знаете где достать скажите пожалуйста.

← →
sdaf © (2008-01-14 19:28) [7]

Еще, скажите пожалуйста, я думаю многие видели этот код. Он работает?, если нет то дальше искать 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 вкладок. Даже не знаю в какую податься по этому поводу)

← →
Anatoly Podgoretsky © (2008-01-14 20:33) [8]

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

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

нашел отправка письма с использованием 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;

Все работает как мне хотелось!
спасибо за ваши комменты

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

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

← →
grisme (2008-01-16 09:42) [12]

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

не им же %-)

отправка писем на емаил Найти похожие ветки