Éléments graphiques modifiés avec MS Outlook 11.0 Bibliothèque d'objets + Outlook 2016 Ver 1702

Question

J'ai un logiciel propriétaire avec propre IDE et client Windows. Dans l'EDI, j'utilise le Microsoft Outlook 11.0 Object Library pour envoyer des pièces jointes par courrier. Mais depuis Outlook 2016Version 1702, les éléments GUI To, Cc et sujet sont décalés. Le bouton Envoyer est également inaccessible. Dans Version 1609 je n'ai pas eu le problème. Quelqu'un connaît-il ce problème et comment le résoudre? Y a-t-il peut-être une version plus récente de la bibliothèque? Ou y a-t-il un paramètre dans Outlook qui résout le problème? Merci d'avance.

Answer 1

J'ai aussi rencontré ce problème et peut confirmer qu'elle a commencé à se produire au bureau 2016 mise à jour 1701. Il ne semble pas être lié à la bibliothèque d'objets que j'utilise la bibliothèque d'objets 16,0, et non 11,0 .

J'ai réussi à affiner le problème de l'interface graphique (comme illustré dans l'image que vous avez posté) pour déposer des pièces jointes. Pour résoudre ce problème, affiche d'abord la fenêtre de messagerie, puis attache les fichiers. Voici un exemple de l'approche que je pris:

Dim olApp As New Outlook.Application 
Dim exampleMail As Outlook.MailItem 
Dim exampleFiles As Outlook.Attachments 

Set exampleMail = olApp.CreateItem(olMailItem) 
Set exampleFiles = exampleMail.Attachments 

With exampleMail 
    .To = "example@email.com" 
    .Subject = "Example Subject" 
    .BodyFormat = olFormatHTML 
    .HTMLBody = "Hello, This is an example." 
    .Display 
End With 

Filename = "C:\SomeFolder\someFile.xlsx" 
exampleFiles.Add Filename 

Si vous choisissez à la fin bind:

Dim olApp As Object 
Dim exampleMail As Object 
Dim exampleFiles As Object 

Set olApp = CreateObject("Outlook.Application") 
Set exampleMail = olApp.CreateItem(0) 
Set exampleFiles = exampleMail.Attachments