Передача текста в поле Edit на почту

← →
NetherEagle (2010-03-29 00:07) [0]

Скажите пожалуйста, как сделать такую программу, в которой будет два поля: поле1 (Edit1) и поле2 (Edit2), ну и кнопка (Button1). Пользователь вводит текст в поле1 (Edit1) и при нажатие на кнопку (Button1), этот текст отправляется на почту, которую пользователь указывает в поле2 (Edit2).
Скажите как сделать или дайте исходник подобной программы.

← →
Плохиш © (2010-03-29 00:40) [1]

> дайте исходник подобной программы

500 евро по предоплате.

← →
Плохиш © (2010-03-29 00:41) [2]

ну или mailto

← →
12 © (2010-03-29 11:26) [3]

http://tinyurl.com/ydl3jjr

← →
Anatoly Podgoretsky © (2010-03-29 16:45) [4]

> NetherEagle (29.03.2010 00:07:00) [0]

Какой еще исходник, какая программа, когда это можно делать в "Запустить/run"

← →
Anatoly Podgoretsky © (2010-03-29 16:47) [5]

И кстати очень сложно будет найти FAQ где бы не был рассмотрен этот вопрос.

подростают молодые спамеры..)

Сил у него на СПАМ не хватит, разве какая ни будь добрая душа даст текст.

Используй такой пример
var Msg:variant; FullNameAttachFile: string; res : boolean; EMail: string begin res := true; CoInitialize(nil); try Msg:= CreateOleObject("CDO.Message"); Msg.BodyPart.Charset:= "windows-1251"; Msg.From:= "от кого"; Msg.Subject:= "название"; Msg.TextBody:= "текст" FullNameAttachFile:= GetWorkFolder; RDirectory(FullNameAttachFile);// если нужно FullNameAttachFile:="file";// прикрепить Msg.AddAttachment(FullNameAttachFile);// файл Msg.To:="адрес кому отправляешь"; Msg.Configuration.Fields.Item["http://schemas.microsoft.com/cdo/configuration/sendusing"].Value:= 2; Msg.Configuration.Fields.Item["http://schemas.microsoft.com/cdo/configuration/smtpserver"].Value:= "адрес сервера либо ip"; Msg.Configuration.Fields.Item["http://schemas.microsoft.com/cdo/configuration/smtpserverport"].Value:= 25; //порт smtp Msg.Configuration.Fields.Item["http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"] := 1;//////////// Msg.Configuration.Fields.Item["http://schemas.microsoft.com/cdo/configuration/sendusername"]:= "почта"; Msg.Configuration.Fields.Item["http://schemas.microsoft.com/cdo/configuration/sendpassword"]:= "пароль"; //Это при условии что ты знаешь эти данные с того smtp сервера с которым работаешь Msg.Configuration.Fields.Update; try Msg.Send; except res:=false; end; finally CoUninitialize; end;

Передача текста в поле Edit на почту Найти похожие ветки