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

Вниз

Отправить письмо незаметно от пользователя   Найти похожие ветки 

 
Руслана   (2005-02-25 00:19) [0]

В здешней FAQ есть такой вот пример:
Вообщем ситуация: нужно отправить созданное моей программой письмо по е-майлу независимо от юзера т.е. чтобы он не подозревал об отправке. Вот бы это на АПИ с примером!
unit Email;
interface
uses Windows, SusUtils, Classes;

function SendEmail(const RecipName, RecipAddress, Subject, Attachment: string): Boolean;

function IsOnline: Boolean;
implementation
uses Mapi;

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;

function IsOnline: Boolean;
var
 RASConn: TRASConn;
 dwSize,dwCount: DWORD;
begin
 RASConns.dwSize:= SizeOf(TRASConn);
 dwSize:= SizeOf(RASConns);
 Res:=RASEnumConnectionsA(@RASConns, @dwSize, @dwCount);
 Result:= (Res = 0) and (dwCount > 0);
end;

end.

При попытке скомпилировать как есть вылазят ошибки. В частности в функции IsOnline. Но это неважно, в принципе.

Объясните дуре как вызвать правильно SendEmail ??? Не могу понять.
Второе - а что никакие SMTP не нужны?

В идеале надо незаметно отправить файл.


 
Palladin ©   (2005-02-25 00:26) [1]


> Отправить письмо незаметно от пользователя

Не стоит...



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

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

Наверх




Память: 0.47 MB
Время: 0.039 c
4-1106902281
wizi
2005-01-28 11:51
2005.03.13
Скриншот с рабочего стола.


3-1108031891
Zhenja
2005-02-10 13:38
2005.03.13
QReport. Печать. Помогите пожайлуста.


4-1102996884
school
2004-12-14 07:01
2005.03.13
диологи открытия-закрытия файлов


4-1107193510
Artin
2005-01-31 20:45
2005.03.13
Как отключить Drag&Drop? Читал Windows SDK нащёл функцию ...


14-1109049207
Kerk
2005-02-22 08:13
2005.03.13
Расшифруйте плиз.. чего они хотят