Enviando email com MAPI - Delphi+Thunderbird

[geovanepc]

Estou usando este código para enviar emails pelo Thunderbird:

 

 

//-------------- Função para invocar o Thunderbird -----------------------------//

Declarar Uses: MAPI

 

function TForm2.SendMailMAPI(const Subject, Body, FileName, SenderName,
  SenderEMail, RecepientName, RecepientEMail: String): Integer;
var
  Message: TMapiMessage;
  lpSender, lpRecepient: TMapiRecipDesc;
  FileAttach: TMapiFileDesc;
  SM: TFNMapiSendMail;
  MAPIModule: HModule;
begin
  FillChar(message, SizeOf(message), 0);
  with message do
  begin
    if (Subject <> '') then
    begin
      lpszSubject := PAnsiChar(AnsiString(Subject)); // PAnsiChar(Subject);
    end;

    if (Body <> '') then
    begin
      lpszNoteText := PAnsiChar(AnsiString(Body));
    end;

    if (SenderEMail <> '') then
    begin
      lpSender.ulRecipClass := MAPI_ORIG;
      if (SenderName = '') then
      begin
        lpSender.lpszName := PAnsiChar(AnsiString(SenderEMail))
      end
      else
      begin
        lpSender.lpszName := PAnsiChar(AnsiString(SenderName))
      end;
      lpSender.lpszAddress := PAnsiChar(AnsiString('SMTP:' + SenderEMail));
      lpSender.ulReserved := 0;
      lpSender.ulEIDSize := 0;
      lpSender.lpEntryID := nil;
      lpOriginator := @lpSender;
    end;
    if (RecepientEMail <> '') then
    begin
      lpRecepient.ulRecipClass := MAPI_TO;
      if (RecepientName = '') then
      begin
        lpRecepient.lpszName := PAnsiChar(AnsiString(RecepientEMail))
      end
      else
      begin
        lpRecepient.lpszName := PAnsiChar(AnsiString(RecepientName))
      end;
      lpRecepient.lpszAddress :=
        PAnsiChar(AnsiString('SMTP:' + RecepientEMail));
      lpRecepient.ulReserved := 0;
      lpRecepient.ulEIDSize := 0;
      lpRecepient.lpEntryID := nil;
      nRecipCount := 1;
      lpRecips := @lpRecepient;
    end
    else
    begin
      lpRecips := nil
    end;
    if (FileName = '') then
    begin
      nFileCount := 0;
      lpFiles := nil;
    end
    else
    begin
      FillChar(FileAttach, SizeOf(FileAttach), 0);
      FileAttach.nPosition := Cardinal($FFFFFFFF);
      FileAttach.lpszPathName := PAnsiChar(AnsiString(FileName));
      nFileCount := 1;
      lpFiles := @FileAttach;
    end;
  end;

  MAPIModule := LoadLibrary(PChar(MAPIDLL));

  if MAPIModule = 0 then
  begin
    Result := -1
  end
  else
  begin
    try
      @SM := GetProcAddress(MAPIModule, 'MAPISendMail');
      if @SM <> nil then
      begin
        Result := SM(0, Application.Handle, message, MAPI_DIALOG or
          MAPI_LOGON_UI, 0);
      end
      else
      begin
        Result := 1
      end;

    finally
      FreeLibrary(MAPIModule);
    end;
  end;

  if Result <> 0 then
  begin
    MessageDlg('Error sending mail (' + IntToStr(Result) + ').', mtError,
      [mbOK], 0)
  end;
end;

//---------------------------------------------------------------------------------//

Para enviar:

procedure TForm2.Button2Click(Sender: TObject);
begin
  SendMailMAPI(Subject, Body, FileName, SenderName, SenderEMail, RecepientName, RecepientEMail);

end;
 

//---------------------------------------------------------------------------------//

Ele funciona perfeitamente, só tem um detalhe, como preciso enviar vários emails, um por vez, não quero ficar clicando no botão <ENVIAR EMAIL>.

Também não quero enviar com cópia.

Preciso que ele envie automaticamente.

Existe algum comando na API do Thunderbird que posso usar para fazer esse envio automaticamente, depois de invocar e preencher o formulário?

 

Desde já agradeço.

Um forte abraço à todos.

Editado Agosto 25, 2016 por geovanepc

[Jhonas]

Para enviar:

procedure TForm2.Button2Click(Sender: TObject);
begin
  SendMailMAPI(Subject, Body, FileName, SenderName, SenderEMail, RecepientName, RecepientEMail);

