|
#1
|
|||
|
|||
отправка e-mail
Пытался написать программу, которая отправит e-mail на определенный адрес:
Код:
IDMessage1.Body.Text:='что-нибудь'; IdMessage1.From.Address:=LabeledEdit1.Text; //адрес отправителя IdMessage1.Recipients.EMailAddresses:='...@mail.ru'; IDMessage1.Subject:=;тема'; idSMTP1.AuthenticationType:=atLogin; idSMTP1.Ustrname:='username'; idSMTP1.password:='password'; idSMTP.host:='smtp.mail.ru'; idSMTP.port:=25; idSMTP1.Connect; idSMTP1.Send(IDMessage1); idSMTP1.Disconnect; однако после нажатия на кнопку, ничего не происходит, программа висит какое-то время и потом выводит сообщение "Connection closed gracefully" письмо естественно не доходит... Подскажите пожалуйста, что я не так сделал? |