Delphi 7 - Envio de email diretamente pelo Outlook - Só funciona com o outlook fechado

[Francielle Herling de Oliveira da Silva]

Boa tarde.

No meu aplicativo, temos a opção de envio de email para clientes, com anexos dos nossos relatórios.

Atualmente, incluimos a função do envio de email utilizando o aplicativo do outlook. Acontece que, em algumas máquinas, só é possivel enviar email com o aplicativo do outlook fechado. Em outras máquinas, o processo funciona normalmente mesmo com o aplicativo do outlook aberto.

Segue o código que utilizo para ativar o outlook: 

try
      Outlook := GetActiveOleObject('Outlook.Application');
    except
      Outlook := CreateOleObject('Outlook.Application');
    end;
     vMailItem := Outlook.CreateItem(olMailItem);

try
	Outlook := GetActiveOleObject('Outlook.Application');
except
	Outlook := CreateOleObject('Outlook.Application');
end;
vMailItem := Outlook.CreateItem(olMailItem);

O erro sempre acontece nessa linha:

Outlook := GetActiveOleObject('Outlook.Application');

A mensagem de erro que o Delphi me apresenta é: "Falha na execução do Servidor".

 

Como eu poderia fazer para resolver esse problema. Visto que o mesmo .exe usado em outra máquina, não apresenta esse problema.

 

Desde já agradeço a atenção.

 

 

[Juliomar Marchetti]

Mas porque interagir com um objeto ole se por exemplo tu tem o ACBrMail para envio?

[Francielle Herling de Oliveira da Silva]

também temos essa opção disponivel em nosso aplicativo, porém o cliente quer que os emails enviados fiquem registrados nos Itens Enviados do Outlook, o que não acontece quando enviamos o email pelo ACBRMail

[Juliomar Marchetti]

5 minutos atrás, Francielle Herling de Oliveira da Silva disse:

também temos essa opção disponivel em nosso aplicativo, porém o cliente quer que os emails enviados fiquem registrados nos Itens Enviados do Outlook, o que não acontece quando enviamos o email pelo ACBRMail

Mas dai ele não deveria de usar o sistema.

deveria de usar o gerenciador dele de e-mail e assim vai ficar lá

completando a questão do seu problema, isso vai ocorrer sempre e não vai ficar 100%

pois na maioria tem windows ou office pirata, sem as devidas atualizações e que vai em um rodar e outro não.

sugiro uma abordagem diferente