end;

------------------------------------------------------------------------------------

voce tem um arquivo com a lista de nomes e emails ?

para o envio, voce passa valores por parametros ?

[geovanepc]

Jhonas, obrigado pelo retorno.

Sim já tenho a lista de emails, quase tudo funciona perfeito, só estou querendo saber se existe algum command line, ou configuração, que possa utilizar, para evitar que o formulário de envio fique aparecendo, preciso que o Thunderbird envie direto, sem ter que estar clicando no botão <Enviar Agora>.

Se existe um modo Silent, sei lá, mas que não seja preciso pressionar o botão de enviar.

Obrigado.

Um forte abraço à todos.

[Jhonas]

geovanepc, fiz alguns testes aqui .... parece que o thunderbird funciona como o outlook

mesmo que voce crie uma stringlist ou array de strings, a cada envio vai aparecer a janela para voce clicar no botão <Enviar Agora>.

veja nesses links algumas possibilidades:

https://recalll.co/app/?q=delphi - how SendMailMAPI is adjusted to support multiple file attachments#

http://stackoverflow.com/questions/2683079/how-sendmailmapi-is-adjusted-to-support-multiple-file-attachments

https://www.experts-exchange.com/questions/22868654/Automaticly-open-Email-message-with-HTML-in-the-body.html

talvez voce tenha que mudar o foco e usar componentes indy para isso

http://www.devmedia.com.br/envio-de-e-mails-no-delphi-win32/1195

abraço

 

 

[geovanepc]

Eu estava usando com Indy, mas de uns dias pra cá, não consigo mais enviar para fora pelo meu servidor. Já retirei todas as proteções, mas não vai. Dentro do mesmo domínio ele consegue enviar, mas para fora, nada.

Daí utilizo com o Thynderbird, ele conecta direitinho e envia meus emails sem problemas.

Só que existe esse inconveniente, tenho que clicar no botão <Enviar>.

Achava que o Thunderbird tinha mais command lines.

Sei não, acho que meu Indy tá com algum cano entupido.

Vou olhar os links.

Obrigado Jhonas.

Um forte abraço à todos.

[Jhonas]

fazendo uma pesquisa, achei essa possibilidade .... voce pode usar o comando shellexecute

thunderbird.exe -compose "to='email@domain.com',subject='Some Subject',preselectid='id1',body='Message Body',attachment='File.txt'"

 

acho que esse pode resolver o seu problema

http://custombuttons.sourceforge.net/forum/viewtopic.php?f=2&t=839

 

Command line arguments - Thunderbird

http://kb.mozillazine.org/Command_line_arguments_(Thunderbird)

 

abraço

[geovanepc]

Jhonas, a opção com shellexecute também abre o formulário de conferência do email, antes de enviar.

Depois fica esperando clicar no dito botão <Enviar agora>.

A segunda referência:

Send Without Saving Button Code

CODE: SELECT ALL

this.SendNoSave= function(event) {
    var prefs = Components.classes['@mozilla.org/preferences-service;1']
                .getService(Components.interfaces.nsIPrefBranch);
    var prefstring = "mail.identity." + gCurrentIdentity.key + ".fcc";
    try {
        var send = prefs.getBoolPref(prefstring);
    } catch (e) {
        var send = prefs.getBoolPref("mail.identity.default.fcc");
    }
    if (send == false) {
        goDoCommand("cmd_sendButton");
    } else {
        prefs.setBoolPref(prefstring, false);
        if (gIOService && gIOService.offline) {
            SendMessageLater();
        } else {
            SendMessage();
        }
        prefs.setBoolPref(prefstring, true);
    }
};

Não entendi onde vai esse código. É tipo criar uma Hot Key. Procurei dentro do Thunderbird, mas não encontrei.

Mas a pergunta que não quer calar, "Onde vai esse código mesmo?" kkkk.

O terceiro link, faz referência ao 1º exemplo.

Obrigado.

Um forte abraço à todos os colegas.

[Jhonas]

desculpe ....  esquece o 2º não tem nada haver....

não achei nada para enviar automaticamente ....a não ser pelo indy

tente uma versão nova do indy

http://www.indyproject.org/sockets/download/files/indy10.en.aspx

abraço

[geovanepc]

Estou usando o Delphi XE7 com o Indy que já vem nele, acho que deve ser a versão 10.

Obrigado.