XL 2013 [Résolu] Impossible de fermer la fenêtre d'Outlook

[Lone-wolf]

Bonjour à toutes et à tous

Je viens de remprendre un ancien projet (envois en masse avec Outlook). En activant la macro, les messages se font sans problème, mais Outlook reste ouvert (17 fenêtres en tout), même en mettant olapp.Quit; et suis obligé de passer par le gestionnaire des tâches pour les fermer.

Pourriez-vous m'aider à résoudre ce probleme?

 

[herve62]

Bonjour , Slt le "Loup"
Pas évident pour aider vu que tes DLL Office sont en 15.0 ( 2013) et que sous 2010 j'ai que 14.0 donc même plus possible de voir
tes Sub en modules (Erreur chargement DLL) . J'ai usé de mes modestes connaissances pour piéger la bête ... mais coriace : rien
(coché Word et Outlook 14.0) en ouvrant ici puis modifiant au début remplacé avec
Dim OlApp As Object
Dim OlItem As Object
Dim WrdApp As Object
Dim WrdItem As Object
Set OlApp = CreateObject("Outlook.Application")
Set OlItem = OlApp.CreateItem(0)
Set WrdApp = CreateObject("Word.Application")
Set WrdItem = WrdApp.CreateItem(0)
et enregistrant chez moi !!! Aie , fichier tout cassé !! Y dit trop endommagé ??
Donc si je pige ... Si on a pas mini 2013 ... c'est foutu ! A moins que tu aies l'astuce ??

 

[Lone-wolf]

Re

J'ai fini par trouver. Il fallait ajouter ceci

 With Msg
  .To = EnvoisA
  .BCC = Mid(AdressBcc, 1, Len(AdressBcc) - 1)
  .Subject = Objet
  .Body = Corp
  .Display
  .Attachments.Add Chemin & NomPdf
  .Attachments.Add Rep & NomDoc
  End With
  Application.DisplayAlerts = False
  Msg.Close False
  Msg.Delete
  OlApp.Quit
  Set OlApp = Nothing
  Set Msg = Nothing

EDIT: bonjour Hervé