Smtp

لقد استخدمت كومبوننت smtp لارسال رسائل بريد الكتروني ..

الكود هو

procedure TForm1.Button1Click(Sender: TObject);

begin

NMSMTP1.Host := 'mail.yahoo.com';

NMSMTP1.UserID := 'ulrichdeutsch';

NMSMTP1.Connect;

NMSMTP1.PostMessage.FromAddress := 'ulrichdeutsch@yahoo.com';

NMSMTP1.PostMessage.ToAddress.Text := 'ulrichdeutsch@masrawy.com';

NMSMTP1.PostMessage.Body.Text := 'This is the message';

NMSMTP1.PostMessage.Subject := 'Mail subject';

NMSMTP1.SendMail;

ShowMessage('Mail sent !');

NMSMTP1.Disconnect;

end;

لكن يعطيني خطأ

اعتقد ان الخطا في الhost الخاص ب yahoo

ارجو من قام بعمل برنامج مماثل ان يرسلة

او اذا كنتم تعرفون الhost الصحيح الخاص ب yahoo ارجو ان ترسلوة

شكرا