Отправка письма с помощью SendMail

← →
seregin2 (2004-07-22 09:41) [0]

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

← →
REA © (2004-07-22 09:54) [1]

код давай

← →
seregin2 (2004-07-22 10:18) [2]

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;

Отправка письма с помощью SendMail Найти похожие ветки