Всем привет! Кто ни будь подскажите как зделать на delphi отправку на e-mail тока что б пользователь об этом не чего не знал))) В нэте шарил не чё полезного не нашёл( Всем спс!!!)))
херово значит шарил. 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 - то на форуме был пример как отправить письмо. Если нужно чтобы фаер ничего не сказал, забей на это.
ну и в чём проблема? тебе же дали ссылку на кусок кода, в котором нужно изменить данные под себя и всё ....... Вот видео- урок в котором всё показано тыц
Code: 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;
Code: 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, я же дал готовый код. Просто вместо PHP: IdMessage.Body.Add('bla bla bla' + memo1.Lines); влепи PHP: IdMessage.Body.Add(edit1.text + edit2.text);
