Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.11.11;
Скачать: CL | DM;

Вниз

Люди помогите плиз с MAPI !!!!!!!!!!   Найти похожие ветки 

 
X-shadow ©   (2002-10-31 18:16) [0]


Помогите пожалуйста написать письмо из Mapi.
Просто как заполнить поля и все такое


 
X-shadow ©   (2002-10-31 18:23) [1]

Вот это помогите обработать

function SendMail(const From, Dest, Subject, Text, FileName: PChar):
Integer;
var
Message: TMapiMessage;
Recipient, Sender: TMapiRecipDesc;
File_Attachment: TMapiFileDesc;

function MakeMessage: TMapiMessage;
begin
FillChar(Sender, SizeOf(Sender), 0);
Sender.ulRecipClass := MAPI_ORIG;
Sender.lpszAddress := From;

FillChar(Recipient, SizeOf(Recipient), 0);
Recipient.ulRecipClass := MAPI_TO;
Recipient.lpszAddress := Dest;

FillChar(File_Attachment, SizeOf(File_Attachment), 0);
File_Attachment.nPosition := ULONG(-1);
File_Attachment.lpszPathName := FileName;

FillChar(Result, SizeOf(Result), 0);
with Message do begin
lpszSubject := Subject;
lpszNoteText := Text;
lpOriginator := @Sender;
nRecipCount := 1;
lpRecips := @Recipient;
nFileCount := 1;
lpFiles := @File_Attachment;
end;
end;

var
SM: TFNMapiSendMail;
MAPIModule: HModule;
begin
MAPIModule := LoadLibrary(PChar(MAPIDLL));
if MAPIModule = 0 then
Result := -1
else
try
@SM := GetProcAddress(MAPIModule, "MAPISendMail");
if @SM <> nil then begin
MakeMessage;
Result := SM(0, 0, Message, 0, 0);
end else Result := 1;
finally
FreeLibrary(MAPIModule);
end;
end;



Страницы: 1 вся ветка

Текущий архив: 2002.11.11;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.019 c
3-33885
Alexxx9801
2002-10-21 15:45
2002.11.11
TClientDataSet и RefreshRecord


1-34023
[NEW]Splinter
2002-11-02 14:26
2002.11.11
Не могу прочитать из EXE-шника...


1-33938
skiph
2002-10-30 09:54
2002.11.11
Установка фокуса


4-34296
ДмитрийК.
2002-09-25 18:31
2002.11.11
Вывод на печать чертежей, построенныхв другой программе


4-34301
Beginer1
2002-10-01 18:46
2002.11.11
КАК СГЕНЕРИРОВАТЬ