Buscar por:

Como abrir a tela de email do windows e adicionar texto à ela

Código

Este código faz abrir a tela do windows que envia email.

Coloque um TRichEdit.

uses

  Windows, Classes, Graphics, Forms, Controls, Menus,

  Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls, ImgList,  Actns, ActnList, ToolWin;

// coloque este código em um tbutton

var

  MapiMessage: TMapiMessage;

  MError: Cardinal;

begin

  with MapiMessage do

  begin

    ulReserved := 0;

    lpszSubject := nil;

    lpszNoteText := PChar(RichEdit1.Lines.Text);

    lpszMessageType := nil;

    lpszDateReceived := nil;

    lpszConversationID := nil;

    flFlags := 0;

    lpOriginator := nil;

    nRecipCount := 0;

    lpRecips := nil;

    nFileCount := 0;

    lpFiles := nil;

  end;

  MError := MapiSendMail(0, Application.Handle, MapiMessage,

    MAPI_DIALOG or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0);

  if MError <> 0 then MessageDlg(SSendError, mtError, [mbOK], 0);

end;

// coloque este código em um tbutton