PHP DM Gate v0.9 » Передача текста в поле Edit на почту <span class="vd">[D7, WinXP]</span>

NetherEagle (29.03.10 00:07) [0]

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

<Цитата>
Плохиш © (29.03.10 00:40) [1]

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

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

<Цитата>
Плохиш © (29.03.10 00:41) [2]

ну или mailto

<Цитата>
12 © (29.03.10 11:26) [3]

http://tinyurl.com/ydl3jjr

<Цитата>
Anatoly Podgoretsky © (29.03.10 16:45) [4]

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

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

<Цитата>
Anatoly Podgoretsky © (29.03.10 16:47) [5]

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

<Цитата>
AlexDan © (29.03.10 18:17) [6]

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

<Цитата>
Anatoly Podgoretsky © (29.03.10 19:08) [7]

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

<Цитата>
Lowlander © (30.03.10 10:25) [8]

Используй такой пример

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;

<Цитата>