Fórum Anexando Automático no Outlook Express #369692

function  EnviarEmail(Endereco: string; Assunto: string = ´´; Texto: string = ´´;
  stlAnexo: TStringList = nil): Boolean;
type
  TAttachAccessArray = array [0..0] of TMapiFileDesc;
  PAttachAccessArray = ^TAttachAccessArray;
var
  MapiMessage: TMapiMessage;
  MError: Cardinal;
  Sender: TMapiRecipDesc;
  PRecip, Recipients: PMapiRecipDesc;
  Attachments: PAttachAccessArray;
  x: integer;
begin
  Result := False;

  if  Trim( Endereco ) = ´´ then
    begin
      ShowMessage(´Endereço de e-mail inválido.´);
      Exit;
    end
  ;

  MapiMessage.nRecipCount := 1;
  GetMem( Recipients, MapiMessage.nRecipCount * Sizeof(TMapiRecipDesc) );

  try
    with MapiMessage do
    begin
      { Assunto e Texto }
      ulReserved := 0;
      lpszSubject := PChar( Assunto );
      lpszNoteText := PChar( Texto );
      lpszMessageType := nil;
      lpszDateReceived := nil;
      lpszConversationID := nil;
      flFlags := 0;
      Sender.ulReserved := 0;
      Sender.ulRecipClass := MAPI_ORIG;
      Sender.lpszName := PChar( ´´ );
      Sender.lpszAddress := PChar( ´´ );
      Sender.ulEIDSize := 0;
      Sender.lpEntryID := nil;
      lpOriginator := @Sender;

      { Endereço }
      PRecip := Recipients;
      PRecip^.ulReserved := 0;
      PRecip^.ulRecipClass := MAPI_TO;
      PRecip^.lpszName := PChar( Endereco );
      PRecip^.lpszAddress := StrNew( PChar(´SMTP:´ + Endereco ) );
      PRecip^.ulEIDSize := 0;
      PRecip^.lpEntryID := nil;
      Inc( PRecip );
      lpRecips := Recipients;

      { Anexa os arquivos }
      { Cria o StringList vazio se for nil }
      if  stlAnexo = nil then
        begin
          stlAnexo := TStringList.Create;
          stlAnexo.Clear;
        end
      ;

      { Deleta do stlAnexo os arquivos que não existem }
      x := 0;
      while x <= (stlAnexo.Count - 1) do
      begin
        if  not FileExists( stlAnexo.Strings[x] ) then
            stlAnexo.Delete(x)
        else
            inc(x)
        ;
      end;

      { Anexa os arquivos }
      Attachments := nil;
      if  stlAnexo.Count > 0 then
        begin
          GetMem(Attachments, SizeOf(TMapiFileDesc) * stlAnexo.Count);
          for x := 0 to stlAnexo.Count - 1 do
          begin
            Attachments[x].ulReserved := 0;
            Attachments[x].flFlags := 0;
            Attachments[x].nPosition := ULONG($FFFFFFFF);
            Attachments[x].lpszPathName := StrNew( PChar(stlAnexo.Strings[x]) );
            Attachments[x].lpszFileName :=
            StrNew( PChar( ExtractFileName(stlAnexo.Strings[x]) ) );
            Attachments[x].lpFileType := nil;
          end;
        end
      ;
      nFileCount := stlAnexo.Count;
      lpFiles := @Attachments^;

    end;

    { Enviando o e-mail }
    MError :=
      MapiSendMail( 0, Application.Handle, MapiMessage,
                    MAPI_DIALOG or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0 );

    case MError of
      MAPI_E_USER_ABORT: ;
        { Mostra mensagem que o envio do e-mail foi abortado pelo usuário.
          Portanto, não será mostrado nada }
      SUCCESS_SUCCESS:
          Result := True;
      else
          MessageDlg( ´Ocorreu um erro inesperado!´#13´Código: ´ +
                      IntToStr(MError), mtError, [mbOk], 0);
    end;
  finally
    PRecip := Recipients;
    StrDispose( PRecip^.lpszAddress );
    Inc( PRecip );
    FreeMem( Recipients, MapiMessage.nRecipCount * Sizeof(TMapiRecipDesc) );

    for x := 0 to stlAnexo.Count - 1 do
    begin
      StrDispose( Attachments[x].lpszPathName );
      StrDispose( Attachments[x].lpszFileName );
    end;
  end;
end;