Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailemVyřešeno Odeslani mailu po provedeni naplanovane ulohy

Já bych si udělal svůj jednoúčelový program - s API funkcí MAPISendMail je to hračka. Asi takto (pro ti, co je zajímá, jak to udělat v Delphi):

function SendMail: boolean;
var 
  MapiMessage: TMapiMessage; MapiRecipDesc: TMapiRecipDesc; MapiFileDesc: TMapiFileDesc; 
  MapiFlags: cardinal; MAPIResult: cardinal;
begin
  	MapiRecipDesc.ulReserved	:= 0;
	MapiRecipDesc.ulRecipClass	:= MAPI_TO;
	MapiRecipDesc.lpszName		:= 'Jméno-příjemce';
	MapiRecipDesc.lpszAddress	:= 'jeho-e-mailová-adresa';
	MapiRecipDesc.ulEIDSize		:= 0;
	MapiRecipDesc.lpEntryID		:= nil;

	MapiFileDesc.ulReserved		:= 0;
	MapiFileDesc.flFlags		:= 0;
	MapiFileDesc.nPosition		:= 1;
	MapiFileDesc.lpszPathName	:= 'název-připojeného-souboru-s-cestou';
	MapiFileDesc.lpszFileName	:= nil;
	MapiFileDesc.lpFileType		:= nil;

	MapiMessage.ulReserved		:= 0;
	MapiMessage.lpszSubject		:= 'subjekt';
	MapiMessage.lpszNoteText	:= 'Text-majlu';
	MapiMessage.lpszMessageType	:= nil;
	MapiMessage.lpszDateReceived	:= nil;
	MapiMessage.lpszConversationID	:= nil;
	MapiMessage.flFlags		:= 0;
	MapiMessage.lpOriginator	:= nil;
	MapiMessage.nRecipCount		:= 1;
	MapiMessage.nFileCount          := počet-přiložených-souborů;
	MapiMessage.lpFiles             := @MapiFileDesc;

	MapiFlags			:= MAPI_LOGON_UI or MAPI_NEW_SESSION;

	MAPIResult			:= MAPISendMail (0, Application.Handle, MapiMessage, MapiFlags, 0);
	Result				:= MapiResult = SUCCESS_SUCCESS;
end;

Reakce na odpověď

1 Zadajte svou přezdívku:
2 Napište svou odpověď:
3 Pokud chcete dostat ban, zadejte libovolný text:

Zpět do poradny