| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Отправка письма с помощью SendMail [D3, D5, D7, Win95/98, Win2k]

seregin2 ©   (2004-07-22 09:41:00) 

Всем привет! Сегодня в рассылке был пример отправки письма посредством SendMail. Я похожий код мучил недели 2 назад - так и не разобрался как отправить во вложении НЕСКОЛЬКО файлов, и как отправить письмо сразу НЕСКОЛЬКИМ получателям?
на самом деле, функции передается не адрес получателя, а массив адресов, но корректно описать его я не смог.

---

seregin2   (2004-07-22 10:18:00) [1]

function SendEmail(const RecipName, RecipAddress, Subject, Attachment: string): Boolean;
var  MapiMessage: TMapiMessage;  
 MapiFileDesc: TMapiFileDesc;  
 MapiRecipDesc: TMapiRecipDesc;  
 i: integer;  
 s: string;
begin  
 with MapiRecipDesc do begin
   ulRecerved:= 0;
   ulRecipClass:= MAPI_TO;
   lpszName:= PChar(RecipName);
   lpszAddress:= PChar(RecipAddress);
   ulEIDSize:= 0;
   lpEntryID:= nil;
 end;
 with MapiFileDesc do begin      
   ulReserved:= 0;      
   flFlags:= 0;      
   nPosition:= 0;      
   lpszPathName:= PChar(Attachment);      
   lpszFileName:= nil;      
   lpFileType:= nil;  
 end;  
 with MapiMessage do begin      
   ulReserved := 0;      
   lpszSubject := nil;      
   lpszNoteText := PChar(Subject);      
   lpszMessageType := nil;      
   lpszDateReceived := nil;      
   lpszConversationID := nil;      
   flFlags := 0;      
   lpOriginator := nil;      
   nRecipCount := 1;      
   lpRecips := @MapiRecipDesc;      
   if length(Attachment) > 0 then begin          
     nFileCount:= 1;          
     lpFiles := @MapiFileDesc;      
   end else begin          
     nFileCount:= 0;          
     lpFiles:= nil;      
   end;    
 end;  
 Result:= MapiSendMail(0, 0, MapiMessage, MAPI_DIALOG or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0) = SUCCESS_SUCCESS;
end;

---

REA   (2004-07-22 09:54:00) [2]

код давай

---

Наверх