Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.08.15;
Скачать: CL | DM;

Вниз

Отправить Письмо (Имея только E-mail)   Найти похожие ветки 

 
Dennisius   (2004-06-16 14:53) [0]

Здрасти мастера нужн отправлять письма не зная заранее куда
имея один только E-mail который вводиться в Edit,
раньше я отправлял изпользую NMSMTP, но в данном случае он не подходит. Подскажите как это можно реализовать.


 
Anatoly Podgoretsky ©   (2004-06-16 15:01) [1]

Используй TNMSMTP и Edit,


 
Dennisius   (2004-06-16 15:04) [2]


> Anatoly Podgoretsky ©   (16.06.04 15:01) [1]
> Используй TNMSMTP и Edit,


А как же устанавка предворительного подключения к серверу ???


 
Anatoly Podgoretsky ©   (2004-06-16 15:16) [3]

А зачем?


 
Dennisius   (2004-06-16 15:56) [4]


> А зачем?


with NMSMTP1 do
begin
 Host:="smtp.yandex.ru";
 Port:=25;
 UserID:="test";
 Connect;
 if not connected then StatusCaption.Caption:="Операция неудачна, попробуйте еще раз"
                  else
  begin
   ClearParams:=true;
   PostMessage.FromAddress:="dennisius@yandex.ru";
   PostMessage.FromName:=diller;
   PostMessage.ToAddress.Text:="test@yandex.ru";
   PostMessage.Body.AddStrings(Memo1.lines);
   PostMessage.Date:=DateToStr(Date);
   PostMessage.Subject:="test";
   PostMessage.ReplyTo:="dennisius@yandex.ru";
   NMSMTP1.SendMail;
   NMSMTP1.Disconnect;
  end;
end;


Без этого кода :
 
 Host:="smtp.yandex.ru";
 Port:=25;
 UserID:="test";
 Connect;


используя SendMail; Ошибка : Not Connected


 
Dennisius   (2004-06-16 17:02) [5]

Все РАЗОБРАЛСЯ такую чушь нес :((( самому стыдно


 
Dennisius   (2004-06-17 17:02) [6]


> PostMessage.FromAddress:="dennisius@yandex.ru";


Но все-таки странно если в этой строке E-mail адрес не принадлежит серверу с которым соеденяюсь

>  Host:="smtp.yandex.ru";


то ошибка 503 5.5.2 , кто нибудь обяснит в чем дело ?????????


 
Dennisius   (2004-06-17 17:08) [7]

Кстати еще один казус пробую отправить несколько копий :

PostMessage.ToAddress.Text:=Email2Edit.Text;
PostMessage.ToCarbonCopy.Text:=EmailEdit.Text;


Ошибки не дает но вторая копия не приходит (проверял)

мастера уважительно-убедительная просьба ПОМОГИТЕ !!!!!!!!!!!



Страницы: 1 вся ветка

Текущий архив: 2004.08.15;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.039 c
14-1091092961
Layner
2004-07-29 13:22
2004.08.15
Вирусы на Delphi есть?


1-1091439784
Вопрос
2004-08-02 13:43
2004.08.15
Цвет серий в TChartLegend


3-1089954838
Hereticsoul
2004-07-16 09:13
2004.08.15
список таблиц в mysql


4-1088700317
Green Zmiy
2004-07-01 20:45
2004.08.15
Мастера помогите, нужен жук на COM - порт


8-1085666507
Виталий
2004-05-27 18:01
2004.08.15
А мне надо из MPEG в JPG