Регистрация Главная Пользователи Все разделы прочитаны
Сообщения за день Справка Регистрация
Старый 06.07.2013, 21:46   #1
 Разведчик
Аватар для TryCoder
 
TryCoder излучает ауруTryCoder излучает ауруTryCoder излучает ауруTryCoder излучает ауруTryCoder излучает ауруTryCoder излучает ауру
Регистрация: 05.07.2013
Сообщений: 4
Популярность: 545
Сказал(а) спасибо: 0
Поблагодарили 2 раз(а) в 1 сообщении
Отправить сообщение для TryCoder с помощью Skype™
 
По умолчанию Отправка email средствами Delphi

Демонстрция способа отправки email средствами Delphi:

Кидаем на форму IdAntiFreeze,IdSMTP,IdMessage

дабл клик на форме:
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
IdSMTP1.Host := 'smtp.mail.ru'; 
IdSMTP1.Username:='[Ссылки могут видеть только зарегистрированные пользователи. ]';  //ваш логин аккаунта с которого будем слать
IdSMTP1.Password:='pass';       // пароль от этого аккаунта
end;
код кнопки "отправить"
Код:
procedure TForm1.sButton1Click(Sender: TObject);
begin
  IdSMTP1.Disconnect ;
  IdSMTP1.Connect;
  IdMessage1.CharSet:='UTF-8';
  IdMessage1.ContentTransferEncoding:='8bit';
  IdMessage1.Body.text:='bodytext...';
  IdMessage1.Subject:='Hello!'; // Тема письма
  IdMessage1.Recipients.EMailAddresses:='[Ссылки могут видеть только зарегистрированные пользователи. ]'; // Кому
  IdMessage1.From.Name:='Vasya'; // От кого  
  IdMessage1.From.Address:=IdSMTP1.Username;
  IdSMTP1.Send(IdMessage1);
  showmessage('Отправлено! :)'); // done! :)
  if IdSMTP1.Connected then IdSMTP1.Disconnect;
  end;
  end.

Исходник, демонстрирующий способ отправки email средствами Delphi:
[Ссылки могут видеть только зарегистрированные пользователи. ]
  Ответить с цитированием
2 пользователя(ей) сказали cпасибо:
KiRo_Lajt (10.07.2013), NebesaBag (07.07.2013)
Старый 26.03.2016, 01:43   #2
 Разведчик
Аватар для leon2009
 
leon2009 никому не известный тип
Регистрация: 26.03.2016
Сообщений: 1
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: Отправка email средствами Delphi

сейчас показывает при отправке что это спам
  Ответить с цитированием
Старый 04.05.2016, 15:32   #3
 Разведчик
Аватар для ЧИРА
 
ЧИРА никому не известный тип
Регистрация: 02.05.2016
Сообщений: 1
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: Отправка email средствами Delphi

У меня не работает вообще этот код(( А исходник удален.
  Ответить с цитированием
Старый 22.07.2016, 16:23   #4
 Разведчик
Аватар для l2Coder
 
l2Coder никому не известный тип
Регистрация: 19.09.2011
Сообщений: 35
Популярность: 10
Сказал(а) спасибо: 4
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: Отправка email средствами Delphi

Код:
Function SendMail (host,user,password,path_to_file,Recipient:string;port:integer):Boolean;
var
IdSocksInfo1:TIdSocksInfo;
IdAttachment1:TIdAttachment;
IdSSLIOHandlerSocket1:TIdSSLIOHandlerSocket;
idSmtp1:TidSmtp;
IdAttachment:TIdAttachment;
IdMessage1:TIdMessage;
begin
IdSocksInfo1:=TIdSocksInfo.Create(nil);
IdSocksInfo1.Authentication:= saNoAuthentication;
IdSocksInfo1.Port:=port;
IdSocksInfo1.Version:=svNoSocks;
idSmtp1:=TidSmtp.Create(nil);
idSmtp1.HeloName:='some_name';
idSmtp1.AuthenticationType:=atLogin;
idSmtp1.Host := host;
idSmtp1.Username:=user;
idSmtp1.Password:=password;
idSmtp1.Port:=port;
IdMessage1:=TIdMessage.Create(nil);
idmessage1.ContentType := 'text/plain; charset=UTF-8';
IdMessage1.From.Text := '[Ссылки могут видеть только зарегистрированные пользователи. ]';
idMessage1.Recipients.EMailAddresses :=Recipient;
idMessage1.Subject :='New Order!!!';
TIdAttachment.Create(IdMessage1.MessageParts,path_to_file);
idSmtp1.Connect();
if IdSMTP1.Connected then
begin
idSmtp1.Send(idMessage1);
idSmtp1.Disconnect;
Result:=True;
end
else
Result:=False;
end;
  Ответить с цитированием
Старый 24.09.2016, 11:44   #5
 Разведчик
Аватар для dieselryder
 
dieselryder гордость нацииdieselryder гордость нацииdieselryder гордость нацииdieselryder гордость нацииdieselryder гордость нацииdieselryder гордость нацииdieselryder гордость нацииdieselryder гордость нацииdieselryder гордость нацииdieselryder гордость нацииdieselryder гордость нации
Регистрация: 20.12.2013
Сообщений: 2
Популярность: 3344
Сказал(а) спасибо: 1
Поблагодарили 22 раз(а) в 15 сообщениях
Отправить сообщение для dieselryder с помощью Skype™
 
По умолчанию Re: Отправка email средствами Delphi

Цитата:
Сообщение от leon2009Посмотреть сообщение
сейчас показывает при отправке что это спам

А причем тут СПАМ и Делфи? Вы можете отправлять с любого своего ящика, который укажите. Если в СПАМ попадает, то это значит что Ваш ящик в ЧС
________________
[Ссылки могут видеть только зарегистрированные пользователи. ]
Тема с продажей Бонус-кодов
  Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Помогите!] Delphi отправка пакетов ~ГайвеР~ Общение разработчиков 14 29.10.2012 18:51
[Почта] Anmase - отправка email c подменой адреса. ●KaNe● Халява для Читера 2 14.07.2012 23:27
[Помогите!] Отправка пакетов на Delphi 7. mistik1 Общение разработчиков 6 06.06.2012 09:01
Отправка анонимного email или отправка email с чужого email m0nk Треп 4 26.11.2011 18:35

Заявление об ответственности / Список мошенников

Часовой пояс GMT +4, время: 15:28.

Пишите нам: [email protected]
Copyright © 2024 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net