E-mail

← →
yura (2003-05-20 14:12) [0]

Подскажите какой еквивалент компонента NMSMTP (D5) в D7? Спасибо.

← →
gedd © (2003-05-20 14:48) [1]

Var
NewMessage:TIdMessage;
begin
NewMessage := TidMessage.Create(nil);
NewMessage.From.Text := "me@here.com"; //from user email
NewMessage.Recipients.Clear;
NewMessage.Recipients.EMailAddresses:="torg@kaus.ru"; //ваш email то есть куда слать
NewMessage.Recipients.Add.Text := "здеся впиши текст";
NewMessage.BccList.Clear;
NewMessage.Subject := "Test Email Message";
NewMessage.Body.Clear;
NewMessage.Body.Add("This is a test!!");
if not idSMTP1.Connected then begin
idSMTP1.Host := "smtp.mail.ru"; //здесь smtp server
idSMTP1.Username := "user"; //user on this smtp server
idSMTP1.Password := "password"; //password on this smtp server
idSMTP1.Connect;
end;
idSMTP1.Send(NewMessage);
idSMTP1.Disconnect;
end;

← →
gedd © (2003-05-20 14:49) [2]

Var
NewMessage:TIdMessage;
begin
NewMessage := TidMessage.Create(nil);
NewMessage.From.Text := "me@here.com"; //from user email
NewMessage.Recipients.Clear;
NewMessage.Recipients.EMailAddresses:="Я@ты.ru"; //ваш email то есть куда слать
NewMessage.Recipients.Add.Text := "здеся впиши текст";
NewMessage.BccList.Clear;
NewMessage.Subject := "Test Email Message";
NewMessage.Body.Clear;
NewMessage.Body.Add("This is a test!!");
if not idSMTP1.Connected then begin
idSMTP1.Host := "smtp.mail.ru"; //здесь smtp server
idSMTP1.Username := "user"; //user on this smtp server
idSMTP1.Password := "password"; //password on this smtp server
idSMTP1.Connect;
end;
idSMTP1.Send(NewMessage);
idSMTP1.Disconnect;
end;

← →
yura (2003-05-20 15:00) [3]

Большое спасибо.

← →
Дмитрий К.К. © (2003-05-20 15:12) [4]

Indy, ICS.

← →
Reindeer Moss Eater (2003-05-20 15:46) [5]

Эквивалентом компонента TNMSMTP в D7 является он сам (TNMSMTP).
При инсталяции D7 не надо отказываться от пакета NM, а после инсталяции зарегистрировать в палитре bpl, которая по умолчанию не регистрируется инсталятором.

← →
yura (2003-05-20 17:22) [6]

Понял, спасибо

E-mail Найти похожие ветки