Форум: "Начинающим";
Текущий архив: 2006.03.26;
Скачать: [xml.tar.bz2];
Вниз
e-mail Найти похожие ветки
← →
Mozart © (2006-03-09 04:54) [0]подскажите, как отправить mail из програмки? Какой компонент в Delphi это позволяет?
← →
antonn © (2006-03-09 05:10) [1]indy. вот и проета выдернул:
var M:TIdMessage; i:integer;
begin
M:=TIdMessage.Create(FormAllRecords);
try
M.Body.AddStrings(Memo.lines); //ну это текст письма закидывал
M.From.Text:="<"+Esour.Text+">"; //от кого
M.Recipients.Add;
M.Recipients.Items[0].Text:= "<"+Edest.Text+">"; //кому
M.Subject:="mail_send"; //тема
IdSMTP1.AuthenticationType:=atLogin;
IdSMTP1.Host:=Ehost.text; //хост
IdSMTP1.Username:=Euser.Text; //пользователь
IdSMTP1.Password:=Epass.Text; //его пароль
IdSMTP1.Connect();
if IdSMTP1.Connected then
begin
IdSMTP1.Send(M);
end;
IdSMTP1.Disconnect;
finally
m.Free;
end;
← →
antonn © (2006-03-09 05:10) [2]uses idMessage, IdEMailAddress; //это к TIdMessage
← →
Mozart © (2006-03-09 05:28) [3]M:=TIdMessage.Create(FormAllRecords);
//а что такое FormAllRecords ?
← →
antonn © (2006-03-09 06:14) [4]Mozart © (09.03.06 5:28) [3]
а это хендл окна 8)
ну подставь Form1
← →
Ega23 © (2006-03-09 09:20) [5]uses ShellAPI
ShellExecute(.... "mailto skdjfh@lknsdg.org", ...)
:о)
← →
VinRaider-Vlad (2006-03-13 14:17) [6]Добрый день.
Я тут прочитал у вас класную вещь, но у меня D5, можете мне выслать компоненту "IdSMTP", а?
Мое мыло: v-l-a-d-a-v-l-a-d@rambler.ru
Заранее спасибо.
← →
Ega23 © (2006-03-13 14:34) [7]
> IdSMTP
Они, вроде, только начиная с D6 появились.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.03.26;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.042 c
