VPF::Как осуществляеться подключение к Mail serveram

dimonich2004

Дата 9.11.2005, 11:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 9.9.2005

Репутация: нет
Всего: нет

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

wesadex

Дата 9.11.2005, 11:51 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 83
Регистрация: 21.6.2005

Репутация: нет
Всего: нет

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

dimonich2004

Дата 9.11.2005, 11:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 9.9.2005

Репутация: нет
Всего: нет

Что за DRKB,? smile

dimonich2004

Дата 9.11.2005, 12:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 9.9.2005

Репутация: нет
Всего: нет

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

ne0n

Дата 9.11.2005, 14:55 (ссылка)

(нет голосов)

Загрузка ...

PlayBoy

Профиль
Группа: Участник
Сообщений: 733
Регистрация: 5.8.2005
Где: Н.Новгород

Репутация: нет
Всего: 11

Вот код ля отправки письма(взято из 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 :=  '[email protected]'; 
  mFromName := 'forename surname'; 
  mToName := ''; 
  Subject := 'Your Subject'; 
  //.......................... 
  mto := TStringList.Create; 
  mbody := TStringList.Create; 
  try 
    mto.Add('[email protected]'); 
    mbody.Add('Test Mail'); 
    //Send Mail................. 
    _authSendMail(MailServer, uname, upass, mFrom, mFromName, mToName, Subject, mto, mbody); 
    //.......................... 
  finally 
    mto.Free; 
    mbody.Free; 
  end; 
end; 

end.

--------------------

http://sa-sec.org
как я вам? smile

dimonich2004

Дата 9.11.2005, 16:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 9.9.2005

Репутация: нет
Всего: нет

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

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

_hunter

Дата 9.11.2005, 17:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 5
Всего: 98

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

--------------------

Tempora mutantur, et nos mutamur in illis...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »