Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Как осуществляеться подключение к Mail serveram

Автор: dimonich2004 9.11.2005, 11:47

Идея у меня такова Хочу написать порогу Для рассылки писем
клиентам фирмы по базе Emile адресов
база в текстовам файле ( ну.. я какбы новечёк )! вы поняли..))
и вот проблем я незнаю как в принципе осуществляеться подключение
.. но теоретически знаю что через SOCKET Дайте пример как это будет выглядеть и если не трудно с пояснениями....
В зарание СПАСИБО!

Автор: wesadex 9.11.2005, 11:51

Открой drkb и там есть целая статья про Взлом мыла - с примерами подключений и пр. Если прочитать внимательно, все станет понятно. Не устану говорить авторам проекта свое ОГРОМНОЕ СПАСИБО! smile

Автор: dimonich2004 9.11.2005, 11:53

Что за DRKB,? smile

Автор: dimonich2004 9.11.2005, 12:48

Может с почтовой компонентой поможите?
у меня DELPHI есть 7 и 8 в обеих не ставиться компонента FREEINET ?
Неужели никто не сталкивался?

Автор: ne0n 9.11.2005, 14:55

Вот код ля отправки письма(взято из DRKB);

Код


unit Unit1; 

interface 

uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls; 

type 
  TForm1 = class(TForm) 
    Button1: TButton; 
    Memo1: TMemo; 
    procedure Button1Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.dfm} 

uses 
  SMTP_Connections; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
  mto, mbody: TStringList; 
  MailServer, uname, upass, mFrom, mFromName, 
  mToName, Subject: string; 
begin 
  mMemo := Memo1; // to output server feedback 
  //.......................... 
  MailServer := 'mail.xyz.net'; 
  uname := 'username'; 
  upass := 'password'; 
  mFrom :=  'user@xyz.net'; 
  mFromName := 'forename surname'; 
  mToName := ''; 
  Subject := 'Your Subject'; 
  //.......................... 
  mto := TStringList.Create; 
  mbody := TStringList.Create; 
  try 
    mto.Add('anybody@xyz.net'); 
    mbody.Add('Test Mail'); 
    //Send Mail................. 
    _authSendMail(MailServer, uname, upass, mFrom, mFromName, mToName, Subject, mto, mbody); 
    //.......................... 
  finally 
    mto.Free; 
    mbody.Free; 
  end; 
end; 

end.

Автор: dimonich2004 9.11.2005, 16:02

буду пробывать СПАСИБО smile

!
Добавлено @ 16:04
А.... Всётаки что есть это DRKB,? smile

Автор: _hunter 9.11.2005, 17:07

ссылка в шапке форума
Delphi Russian Knowledge Base
http://www.drkb.ru/