PDA

Просмотр полной версии : [Delphi] как отправить данные на email?

donka
15.04.2010, 23:55
Всем привет!
Кто ни будь подскажите как зделать на 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%BB+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
16.04.2010, 11:11
Мне надо отправить текст с edit1 и edit2 сообщением на мыло!Яндекс или майл роли не играет)
TrueBit
16.04.2010, 11:14
Мне надо отправить текст с edit1 и edit2 сообщением на мыло!Яндекс или майл роли не играет)
ну и в чём проблема? тебе же дали ссылку на кусок кода, в котором нужно изменить данные под себя и всё
.......
Вот видео- урок в котором всё показано тыц (http://www.delphiexpert.ru/view_lesson.php?id=46)
cheater_man
16.04.2010, 11:55
Мне надо отправить текст с 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
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, я же дал готовый код. Просто вместо
IdMessage.Body.Add('bla bla bla' + memo1.Lines);
влепи
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 пробовал всё равно ошибка!(