Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.11.2012, 20:23   #1
Rain_Walker
 
Регистрация: 17.10.2012
Сообщений: 8
Вопрос Авторизация через SMTP

Доброго времени суток! Вот программа которая должна отправлять email, но происходят проблемы с авторизацией, не могу понять почему.

Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdAntiFreezeBase, IdAntiFreeze, IdMessage,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdMessageClient, IdSMTP;

type
  TForm1 = class(TForm)
    Button1: TButton;
    IdSMTP1: TIdSMTP;
    IdMessage1: TIdMessage;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
idSMTP1.Host:='smtp.mail.ru';
idSMTP1.Port:=587;
idSMTP1.Username:='v.poison@mail.ru';
idSMTP1.Password:='password';
idmessage1.Body.Text:='message';
idmessage1.from.text:='v.poison@mail.ru';
idmessage1.recipients.EmailAddresses:='mvv.walker@mail.ru';
idmessage1.Subject:='hello';

idSMTP1.Connect ();
if idSMTP1.Connected = true then
idSMTP1.Send(idmessage1);
idSMTP1.Disconnect();
end;

end.
Помогите плиз.
Rain_Walker вне форума Ответить с цитированием
Старый 20.11.2012, 20:35   #2
grandmixer
Пользователь
 
Аватар для grandmixer
 
Регистрация: 30.10.2012
Сообщений: 31
По умолчанию

idsmtp1.AuthenticationType:=atLogin ;
grandmixer вне форума Ответить с цитированием
Старый 20.11.2012, 21:49   #3
Rain_Walker
 
Регистрация: 17.10.2012
Сообщений: 8
По умолчанию

Цитата:
Сообщение от grandmixer Посмотреть сообщение
idsmtp1.AuthenticationType:=atLogin ;
Спасибо огромное!

Тема закрыта.
Rain_Walker вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Отправка письма через SMTP GrabbeR Работа с сетью в Delphi 4 23.04.2012 02:49
Отправка через smtp.live.com iskurt Помощь студентам 0 07.11.2010 12:59
Отправка файлов через smtp BoT_T Работа с сетью в Delphi 0 24.09.2010 11:53
ID SMTP через сокс прокси Mike Free Работа с сетью в Delphi 5 19.06.2009 11:41
Отправка через SMTP Hottabych Работа с сетью в Delphi 3 09.02.2008 15:18