Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 2776 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado

Pessoa, boa tarde.

Gostaria de saber se é possível usar o ACBrMail para carregar as informações do e-mail (Assunto, Destinatário, Anexos, Corpo....) e, ao invés de mandar diretamente para o destino, abrir o Outlook com todas as informações carregadas no ACBrMail para que o usuário possa 'complementar' o conteúdo?

Meu sistema trabalha dessa forma desde 2003, porém o componente que uso não suporta o Outlook 2016. E como os clientes já estão acostumados assim gostaria de manter esta forma de envio e saber se o ACBrMail atende essa minha "frescura".

Dei uma pesquisada rápida nos tópicos aqui do ACBrTCP porém não encontrei nada parecido com minha dúvida.

Agradeço desde já.

 

Postado
4 horas atrás, Daniel Simoes disse:

Usando o ACBrMail, existe a possibilidade de Salvar o email em um arquivo .EML

  ACBrMail1.SaveToFile();


Mas não existe a possibilidade de ler um arquivo .EML

Daniel, estou fazendo da seguinte maneira:

  UTMenuPrincipal.ACBrMail.From := '[email protected]';
  UTMenuPrincipal.ACBrMail.FromName := 'Mauricio Blasque';
  UTMenuPrincipal.ACBrMail.Host := 'smtp.gmail.com'; // troque pelo seu servidor smtp
  UTMenuPrincipal.ACBrMail.Username := 'seu_usuario';
  UTMenuPrincipal.ACBrMail.Password := 'sua_senha';
  UTMenuPrincipal.ACBrMail.Port := '465'; // troque pela porta do seu servidor smtp
  UTMenuPrincipal.ACBrMail.AddAddress('[email protected]','Jeferson');
//  UTMenuPrincipal.ACBrMail.AddCC('um_email'); // opcional
//  UTMenuPrincipal.ACBrMail.AddReplyTo('um_email'); // opcional
//  UTMenuPrincipal.ACBrMail.AddBCC('um_email'); // opcional
  UTMenuPrincipal.ACBrMail.Subject := 'Teste de Envio'; // assunto
  UTMenuPrincipal.ACBrMail.IsHTML := True; // define que a mensagem é html
  // mensagem principal do e-mail. pode ser html ou texto puro
  UTMenuPrincipal.ACBrMail.Body.Text :=
  '<html>'+#13+#10+
  '<head>'+#13+#10+#13+#10+
  '  <meta http-equiv="content-type" content="text/html; charset=ISO-8859-1">'+#13+#10+
  '</head>'+#13+#10+
  '<body text="#000000" bgcolor="#FFFFFF">'+#13+#10+
  '<h1>Texto em HTML.</h1><br>'+#13+#10+
  '</body>'+#13+#10+
  '</html>'+#13+#10;
  UTMenuPrincipal.ACBrMail.AltBody.Text := 'Texto puro alternativo.';
  // UTMenuPrincipal.ACBrMail.AddAttachment('um_arquivo','um_nome_opcional');
  UTMenuPrincipal.ACBrMail.SaveToFile('c:\app\teste.eml');

E meu arquivo .eml está sendo gerado em branco, com 0kb.

Estou fazendo algo errado?

  • Fundadores
Postado

Pelo que li nos fontes do componente... isso não foi implementado da forma correta... ele monta o MimeMess em "SendMail".. portanto o SaveToFile somente funcionará, após o envio do email

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Postado
Em 06/04/2017 at 17:29, Daniel Simoes disse:

Pelo que li nos fontes do componente... isso não foi implementado da forma correta... ele monta o MimeMess em "SendMail".. portanto o SaveToFile somente funcionará, após o envio do email

Entendi, vou dar uma olhada pra ver se está simples fazer com que ele monte também no SaveToFile, se conseguir eu posto aqui.

  • 2 semanas depois ...
  • Este tópico foi criado há 2776 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.