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.