Witam wszystkich na forum
Jak chcesz MAPI to masz tu kod:
uses MAPI;
procedure WyslijList;
var
MAPIFileDesc : TMAPIFileDesc;
MAPIMessage : TMAPIMessage;
MAPIRecipDesc : TMapiRecipDesc;
hMAPIDLL : THandle;
pfnMAPISendMail : TFNMAPISendMail;
begin
hMAPIDLL := LoadLibrary('MAPI32.DLL');
if hMAPIDLL=0 then
begin
//tutaj kod obsługi błędu braku funkcji lub pliku
end;
//pobranie adresu funkcji
@pfnMAPISendMail := GetProcAddress(hMAPIDLL,'MAPISendMail');
if @pfnMAPISendMail=nil then
begin
FreeLibrary(hMAPIDLL);
end;
//przygotowanie opisu adresata
FillChar(MAPIRecipDesc,SizeOf(TMAPIRecipDesc),0);
with MAPIRecipDesc do
begin
ulRecipClass := MAPI_TO;
lpszName := 'Adresat';
lpszAddress := '[email protected]';
end;
//przygotowanie opisu załącznika
FillChar(MAPIFileDesc,SizeOf(TMAPIFileDesc),0);
with MAPIFileDesc do
begin
nPosition := Cardinal(-1);
lpszPathName := 'C:\Windows\Pulpit\list.doc';
lpszFileName := 'list.doc';
end;
//przygotowanie rekordu wiadomości
FillChar(MAPIMessage,SizeOf(TMAPIMessage),0);
with MAPIMessage do
begin
lpszSubject := 'Temat listu';
lpszNoteText := 'Treść listu';
nRecipCount := 1;
lpRecips := @MAPIRecipDesc;
nFileCount := 1;
lpFiles := @MAPIFileDesc;
end;
//wysłanie
if
pfnMAPISendMail(0,Handle{0 lub twoje HWND},MAPIMessage,MAPI_DIALOG,0)<>SUCCESS_SUCCESS
then
begin
FreeLibrary(hMAPIDLL);
//błąd z wysłaniem
end;
//zwolnienie zasobów
FreeLibrary(hMAPIDLL);
end;
Pozdrawiam Grupa Noribo Częstochowa [cya]
Witaj.
Niestety u mnie nie działa : błąd wysyłania! Co należy wpisać w miejsce: Handle{0 lub twoje HWND} bo 0 to nie jest chyba poprawny parametr; może dlatego nie działa...robiw