| Автор
| Сообщение |
ORMADA
Постоянный участник
Возраст: 31
Знак зодиака: 
Зарегистрирован: 03.04.2003
Сообщения: 103
Откуда: ОРМАДИЯ
|
|
|
Цитата |
|
Можно ли как то средствами вынЪАПИ послать почту ?
Можно конечно заюзать MAPI но он гад отправляет через почтовик по умолчанию, а хотелось бы бы без него
Возможно ли это ?
Лучше бы даж без формы как в командной строке
_________________
ORMADA Forever! comp |
|
| В начало |
|
 |
|
|
 |
 Gelios
Oracle-вый маньяк, Админ
Возраст: 37
Знак зодиака:
Зарегистрирован: 10.03.2005
Сообщения: 6141
Откуда: Яблочный рай
|
|
|
Цитата |
|
ну так MAPI и есть Mail API (вроде бы)
и как бы ты отправил почту без установленного почтовика?
можно конечно через сокеты, если реализуешь протокол SMTP 
_________________
нельзя давать всем всего, ибо всех много, а всего мало |
|
| В начало |
|
|
ORMADA
Постоянный участник
Возраст: 31
Знак зодиака:
Зарегистрирован: 03.04.2003
Сообщения: 103
Откуда: ОРМАДИЯ
|
|
|
Цитата |
|
ПАНЯТНА! Кароче НИКАК!
Топик нада убить, в следтсвие его бесполезности.
_________________
ORMADA Forever! comp |
|
| В начало |
|
|
Gelios
Oracle-вый маньяк, Админ
Возраст: 37
Знак зодиака:
Зарегистрирован: 10.03.2005
Сообщения: 6141
Откуда: Яблочный рай
|
|
|
Цитата |
|
почему никак? я ведь говорю - через сокеты
_________________
нельзя давать всем всего, ибо всех много, а всего мало |
|
| В начало |
|
|
|
|
|
Цитата |
|
| а как это в коде плз, тоже интересно :) |
|
| В начало |
|
|
ORMADA
Постоянный участник
Возраст: 31
Знак зодиака:
Зарегистрирован: 03.04.2003
Сообщения: 103
Откуда: ОРМАДИЯ
|
|
|
Цитата |
|
с использование INDY мона сделать так
program SendMail;
{$APPTYPE CONSOLE}
uses
IdMessage, IdSMTP, SysUtils;
var
M: TIdMessage;
SMTP: TIdSMTP;
x: TIdAttachment;
begin
{
структура сообщения
1 От кого
2 Кому
3 Тема
4 Тело
5 Хост (mail.ru)
6 UserName
7 UserPass
}
if ParamCount < 7 then
begin
writeln('Message Structure');
writeln('1 From <x@mail.ru>');
writeln('2 To');
writeln('3 Subject');
writeln('4 Body');
writeln('5 Host (mail.ru-194.67.23.111)');
writeln('6 UserName');
writeln('7 UserPass');
Exit;
end;
try
///x.FileName := 'c:\autoexec.bat';
//m.MessageParts.Insert[1];
M := TIdMessage.Create(nil);
M.From.Text := Paramstr(1); //отправитель
M.Recipients.Add;
M.Recipients.Items[0].Text := Paramstr(2); //Получатель
M.Subject := Paramstr(3); //Тема письма
M.Body.Add(Paramstr(4));
SMTP := TIdSMTP.Create(nil);
SMTP.AuthenticationType := atLogin;
SMTP.Host := Paramstr(5); // mail.ru - 194.67.23.111
SMTP.Username := Paramstr(6); // в формате usermane@mail.ru
SMTP.Password := Paramstr(7);
try
SMTP.Connect;
if SMTP.Connected then
begin
SMTP.Send(M);
SMTP.Disconnect;
writeln('message send!');
end;
except
writeln('cant conneted to server-> ' + Exception(ExceptObject).Message);
end;
finally
FreeAndNil(M);
FreeAndNil(SMTP);
end;
end.
_________________
ORMADA Forever! comp |
|
| В начало |
|
|
Gelios
Oracle-вый маньяк, Админ
Возраст: 37
Знак зодиака:
Зарегистрирован: 10.03.2005
Сообщения: 6141
Откуда: Яблочный рай
|
|
|
Цитата |
|
а еще TIdSMTP поддерживает метод quickSend для отправки письма без вложений одной строчкой
_________________
нельзя давать всем всего, ибо всех много, а всего мало |
|
| В начало |
|
|
ORMADA
Постоянный участник
Возраст: 31
Знак зодиака:
Зарегистрирован: 03.04.2003
Сообщения: 103
Откуда: ОРМАДИЯ
|
|
|
Цитата |
|
прикольно! не знал
_________________
ORMADA Forever! comp |
|
| В начало |
|
|
Gelios
Oracle-вый маньяк, Админ
Возраст: 37
Знак зодиака:
Зарегистрирован: 10.03.2005
Сообщения: 6141
Откуда: Яблочный рай
|
|
|
Цитата |
|
ну так хелпы полезно иногда просматривать
_________________
нельзя давать всем всего, ибо всех много, а всего мало |
|
| В начало |
|
|
|
|
|
|
