Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: 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 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.049 c
2-1271616095
Б
2010-04-18 22:41
2010.08.27
Как ToolWindow-окну добавить кнопку минимизации?


2-1266336508
Pavel
2010-02-16 19:08
2010.08.27
Подключение к MS SQL Server


15-1266485663
Guresff
2010-02-18 12:34
2010.08.27
Как организовать прием платежей на сайте?


15-1271261484
[true]TRIx
2010-04-14 20:11
2010.08.27
Ищу дельфи пример Цепи Маркова.


2-1266950781
Женя
2010-02-23 21:46
2010.08.27
Перенос строки при экспорте из acces в dbgrid