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

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


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

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

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

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

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

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

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

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

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

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

> Весь инет перерыл немогу найти 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] сервер указывается. :)

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


не им же %-)