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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 22.04.2008, 00:50   #1
vitawt
Пользователь
 
Регистрация: 20.01.2008
Сообщений: 13
Печаль Отправка почты с Delphi 7

Вообщем вроде бы всё делаю как нужно, коннектюсь к смтп нормально, но при отправке письма получаю ошибку. Пробовал разными способами + чужими исходниками(таким же способом отправки через indy компоненты)

вот код :
Код:
var
Msg: TIdMessage;
procedure TForm1.Button4Click(Sender: TObject);
begin
IdSMTP1.Host := 'smtp.mail.ru';
IdSMTP1.Username:='milo';
IdSMTP1.Password:='*****';
IdSMTP1.Connect(5000);
if IdSMTP1.Connected=true then ShowMessage('connected')
else ShowMessage('faild');
end;



procedure TForm1.Button5Click(Sender: TObject);
begin
if IdSMTP1.Connected=True then
IdSMTP1.Send(Msg)
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

Msg.Subject:='тема'; 
Msg.Recipients.EMailAddresses:='milo@mail.ru';
Msg.From.Address:='milo@mail.ru'; 
Msg.Body.Text:='текст1'; 
Msg.Date:=StrToDate('01.12.2004');
vitawt вне форума Ответить с цитированием
Старый 22.04.2008, 04:32   #2
JakSon
Пользователь
 
Регистрация: 16.02.2008
Сообщений: 22
По умолчанию

по какому порту идет отправка!!! и де указание что требуется авторизация

Код:
procedure TForm1.Button50Click(Sender: TObject);
begin
   SMTP.Host:='smtp.bk.ru'; // адрес почтового сервера
   SMTP.Port:=25; // порт по которому будет осуществляться подключение
   //
   SMTP.AuthenticationType:=atLogin; // тип подключения к серверу - с авторизацией
   SMTP.Username:='bLabLabLa'; // логин пользователя
   SMTP.Password:='bLabLabLa'; // пароль пользователя
   //
   IdMessage.Recipients.EMailAddresses := 'bLabLabLa@ua.fm '; // майл получателя письма
   IdMessage.From.Text := 'bLabLabLa@bk.ru'; // майл отправителя письма
   IdMessage.Subject := 'HeLo!!'; // тема письма
   IdMessage.Body.Text := tekst; // передача данных из memo в компонент IdMessage, для последующей отправки
   try
      try
      SMTP.Connect; // соединение с почтовым сервером
      SMTP.Send(IdMessage);
      ShowMessage('Письмо отправлено!');
      except on E:Exception do
         begin
          MeMailStats.Lines.Insert(0,'Статус отправки: ERROR - '+E.Message);
          ShowMessage('Письмо не отправлено!');
         end;
      end;
          finally
           SMTP.Disconnect; // разрыв соединения
           end;
end;
пробуй

Последний раз редактировалось Simply-Art; 05.06.2014 в 04:58. Причина: код надо оформлять тегом [CODE]
JakSon вне форума Ответить с цитированием
Старый 22.04.2008, 12:11   #3
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

http://programmersclub.ru/alar-pochovik/
mihali4 вне форума Ответить с цитированием
Старый 22.04.2008, 16:09   #4
vitawt
Пользователь
 
Регистрация: 20.01.2008
Сообщений: 13
По умолчанию

Цитата:
Сообщение от JakSon Посмотреть сообщение
по какому порту идет отправка!!! и де указание что требуется авторизация

procedure TForm1.Button50Click(Sender: TObject);
begin
SMTP.Host:='smtp.bk.ru'; // адрес почтового сервера
SMTP.Port:=25; // порт по которому будет осуществляться подключение
//
SMTP.AuthenticationType:=atLogin; // тип подключения к серверу - с авторизацией
SMTP.Username:='bLabLabLa'; // логин пользователя
SMTP.Password:='bLabLabLa'; // пароль пользователя
//
IdMessage.Recipients.EMailAddresses := 'bLabLabLa@ua.fm '; // майл получателя письма
IdMessage.From.Text := 'bLabLabLa@bk.ru'; // майл отправителя письма
IdMessage.Subject := 'HeLo!!'; // тема письма
IdMessage.Body.Text := tekst; // передача данных из memo в компонент IdMessage, для последующей отправки
try
try
SMTP.Connect; // соединение с почтовым сервером
SMTP.Send(IdMessage);
ShowMessage('Письмо отправлено!');
except on E:Exception do
begin
MeMailStats.Lines.Insert(0,'Статус отправки: ERROR - '+E.Message);
ShowMessage('Письмо не отправлено!');
end;
end;
finally
SMTP.Disconnect; // разрыв соединения
end;
end;

пробуй
тоже самое, дельфи показывает ошибку здесь :
Код:
 SMTP.Send(IdMessage);
vitawt вне форума Ответить с цитированием
Старый 22.04.2008, 16:10   #5
vitawt
Пользователь
 
Регистрация: 20.01.2008
Сообщений: 13
По умолчанию

Цитата:
Сообщение от mihali4 Посмотреть сообщение
да видел это всё я - не пашет
vitawt вне форума Ответить с цитированием
Старый 22.04.2008, 16:24   #6
Квэнди
Старожил
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Сообщений: 3,859
По умолчанию

что значит не пашет ?
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи
Квэнди вне форума Ответить с цитированием
Старый 22.04.2008, 23:26   #7
vitawt
Пользователь
 
Регистрация: 20.01.2008
Сообщений: 13
По умолчанию

Цитата:
Сообщение от Квэнди Посмотреть сообщение
что значит не пашет ?
уже разобрался. просто вводил не тот пароль от мыла, лол ппц =(
vitawt вне форума Ответить с цитированием
Старый 25.04.2008, 16:39   #8
StartMis
Форумчанин
 
Регистрация: 21.04.2008
Сообщений: 175
По умолчанию

Попробывал проделать Создание почтового клиента в Delphi 7 по ссылке каторую дал mihali4
Выдает ошибку [Фатальная ошибка] Unit1.pas(7): File not found: 'IdRFCReply.dcu'
в строке
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdMessageClient, IdPOP3;
StartMis вне форума Ответить с цитированием
Старый 25.04.2008, 17:36   #9
PAVEL315
Форумчанин Подтвердите свой е-майл
 
Аватар для PAVEL315
 
Регистрация: 18.11.2006
Сообщений: 172
По умолчанию

Цитата:
Сообщение от StartMis Посмотреть сообщение
Попробывал проделать Создание почтового клиента в Delphi 7 по ссылке каторую дал mihali4
Выдает ошибку [Фатальная ошибка] Unit1.pas(7): File not found: 'IdRFCReply.dcu'
в строке
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdMessageClient, IdPOP3;
А компоненты все установлены?
дык!
PAVEL315 вне форума Ответить с цитированием
Старый 25.04.2008, 17:50   #10
StartMis
Форумчанин
 
Регистрация: 21.04.2008
Сообщений: 175
По умолчанию

Да как там было написано IdPOP3,IdMessage
StartMis вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Microsoft Office Outlook : Отправка SMS с электронной почты (MegaFon, Beeline, MTS) kipish Софт 6 01.12.2011 10:26
Отправка почты Fess HTML и CSS 15 11.03.2010 20:24
Отправка почты (smtp) через proxy dimonbest Работа с сетью в Delphi 9 20.06.2008 14:07
Отправка почты Fenix Nexsais Работа с сетью в Delphi 5 06.09.2007 22:27
Отправка почты Mikola PHP 4 12.08.2007 04:17