| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Отправка письма по E-mail у [D5, D6, D7, Win95/98, WinME, NT4, WinXP]
Saimon © (2003-01-05 04:11:00)Дельферы, пожалуйсто, помогите.
Как програмно отправить письмо по E-mail"у так, чтобы пользователь об этом не узнал, т.е. скрыто (Если, к примеру, текст письма находится в файле C:\mail\mail.txt (полный путь) и как отправить сам этот файл).
Заранее спосибо.
С уважением SAIMON.
Карелин Артем (2003-01-06 12:12:00) [1]В дельфине море стандартных компонентов. Почты хоть наобсылайся. На Torry.net их целый океан. В чем проблема?
Lola (2003-01-05 11:03:00) [2]Забыла добавить, что это будет работать при условии, если на компьютере установлен MSOutlook
Lola (2003-01-05 10:56:00) [3]
const
// константы OlItemType
olMailItem = 0;
olAppointmentItem = 1;
olContactItem = 2;
olTaskItem = 3;
olJournalItem = 4;
olNoteItem = 5;
olPostItem = 6;
// константы OlAttachmentType
olByValue = 1;
olByReference = 4;
olEmbeddedItem = 5;
olOLE = 6;
var
myOlApp, myItem, myRecipient, myAttachments: OleVariant;
FileName1 : String;
begin
FileName1:=Trim(varPath)+"Letter.rtf";
// файл VBScript для создания почтового сообщения и прикрепления к нему файла
myOlApp := CreateOLEObject("Outlook.Application");
myItem := myOlApp.CreateItem(olMailItem);
myItem.Subject := "This is the Subject";
myRecipient := myItem.Recipients.Add(moscow@mail.ru);
myItem.Body := #13;
myItem.Body := myItem.Body + "Hello!";
myItem.Body := myItem.Body + "This code created this message and "+" sent it and I didn""t even have" + #13;
myItem.Body := myItem.Body + "to click the send button!!!" + #13;
// Теперь прикрепим файлы...
myAttachments := myItem.Attachments;
myAttachments.Add(FileName1, olByValue, 1, FileName1+" Attachment");
myItem.Send ;
myOlApp := VarNull;
myItem := VarNull;
myRecipient := VarNull;
myAttachments := VarNull;
myOlApp := Unassigned;
Separator (2003-01-05 07:55:00) [4]http://www.torry.net/email.htm
Может что-нибудь поможет
ScableR (2003-01-05 07:25:00) [5]
> Separator я это посмотрел ничего по теме нет.
Вот ответ из другого форума:
http://www.sources.ru/NonCGI/Forum3/HTML/000064.html
Это вообще класс:
http://xatka.vov.ru/artic/delp74.htm
Посмотри. Может пригодится:
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=11444
И ваще ты как искал?
Я всё это нашел в том поисковике!
Saimon (2003-01-05 06:58:00) [6]Separator я это посмотрел ничего по теме нет.
Separator (2003-01-05 06:01:00) [7]www.ya.ru -> SMTP и POP, почитай, а потом пиши прогу, которая будет по сокету конектится к mail серверам и отсылать письма
Saimon (2003-01-05 04:42:00) [8]DeMoN-777 что ты этим (MAPI) хочешь сказать???
DeMoN-777 (2003-01-05 04:28:00) [9]MAPI
| |
