Abrir Cliente de Email Padrao

Question

Ol�!Gostaria de saber se existe alguma DLL ou API que carregue o Cliente de Email Padrao e que nos permita formatar a mensagem (informando assunto, corpo da mensagem e , o mais importante, permitindo ...

Fer_nanda · Answer

amigo a fun��o s� permite anexar um arquivo

function EnviarEmailPadrao(const De, Para, Assunto, Texto,
         Arquivo: string; Confirma: Boolean): Integer;
var
  Msg: TMapiMessage;
  lpSender, lpRecepient: TMapiRecipDesc;
  FileAttach: TMapiFileDesc;
  SM: TFNMapiSendMail;
  MAPIModule: HModule;
  Flags: Cardinal;
begin
  // cria propriedades da mensagem
  FillChar(Msg, SizeOf(Msg), 0);
  with Msg do
    begin
      if (Assunto <> ��) then
        lpszSubject := PChar(Assunto);

      if (Texto <> ��) then
        lpszNoteText := PChar(Texto);

      // remetente
      if (De <> ��) then
        begin
          lpSender.ulRecipClass := MAPI_ORIG;
          lpSender.lpszName := PChar(De);
          lpSender.lpszAddress := PChar(De);
          lpSender.ulReserved := 0;
          lpSender.ulEIDSize := 0;
          lpSender.lpEntryID := nil;
          lpOriginator := @lpSender;
        end;

      // destinat�rio
      if (Para <> ��) then
        begin
          lpRecepient.ulRecipClass := MAPI_TO;
          lpRecepient.lpszName := PChar(Para);
          lpRecepient.lpszAddress := PChar(Para);
          lpRecepient.ulReserved := 0;
          lpRecepient.ulEIDSize := 0;
          lpRecepient.lpEntryID := nil;
          nRecipCount := 1;
          lpRecips := @lpRecepient;
        end
      else
        lpRecips := nil;

      // arquivo anexo
      if (Arquivo = ��) then
        begin
          nFileCount := 0;
          lpFiles := nil;
        end
      else
        begin
          FillChar(FileAttach, SizeOf(FileAttach), 0);
          FileAttach.nPosition := Cardinal($FFFFFFFF);
          FileAttach.lpszPathName := PChar(Arquivo);
          nFileCount := 1;
          lpFiles := @FileAttach;
        end;
    end;

  // carrega dll e o m�todo para envio do email
  MAPIModule := LoadLibrary(PChar(MAPIDLL));

  if MAPIModule = 0 then
    Result := -1
  else
    try
      if Confirma then
        Flags := MAPI_DIALOG or MAPI_LOGON_UI
      else
        Flags := 0;

      @SM := GetProcAddress(MAPIModule, �MAPISendMail�);

      if @SM <> nil then
        Result := SM(0, Application.Handle, Msg, Flags, 0)
      else
        Result := 1;
    finally
      FreeLibrary(MAPIModule);
    end;
end;

Espero ter ajudado

Dwng · Answer

Primeiramente muito obrigado!Quanto a limita��o de 1 arquivo atachado: era sua necessidade ou voc� encontrou problemas?Valeu Fernanda!DWNG....

Fer_nanda · Answer

Por dificuldade...n�o consigo fazer com q a rotina trate mais q um arquivo para anexar...

if (Arquivo = ��) then 
        begin 
          nFileCount := 0; 
          lpFiles := nil; 
        end 
      else 
        begin 
          FillChar(FileAttach, SizeOf(FileAttach), 0); 
          FileAttach.nPosition := Cardinal($FFFFFFFF); 
          FileAttach.lpszPathName := PChar(Arquivo); 
          nFileCount := 1; 
          lpFiles := @FileAttach; 
        end;

Eu tentei fazer uma fun��o separada s� pra isso... mas n�o deu certo, na �poca uma das dicas q me passaram era pra fazer uma fun��o recurssiva s� para atachar os arquivos.. mas n�o consegui alterar a fun��o.

Caso vc consiga mealguma coisa, ou algu�m tiver alguma dica. Agrade�o.

F�rum Abrir Cliente de Email Padrao #232751