Enviando e-mails via Windows Live Mail

137 views
Skip to first unread message

Samuel N. Junior

unread,
Dec 6, 2013, 3:39:48 PM12/6/13
to DUG-RS - Delphi Users Group Rio Grande do Sul
Pessoal,

A partir do Delphi XE eu preciso preparar um e-mail para ser enviado pelo Windows Live Mail.

Eu quero montar o e-mail, enviá-lo via OLE para o WLM, abrir o WLM e deixar que o usuário faça quaisquer mudanças que julgar necessárias e depois clique em Enviar no WLM para mandar a mensagem.

Eu fazia isso usando o RzMessage do Raize que funcionava muito bem mas, de uns tempos para cá, em alguns clientes o WLM está ficando por baixo da tela da minha aplicação e o cliente não consegue selecionar a tela do WLM (minha aplicação fica "congelada" em cima dele).

O estranho é que isso está ocorrendo em +/- 10% dos clientes e, o que é pior, a rotina funcionava sem problemas há vários anos e "do nada" começou a ocorrer esse problema.

Encontrei esse código que parece fazer o que eu quero, só que para o Outlook:
procedure SendOutlookMail;
const
  olMailItem = 0;
var
  Outlook: OleVariant;
  vMailItem: variant;
begin
  try
    Outlook := GetActiveOleObject('Outlook.Application');
  except
    Outlook := CreateOleObject('Outlook.Application');
  end;
  vMailItem := Outlook.CreateItem(olMailItem);
  vMailItem.Recipients.Add('du...@hotmail.com');
  vMailItem.Subject := 'test email';
  vMailItem.Body := 'This is a test';
  vMailItem.Attachments.Add('C:\temp\sample.txt');
  vMailItem.Send;

  VarClear(Outlook);
end;

Alguém tem algo para o Windows Live Mail ou então abrindo o programa de envio de mensagens "padrão" do Windows?

Obrigado.

Samuel

Dirceu Portela

unread,
Dec 6, 2013, 6:11:36 PM12/6/13
to dug...@googlegroups.com
Samuel
 
Fiquei surpreso que tenha conseguido consumir o hotmail. Até onde eu sei - ou sabia - não é permitido uso do serviço SMTP. Tanto que não consegui configurar a conta no OutLook Express.

[ ]'s
Dirceu Portéla
Especialista em Desenvolvimento de Software
www.topfaces.com.br
51 3276-1871

Nenhum vírus encontrado nessa mensagem.
Verificado por AVG - www.avgbrasil.com.br
Versão: 2014.0.4259 / Banco de dados de vírus: 3658/6897 - Data de Lançamento: 12/06/13

--
--
Você recebeu esta mensagem porque está inscrito no "DUG-RS -
Delphi Users Group Rio Grande do Sul" em Grupos do Google.
Acesse o nosso BLOG em http://www.dug-rs.org e contribua com a comunidade Delphi do Rio Grande do Sul
Para postar neste grupo, envie um e-mail para dug...@googlegroups.com
Para cancelar a sua inscrição neste grupo, envie um e-mail para
dug-rs-un...@googlegroups.com
Para ver mais opções, visite este grupo em
http://groups.google.com.br/group/dug-rs?hl=pt-BR
 
Twitter: @dugrs
http://www.facebook.com/groups/dugrs/
http://www.Vimeo.com/dugrs
 
---
You received this message because you are subscribed to the Google Groups "DUG-RS - Delphi Users Group Rio Grande do Sul" group.
To unsubscribe from this group and stop receiving emails from it, send an email to dug-rs+un...@googlegroups.com.
For more options, visit https://groups.google.com/groups/opt_out.

Samuel N. Junior

unread,
Dec 7, 2013, 4:50:37 AM12/7/13
to dug...@googlegroups.com
Bom dia Dirceu,

Não estou me referindo ao Hotmail mas sim ao Windows Live Mail que vem com o Windows 7 e que substituiu o Outlook Express.

Porém, uma vez eu consegui configurar o servidor SMTP do Windows Live Hotmail para um cliente usando a configuração abaixo:

Para o POP:

Talvez essa configuração funcione com você (não sei se ainda funciona depois que eles lançaram o Outlook.com).

[ ]s

Samuel
Reply all
Reply to author
Forward
0 new messages