Форумы на Хакер

Добро пожаловать! Это — архивная версия форумов на «Хакер.Ru». Она работает в режиме read-only.

Отправка письма при помощи Delphi

Пользователи, просматривающие топик: none

Зашли как: Guest

Все форумы >> [Компилируемые языки] >> Отправка письма при помощи Delphi

Имя

Сообщение

<< Старые топики Новые топики >>

Отправка письма при помощи Delphi - 2009-02-11 16:25:29.540000

Stil Free

Сообщений: 598
Оценки: 0
Присоединился: 2008-11-02 16:07:14.136666

В общем суть дела в том что с программы должна отправлять письмо скрытно на маил. В нете куча вариантов но ни один не подходит=( Нужен совет старших товарищей;)

Post #: 1

RE: Отправка письма при помощи Delphi - 2009-02-11 17:06:29.650000

SkyLinE215

Сообщений: -986
Оценки: 0
Присоединился: 2007-08-27 10:25:44.570000

quote:

ORIGINAL: Stil Free

В нете куча вариантов но ни один не подходит=(

Они все подходят, в этом деле главное не код а тот кто его писал и компилировал..

Post #: 2

RE: Отправка письма при помощи Delphi - 2009-02-11 17:50:30.800000

Stil Free

Сообщений: 598
Оценки: 0
Присоединился: 2008-11-02 16:07:14.136666

quote:

ORIGINAL: SkyLinE215

quote:

ORIGINAL: Stil Free

В нете куча вариантов но ни один не подходит=(

Они все подходят, в этом деле главное не код а тот кто его писал и компилировал..

В этом проблем нет. Я через гейт замутил а приходит письмо и оно не содержит того что надо ,а должно быть. Написано Spam Filtred

Post #: 3

RE: Отправка письма при помощи Delphi - 2009-03-05 12:41:21.173333

Sokolik

Сообщений: 46
Оценки: 0
Присоединился: 2009-02-19 14:36:16.693333

Stil Free, попробуй воспользоваться этой ссылкой http://articles.org.ru/cn/?c=1, думаю на этом сайте есть, что тебя интересует.

Post #: 4

RE: Отправка письма при помощи Delphi - 2009-03-05 13:16:17.400000

joker23

Сообщений: 36
Оценки: 0
Присоединился: 2009-01-20 18:02:37.540000

Stil Free что ты хочешь тупо отправлять письма , или отправлять их скрытно ??

Post #: 5

RE: Отправка письма при помощи Delphi - 2009-03-05 22:48:11.046666

unconnected2

Сообщений: 332
Оценки: 0
Присоединился: 2009-01-16 17:56:12.400000

Что в вашем понимании скрытно? Чтобы mail.ru ничего и не заметил?

Post #: 6

RE: Отправка письма при помощи Delphi - 2009-03-14 04:51:05.136666

HolyAnimal =^.^=

Сообщений: 88
Оценки: 0
Присоединился: 2009-02-28 01:26:28.003333

Способов, как отправить письмо на Delphi в нете валом! -_^

Вот как вариант:

  {отправляем письмо}
   fMailSMTP    := TIdSMTP.Create(nil);
   fMailMessage := TIdMessage.Create(nil);
   fMailSMTP.Port               := 25;                     //порт
   fMailSMTP.Host               := 'smtp.yandex.ru';       //smtp хост
   fMailSMTP.AuthenticationType := atLogin;                //авторизация - да
   fMailSMTP.Username           := 'xakep';               //логин
   fMailSMTP.Password           := 'qwerty'; //пароль
   fMailMessage.From.Name                 := 'Xakep';              //откого
   fMailMessage.From.Address              := 'xakep@yandex.ru';    //откого
   fMailMessage.Recipients.EMailAddresses := 'user@mail.ru'; //кому
   fMailMessage.Subject                   := 'Тема письма';              //тема
   fMailMessage.Body.Text                 := 'Само письмо';         //текст
   try
     try
       fMailSMTP.Connect;            //соединение
       fMailSMTP.Send(fMailMessage); //отправка
       {MSG(mtImpEMailDone);}
     except
       {если не отправленно :(}
     end;
   finally
     if fMailSMTP.Connected then fMailSMTP.Disconnect;
     fMailSMTP.Free;
     fMailMessage.Free;
   end;

quote:

ORIGINAL: unconnected2
Что в вашем понимании скрытно? Чтобы mail.ru ничего и не заметил?

улыбнуло ^_^

Post #: 7

RE: Отправка письма при помощи Delphi - 2009-03-17 20:34:16.476666

Patriott

Сообщений: 36
Оценки: 0
Присоединился: 2009-03-14 18:13:26.236666

можно на vbs реализовать процесс отправки…

Set objMsg = CreateObject("CDO.Message") 
 Set Config = CreateObject("CDO.Configuration") 
 Set Config = objMsg.Configuration 
 objMsg.From = "отправитель@mail.ru" 
 objMsg.To = "кому@домен.ru" 
 objMsg.Subject = "тема" 
 objMsg.Textbody = "тело письма" 
 Config("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
 Config("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru" 
 Config("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
 Config("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
 Config("http://schemas.microsoft.com/cdo/configuration/sendusername") = "отправитель@mail.ru" 
 Config("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "пароль" 
 Config.Fields.Update 
 objMsg.Send

Post #: 8

RE: Отправка письма при помощи Delphi - 2009-03-19 00:17:08.603333

HolyAnimal =^.^=

Сообщений: 88
Оценки: 0
Присоединился: 2009-02-28 01:26:28.003333

quote:

ORIGINAL: Patriott
можно на vbs реализовать процесс отправки…

О_О прям точно по теме топа о_О

Post #: 9

RE: Отправка письма при помощи Delphi - 2009-03-19 16:25:56.433333

FLIER

Сообщений: 628
Оценки: 0
Присоединился: 2007-08-29 01:31:15.400000

quote:

ORIGINAL: HolyAnimal =^.^=

quote:

ORIGINAL: Patriott
можно на vbs реализовать процесс отправки…

О_О прям точно по теме топа о_О

способ на самом деле не так уж и плох…только уж слишком заюзаный

Post #: 10

RE: Отправка письма при помощи Delphi - 2009-03-20 00:19:53.363333

HolyAnimal =^.^=

Сообщений: 88
Оценки: 0
Присоединился: 2009-02-28 01:26:28.003333

quote:

ORIGINAL: FLIER

quote:

ORIGINAL: HolyAnimal =^.^=

quote:

ORIGINAL: Patriott
можно на vbs реализовать процесс отправки…

О_О прям точно по теме топа о_О

способ на самом деле не так уж и плох…только уж слишком заюзаный

да я и не собирался кидать камни в этот способ, просто просили как-бы на Delphi -_^
хотя средствами Delphi можно сформировать vbs файл и запустить на исполнение, а после этого письмо отправится и файл удалить ^_^

Post #: 11

RE: Отправка письма при помощи Delphi - 2009-03-20 04:25:50.720000

b[e]nd3p

Сообщений: 187
Оценки: 0
Присоединился: 2008-09-02 20:54:56.370000

Посмотри в "Delphi глазами Хакера" Фленова, там он создает почтовую мышу такую…

Post #: 12

RE: Отправка письма при помощи Delphi - 2009-03-20 12:32:26.900000

Nik_nk

Сообщений: 3
Оценки: 0
Присоединился: 2009-03-20 12:02:31.780000

quote:

ORIGINAL: HolyAnimal =^.^=
Способов, как отправить письмо на Delphi в нете валом! -_^
Вот как вариант:

{отправляем письмо} fMailSMTP := TIdSMTP.Create(nil);

только не забудь подключить в uses IdSMTP, IdMessage!

Post #: 13

RE: Отправка письма при помощи Delphi - 2009-03-21 00:20:59.143333

HolyAnimal =^.^=

Сообщений: 88
Оценки: 0
Присоединился: 2009-02-28 01:26:28.003333

Если все еще непонятно как, то: Delphi_World

Post #: 14

RE: Отправка письма при помощи Delphi - 2009-03-21 11:41:53.593333

.::Admin::.

Сообщений: 130
Оценки: 0
Присоединился: 2009-03-12 10:40:09.090000

quote:

можно на vbs реализовать процесс отправки…
Set objMsg = CreateObject("CDO.Message")
Set Config = CreateObject("CDO.Configuration")
Set Config = objMsg.Configuration
objMsg.From = "отправитель@mail.ru"
objMsg.To = "кому@домен.ru"
objMsg.Subject = "тема"
objMsg.Textbody = "тело письма"
Config("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Config("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru"
Config("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Config("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Config("http://schemas.microsoft.com/cdo/configuration/sendusername") = "отправитель@mail.ru"
Config("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "пароль"
Config.Fields.Update
objMsg.Send

чтото у меня ето не фуричить[&:], ощибок не викида, а письмо не приходе[:(]

Post #: 15

RE: Отправка письма при помощи Delphi - 2009-03-28 13:46:34.790000

Stil Free 2

Сообщений: 183
Оценки: 0
Присоединился: 2009-03-26 17:17:38.296666

Всё уже давным давно нашёл как отправить письмо=) всем спс

Post #: 16

Страниц: [1]

Все форумы >> [Компилируемые языки] >> Отправка письма при помощи Delphi

Связаться:
Вопросы по сайту / xakep@glc.ru

Предупреждение: использование полученных знаний в противозаконных целях преследуется по закону.