Форум: "Сети";
Текущий архив: 2003.02.24;
Скачать: [xml.tar.bz2];
Вниз
Отправка письма по E-mail у Найти похожие ветки
← →
Saimon (2003-01-05 04:11) [0]Дельферы, пожалуйсто, помогите.
Как програмно отправить письмо по E-mail"у так, чтобы пользователь об этом не узнал, т.е. скрыто (Если, к примеру, текст письма находится в файле C:\mail\mail.txt (полный путь) и как отправить сам этот файл).
Заранее спосибо.
С уважением SAIMON.
← →
DeMoN-777 (2003-01-05 04:28) [1]MAPI
← →
Saimon (2003-01-05 04:42) [2]DeMoN-777 что ты этим (MAPI) хочешь сказать???
← →
Separator (2003-01-05 06:01) [3]www.ya.ru -> SMTP и POP, почитай, а потом пиши прогу, которая будет по сокету конектится к mail серверам и отсылать письма
← →
Saimon (2003-01-05 06:58) [4]Separator я это посмотрел ничего по теме нет.
← →
ScableR (2003-01-05 07:25) [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
И ваще ты как искал?
Я всё это нашел в том поисковике!
← →
Separator (2003-01-05 07:55) [6]http://www.torry.net/email.htm
Может что-нибудь поможет
← →
Lola (2003-01-05 10:56) [7]
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;
← →
Lola (2003-01-05 11:03) [8]Забыла добавить, что это будет работать при условии, если на компьютере установлен MSOutlook
← →
Карелин Артем (2003-01-06 12:12) [9]В дельфине море стандартных компонентов. Почты хоть наобсылайся. На Torry.net их целый океан. В чем проблема?
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2003.02.24;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.013 c