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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 03.07.2015, 00:01   #1
VitalikA
Пользователь
 
Регистрация: 06.04.2012
Сообщений: 23
По умолчанию Не работает отправка почты

Здраствуйте. Нужна простейшая программа для отправки почты.
Нашел простой код но он не работает.
Программа должна отправлять письмо с файлом.

Код:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    idsmtp2: TIdSMTP;
    idmsg1: TIdMessage;
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
idsmtp2.AuthenticationType:=atLogin;
idsmtp2.Host:='smtp.mail.ru';
idsmtp2.Port:=25;
idsmtp2.Username:='deniska_denisov_14';
idsmtp2.Password:='******';

idmsg1.Body.Text:='12345';
idmsg1.from.Text:='deniska_denisov_14@mail.ua';
idmsg1.Recipients.EMailAddresses:='deniska_denisov_14@mail.ua';
idmsg1.Subject:='12345';

idsmtp2.Connect();
idsmtp2.Send(idmsg1);
idsmtp2.Disconnect;
end;

end.
Изображения
Тип файла: jpg Безымянный.jpg (14.6 Кб, 121 просмотров)
VitalikA вне форума Ответить с цитированием
Старый 03.07.2015, 00:52   #2
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,629
По умолчанию

Цитата:
Нашел простой код но он не работает.
неудивительно.
дальше не читал.
http://www.indyproject.org/sockets/demos/index.en.aspx
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 03.07.2015, 01:51   #3
xxbesoxx
Участник клуба
 
Регистрация: 10.08.2010
Сообщений: 1,389
По умолчанию

Что там ? вы это имеете в виду ?
Цитата:
Список будет регулярно обновляться. Пожалуйста, будьте терпеливы, так как демо находятся в стадии разработки.
На mail.ru не отправляеть , на XE3 Indy10 стайть. на yandex.ru работаеть и Indy9 тоже
http://programmersforum.ru/showthread.php?t=251882

Последний раз редактировалось xxbesoxx; 03.07.2015 в 01:54.
xxbesoxx вне форума Ответить с цитированием
Старый 03.07.2015, 10:41   #4
VitalikA
Пользователь
 
Регистрация: 06.04.2012
Сообщений: 23
По умолчанию

на yandex тоже не работает
VitalikA вне форума Ответить с цитированием
Старый 03.07.2015, 11:04   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

потому что примерно с год назад все популярные почтовые сервисы перешли за отправку/приём почты по протоколу шифрования трафика SSL (подробности в гугле).
поэтому старые программы, которые работали по открытому протоколу POP / SMTP, сейчас не работают с такими почтовыми сервисами.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 03.07.2015, 12:08   #6
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,629
По умолчанию

Цитата:
потому что примерно с год назад все популярные почтовые сервисы перешли за отправку/приём почты по протоколу шифрования трафика SSL (подробности в гугле).
поэтому старые программы, которые работали по открытому протоколу POP / SMTP, сейчас не работают с такими почтовыми сервисами.
Как говорит один мой знакомый подполковник ВВС - "точно в дырочку!".
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Отправка почты Fess HTML и CSS 15 11.03.2010 20:24
Отправка почты Fo][ Работа с сетью в Delphi 1 20.01.2009 23:15
отправка почты? gusluk Работа с сетью в Delphi 2 17.11.2008 07:45
Отправка почты Mikola PHP 4 12.08.2007 04:17