Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   [Delphi] как отправить данные на email? (https://forum.antichat.xyz/showthread.php?t=196580)

donka 15.04.2010 23:55
[Delphi] как отправить данные на email?
 
Всем привет!
Кто ни будь подскажите как зделать на delphi
отправку на e-mail тока что б пользователь об этом не чего не знал)))
В нэте шарил не чё полезного не нашёл(
Всем спс!!!)))

slesh 16.04.2010 00:06
херово значит шарил.
http://www.google.ru/search?hl=ru&newwindow=1&q=%D1%84%D0%B0%D0%B9%D0%B B+email+Delphi&lr=&aq=f&aqi=&aql=&oq=&gs_rfai=
Выдает кучу сайтов.
Вот допустим пример:
http://forum.ru-board.com/topic.cgi?forum=33&topic=10146

Вот я не понимаю, что впадлу было вбить в гугле чтоли?
Если нужно на WinSock - то на форуме был пример как отправить письмо.
Если нужно чтобы фаер ничего не сказал, забей на это.

FeRiuS 16.04.2010 00:34
По форуму поискал бы..
_http://forum.antichat.ru/showpost.php?p=2067379&postcount=6127

donka 16.04.2010 11:01
Не получается((Мне надо примерчик если не сложно

TrueBit 16.04.2010 11:03
Цитата:
Сообщение от donka
Не получается((Мне надо примерчик если не сложно
Что именно не получается?

donka 16.04.2010 11:11
Мне надо отправить текст с edit1 и edit2 сообщением на мыло!Яндекс или майл роли не играет)

TrueBit 16.04.2010 11:14
Цитата:
Сообщение от donka
Мне надо отправить текст с edit1 и edit2 сообщением на мыло!Яндекс или майл роли не играет)
ну и в чём проблема? тебе же дали ссылку на кусок кода, в котором нужно изменить данные под себя и всё
.......
Вот видео- урок в котором всё показано тыц

cheater_man 16.04.2010 11:55
Цитата:
Сообщение от donka
Мне надо отправить текст с edit1 и edit2 сообщением на мыло!Яндекс или майл роли не играет)
Хорош тупить тебе FeRiuS пример дал!

ilyhamas 16.04.2010 19:52
Код:
idsmtp1.Host:='smtp.yandex.ru';
idsmtp1.Port:=25;
idsmtp1.Username:=Edit1.text;
idsmtp1.Password:=Edit4.text;
idmessage1.Body.text:=memo1.Text;
idmessage1.from.Text:=Edit5.Text;
idmessage1.Recipients.EMailAddresses:=edit3.Text;
idmessage1.Subject:=Edit2.text;
idsmtp1.Connect();
idsmtp1.Send(idmessage1);
idsmtp1.Disconnect;

Zuldrak 16.04.2010 21:30
Код:

TIdMessage* M = new TIdMessage(Form1);
M->ContentType = "text/plain";
M->CharSet = "windows-1251";
M->Body->Clear();
M->Body->Add("текст письма");
M->From->Text = "Мейл отправителя";
M->Recipients->EMailAddresses = "Мейл отправителя";
M->Priority = TIdMessagePriority(mpHighest);
M->Subject = "Тема письма";

//Вложения если надо
TIdAttachment* att = new TIdAttachment(M->MessageParts,"c:\\1.jpg");
M->MessageParts->Add();
M->MessageParts->Items[0] = att;


IdSMTP1->MailAgent = "Test TidSMTP";
IdSMTP1->AuthenticationType = atLogin;
IdSMTP1->Host = "smtp.mail.ru"; // имя почтового сервера
IdSMTP1->UserId = "Свой мейл";
IdSMTP1->Password = "24234344"; // Здесь пароль
if(!IdSMTP1->Connected()) IdSMTP1->Connect();

if(IdSMTP1->Connected())
{
IdSMTP1->Send(M);

}


IdSMTP1->Disconnect();
delete M;

donka 17.04.2010 00:04
Цитата:
Сообщение от ilyhamas
Код:
idsmtp1.Host:='smtp.yandex.ru';
idsmtp1.Port:=25;
idsmtp1.Username:=Edit1.text;
idsmtp1.Password:=Edit4.text;
idmessage1.Body.text:=memo1.Text;
idmessage1.from.Text:=Edit5.Text;
idmessage1.Recipients.EMailAddresses:=edit3.Text;
idmessage1.Subject:=Edit2.text;
idsmtp1.Connect();
idsmtp1.Send(idmessage1);
idsmtp1.Disconnect;
я так делал но потом ошибку выдаёт Socket Error #10060 Connection timed out у меня Windows 7

FeRiuS 17.04.2010 02:26
donka, я же дал готовый код. Просто вместо
PHP код:
IdMessage.Body.Add('bla bla bla' + memo1.Lines); 
влепи
PHP код:
IdMessage.Body.Add(edit1.text + edit2.text); 

Life7 17.04.2010 02:51
может тебе сразу зделать и ексещник кинуть?

ilyhamas 17.04.2010 07:35
Цитата:
я так делал но потом ошибку выдаёт Socket Error #10060 Connection timed out у меня Windows 7
Ошибка из-за того, что у тебя неправильно указн host или порт

stepashka_ 17.04.2010 08:41
http://depositfiles.com/files/z6qs7fm41
Залил исходник, подпиши свои данные там.

donka 18.04.2010 00:27
порт ставил 25 и 2525 пробовал всё равно ошибка!(


Время: 11:05