| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Отправка электронной почты [D6, Win2k, WinXP]
Максим © (2005-10-21 12:55:00)Помогите!!! Как программно осуществить отправку электронной почты (The Bat), с вложение.
wp2 (2005-10-22 23:50:00) [1]Ага, а попробуйте без mapi32.dll, а только с помощью Winsock.dll
clickmaker (2005-10-21 13:03:00) [2]Вот на Си. На паскаль сам переводи
HINSTANCE HInst = LoadLibrary("mapi32.dll");
LPMAPISENDMAIL MapiSendMail = (LPMAPISENDMAIL)GetProcAddress(HInst, "MAPISendMail");
MapiMessage MapiMessage;
MapiRecipDesc SenderDesc;
MapiRecipDesc RecipDesc;
MapiFileDesc Files;
ULONG HResult;
memset(&SenderDesc,'\0',sizeof(SenderDesc));
SenderDesc.ulRecipClass = MAPI_ORIG;
RecipDesc.ulReserved = 0;
RecipDesc.ulRecipClass = MAPI_TO;
RecipDesc.lpszName ="Test";
RecipDesc.lpszAddress ="SMTP:a@b.c";
RecipDesc.ulEIDSize = 0;
RecipDesc.lpEntryID = 0;
Files.ulReserved = 0;
Files.flFlags = 0;
Files.nPosition = -1;
Files.lpszPathName = "c:\\BOOT.INI";
Files.lpszFileName = "BOOT.INI";
Files.lpFileType = NULL;
MapiMessage.ulReserved = 0;
MapiMessage.lpszSubject = "Subject";
MapiMessage.lpszNoteText = "This text will \r\nappear";
MapiMessage.lpszMessageType = NULL;
MapiMessage.lpszDateReceived = NULL;
MapiMessage.lpszConversationID = NULL;
MapiMessage.flFlags = 0;
MapiMessage.lpOriginator = &SenderDesc;
MapiMessage.nRecipCount = 1;
MapiMessage.lpRecips = &RecipDesc;
MapiMessage.nFileCount = 1;
MapiMessage.lpFiles = &Files;
HResult =(*MapiSendMail)(0, (ULONG)Application->Handle, &MapiMessage,
MAPI_DIALOG | MAPI_LOGON_UI | MAPI_NEW_SESSION, 0);
FreeLibrary(HInst);
Максим (2005-10-21 12:59:00) [3]ОК! Спасибо! можно пример, желательно рабочий
clickmaker (2005-10-21 12:58:00) [4]MAPISendMail
| |
