XL 2019 Modification Macro Mail Outlook

C

Compte Supprimé 979

Guest

• 5 Juin 2021

• #2

Bonjour Gothc

Petite question, pourquoi vouloir fermer Outlook après envoi ?

Sinon la seule solution à ma connaissance est de killer le processus Outlook, pas très clean...

@+

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 5 Juin 2021

• #3

re
@gothc
je vois pas trop le besoins de checker une éventuelle instance Outlook déjà pressente dans les taches mais bon
comme tu te sert de getobject normalement oOl est un object application
donc oOl.quit si oOL il n'est pas nothing ,devrait fermer cette instance

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 5 Juin 2021

• #4

Salut @patricktoulon

oOL ne récupère que le flag d'une instance Outlook 😉

Donc oOL.Quit ne fonctionne pas 😜

@?

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 5 Juin 2021

• #5

re
@BrunoM45
a bon en VBS dans le temps , j'avais l'object comme pour excel d'ailleurs (me semble t il )
je vais faire des tests

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 5 Juin 2021

• #6

J'avais essayé et de mon côté ça ne fonctionne pas apparemment 😉

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 5 Juin 2021

• #7

re
sisi ça fonctionne toujours
il faut juste une gestion d'erreur au cas ou il n'y a pas d'instance outlook sinon ca plante direct a getobject
testé à l'instant meme

VB:

Sub ferme_OutlookOuvert()
  Dim oOL As Object
  On Error Resume Next' au cas ou il n'y a pas d'instance  comme getobject n'a pas de gestion d'erreur interne 
  Set oOL = GetObject(, "Outlook.Application")
  If Not oOL Is Nothing Then oOL.Quit
End Sub

ça m’étonnait aussi 😉

 

Vote positif 0 Vote négatif