Отправка письма по 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 их целый океан. В чем проблема?

Отправка письма по E-mail у Найти похожие ветки