Outlook 2016

[Professor]

Pessoal!  Estou com problemas em executar o Outlook 2016 /365+ windows 10. Nas versões anteriores, o sistema abria a tela do Outlook(anexo) e anexava os arquivos (pdf, xml, etc).  Mas na nova versão do Office simplesmente não aparece nada.  
Já reconfigurei no painel de controle e-mail, outros gerenciador de email e nada.  

 

[Juliomar Marchetti]

Bom e qual o código está usando para fazer isso?

tem a ver com o ACBr?

[Professor]

24 minutos atrás, Juliomar Marchetti disse:

Bom e qual o código está usando para fazer isso?

tem a ver com o ACBr?

Exato! Utilizamos o ACBR:
 

[EMBarbosa]

Em 05/01/2021 at 13:16, Professor disse:

Pessoal!  Estou com problemas em executar o Outlook 2016 /365+ windows 10. Nas versões anteriores, o sistema abria a tela do Outlook(anexo) e anexava os arquivos (pdf, xml, etc).  Mas na nova versão do Office simplesmente não aparece nada.  
Já reconfigurei no painel de controle e-mail, outros gerenciador de email e nada.  

Como assim? Acho que não entendi a dúvida ou o código que você utiliza.

 

[Professor]

Em 19/01/2021 at 18:50, EMBarbosa disse:

Como assim? Acho que não entendi a dúvida ou o código que você utiliza.

 

Bom dia!
Acho que não expressei direito!
O meu problema é em relação ao Delphi + Outlook
Estou com problemas em executar o Outlook 2016 /365+ windows 10.  
Nas versões anteriores ,  o ERP conseguir abrir a tela do oultlook normalmente, porém, em alguns micros com Windows 10 e office 2013/2016/365, não consegue executar esse comando. Simplesmente não abre!

Já peguei vários códigos/delphi para abrir. Quando executo em minhas máquinas, abre normalmente, mas no micro de alguns clientes não funciona.
 

[EMBarbosa]

1 hora atrás, Professor disse:

Bom dia!
Acho que não expressei direito!
O meu problema é em relação ao Delphi + Outlook
Estou com problemas em executar o Outlook 2016 /365+ windows 10.  
Nas versões anteriores ,  o ERP conseguir abrir a tela do oultlook normalmente, porém, em alguns micros com Windows 10 e office 2013/2016/365, não consegue executar esse comando. Simplesmente não abre!

Já peguei vários códigos/delphi para abrir. Quando executo em minhas máquinas, abre normalmente, mas no micro de alguns clientes não funciona.
 

Que tipo de código você usa para abrir o Outlook?

[Professor]

30 minutos atrás, EMBarbosa disse:

Que tipo de código você usa para abrir o Outlook?

Esse código chega a abrir , mas não anexa .
    ShellExecute(GetDesktopWindow,'open',pchar(mensagem),nil,nil,sw_ShowNormal);

--------------------------
Esse abre, mas somente em algumas versões do Outlook , mas nas novas versões não. Não aparece absolutamente nada.

    Outlook := CreateOleObject('Outlook.Application');
//  end;

  Mail := Outlook.CreateItem(olMailItem);
  Mail.to := Destinatario;
  Mail.Subject := Assunto;
  Mail.Body := Mensagem;
  if Anexo <> EmptyStr then
    Mail.Attachments.Add('C:\LOGO.bmp');
  Mail.Display;
 

[EMBarbosa]

Então, não sei se você entende a diferença, mas começando pelo OLE:

1 hora atrás, Professor disse:

Esse abre, mas somente em algumas versões do Outlook , mas nas novas versões não. Não aparece absolutamente nada.

    Outlook := CreateOleObject('Outlook.Application');
//  end;

  Mail := Outlook.CreateItem(olMailItem);
  Mail.to := Destinatario;
  Mail.Subject := Assunto;
  Mail.Body := Mensagem;
  if Anexo <> EmptyStr then
    Mail.Attachments.Add('C:\LOGO.bmp');
  Mail.Display;

Aqui você está utilizando OLE, (nome antigo, agora é apenas automação),  para automatizar  o Office. É como se você tivesse acesso as dlls da aplicação pra lançar os comandos.

Isso permite muita coisa. Por outro lado, precisa ter certeza que os objetos OLE que você está utilizando são compatíveis com o que está instalado na máquina e sua aplicação consegue encontrar. Se você não estiver usando a versão correta, pode acontecer isso que está dizendo.

Além de atualizar seus objetos OLE, seria bom se seu código tratasse os erros levantados para verificar o que está acontecendo.

No código acima não dá pra ver tratamento de erros então não sei se você está fazendo. Caso não, você deve encontrar na internet material sobre o assunto.

1 hora atrás, Professor disse:

Esse código chega a abrir , mas não anexa .
    ShellExecute(GetDesktopWindow,'open',pchar(mensagem),nil,nil,sw_ShowNormal);

Nesse código, você está executando um comando do Shell. Está basicamente executando o outlook pelo "prompt".

Então precisa conhecer os parâmetros do Outlook por linha de comando nessas novas versões.

Geralmente basta entrar no prompt, na pasta do outlook e digitar "outlook /?". Mas caso contrário, tem que procurar a documentação.

Achei esse link aqui, espero que ajude:

https://support.microsoft.com/en-us/office/command-line-switches-for-microsoft-office-products-079164cd-4ef5-4178-b235-441737deb3a6#ID0EAABAAA=Outlook

[Professor]

Em 29/01/2021 at 14:54, EMBarbosa disse:

Então, não sei se você entende a diferença, mas começando pelo OLE:

Aqui você está utilizando OLE, (nome antigo, agora é apenas automação),  para automatizar  o Office. É como se você tivesse acesso as dlls da aplicação pra lançar os comandos.

Isso permite muita coisa. Por outro lado, precisa ter certeza que os objetos OLE que você está utilizando são compatíveis com o que está instalado na máquina e sua aplicação consegue encontrar. Se você não estiver usando a versão correta, pode acontecer isso que está dizendo.

Além de atualizar seus objetos OLE, seria bom se seu código tratasse os erros levantados para verificar o que está acontecendo.

No código acima não dá pra ver tratamento de erros então não sei se você está fazendo. Caso não, você deve encontrar na internet material sobre o assunto.

Nesse código, você está executando um comando do Shell. Está basicamente executando o outlook pelo "prompt".

Então precisa conhecer os parâmetros do Outlook por linha de comando nessas novas versões.

Geralmente basta entrar no prompt, na pasta do outlook e digitar "outlook /?". Mas caso contrário, tem que procurar a documentação.

Achei esse link aqui, espero que ajude:

https://support.microsoft.com/en-us/office/command-line-switches-for-microsoft-office-products-079164cd-4ef5-4178-b235-441737deb3a6#ID0EAABAAA=Outlook

Obrigado EMBarbosa!

Irei verificar  todas essas questões !

[Professor]

Em 01/02/2021 at 11:45, Professor disse:

Obrigado EMBarbosa!

Irei verificar  todas essas questões !

Consegui resolver por outro código.

  Outlook := TOutlookApplication.Create(nil);
              Outlook.ConnectKind := ckRunningOrNew;
              Outlook.Connect;
 

 

Obrigado pela ajuda!!