| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Передача текста в поле Edit на почту [D7, WinXP]
NetherEagle © (2010-03-29 00:07:00)Скажите пожалуйста, как сделать такую программу, в которой будет два поля: поле1 (Edit1) и поле2 (Edit2), ну и кнопка (Button1). Пользователь вводит текст в поле1 (Edit1) и при нажатие на кнопку (Button1), этот текст отправляется на почту, которую пользователь указывает в поле2 (Edit2).
Скажите как сделать или дайте исходник подобной программы.
Lowlander (2010-03-30 10:25:00) [1]Используй такой пример
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;
Anatoly Podgoretsky (2010-03-29 19:08:00) [2]Сил у него на СПАМ не хватит, разве какая ни будь добрая душа даст текст.
AlexDan (2010-03-29 18:17:00) [3]подростают молодые спамеры..)
Anatoly Podgoretsky (2010-03-29 16:47:00) [4]И кстати очень сложно будет найти FAQ где бы не был рассмотрен этот вопрос.
Anatoly Podgoretsky (2010-03-29 16:45:00) [5]> NetherEagle (29.03.2010 00:07:00) [0]
Какой еще исходник, какая программа, когда это можно делать в "Запустить/run"
12 (2010-03-29 11:26:00) [6]http://tinyurl.com/ydl3jjr
Плохиш (2010-03-29 00:41:00) [7]ну или mailto
Плохиш (2010-03-29 00:40:00) [8]
> дайте исходник подобной программы
500 евро по предоплате.
| |
