Скачать: CL | DM;

Передача текста в поле 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 где бы не был рассмотрен этот вопрос.

---

← →
AlexDan ©   (2010-03-29 18:17) [6]

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

---

← →
Anatoly Podgoretsky ©   (2010-03-29 19:08) [7]

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

---

← →
Lowlander ©   (2010-03-30 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.043 c