Discussion :

[NicoLebelge]

Bonjour à tous,

Je bloque depuis 2 jours sur une macro afin d'envoyer automatiquement un mail depuis Excel. En effet, je souhaite tester si Outlook est déjà ouvert sur le PC avant l'envoi du mail et s'il ne l'est pas alors l'ouvrir et le mettre à l'arrière plan. Pour couvrir et minimizer j'utilise la fonction Shell (Chemin, vbhide) - vous trouverez le code un peu plus bas.

Lorsque j'exécute cette macro en mode pas à pas, je n'ai aucun problème. Lorsque je l'exécute en mode "normal", Outlook s'ouvre puis reste en premier plan. Après plusieurs recherches, j'ai trouvé une macro qui est supposée réduire Outlook, mais la encore rien ne se passe. Je ne comprends pas d'ou vient le problème et j'espère que vous pourrez m'aider.

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
'Macro de test de test d'ouverture d'outlook
Sub TestOuvertureOutlook()
Set OLk_Appli = CreateObject("Outlook.Application")
Dim NomClasseur As String
NomClasseur = ThisWorkbook.Name
 
  If OLk_Appli.Explorers.Count > 0 Then
    'Outlook est ouvert
 
  Else
    'Outlook est fermé
    OLk_OK = Shell("C:\Program Files (x86)\Microsoft Office\root\Office16\OUTLOOK.EXE", vbHide)
 
  End If
 
Call MiniOutlook
'Windows(NomClasseur).Activate
End Sub
 
'Macro de réduction d'outlook
Sub MiniOutlook()
  On Error Resume Next
 
 
  With GetObject(, "Outlook.Application")
    .ActiveWindow.WindowState = 1   ' olMinimized = 1
  End With
End Sub

Merci bien

[Invité]

Bonjour,
quel drôle d'idée!

https://www.developpez.net/forums/d1...t/#post7968025

[NicoLebelge]

Slaut Dysorthographie !

Merci pour ta réponse mais lapartie édition du mail fonctionne chez moi (pas présente dans la macro).

Par contre, au moment ou je lance la macro et qu'Outlook est fermé, après son ouverture, il reste au premier plan. Or je souhaiterai que l'Excel reste visible par l'utilisateur.

Il semble que dans la fonction Shell (chemin, vbHide), le vbHide ne fonctionne pas (sauf en pas à pas). Je ne sais pas quoi faire.

[Invité]

nom dans ma fonction!

[NicoLebelge]

dysorthographie : "nom dans ma fonction! "

La tu m'as perdu, je ne suis plus..

[Invité]

si dans ton code te appel disply tu reste affiché, mais avec send tue referme la session!

bien sur j'ouvre une deuxième session mais je la referme au send!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
'.Display 'Can be .Send but prompts for user intervention before sending without 3rd party software like ClickYes
    .Send

[joe.levrai]

Shell pour lancer outlook ? alors que tu utilises du createobject ? Moi aussi ça me surprend

voici ma fonction perso pour chopper l'instance outlook si elle existe, ou à défaut l'ouvrir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub InitialisationOutlook()
    On Error Resume Next: Set OlApp = GetObject(, "Outlook.Application"): On Error GoTo 0
    If OlApp Is Nothing Then Set OlApp = CreateObject("Outlook.Application")
    Set OlNmSpace = OlApp.GetNamespace("MAPI")
End Sub

OlApp et OlNmSpace sont déclaré en public (As Object)

pour ne pas voir l'instance Outlook, il suffit de rendre l'application non visible (OlApp.Visible = False)

[Marc-L]

Bonjour,

ou encore d'utiliser la méthode VBA   ActivateMicrosoftApp   entre autres …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[NicoLebelge]

BOnjour JOE,

J'ai essayé ta macro en déclarant OlApp et OlNmSpace As Object mais l'application outlook refuse de se lancer.. je ne comprends pas pourquoi..

[unparia]

Bonjour
Pas totalement certain de la qualité de ma mémoire, mais je crois me rappeler que sur un OS avec UAC, l'application appelée en automation doit l'être dans le même contexte de sécurité que celui de l'application appelante.
Ce qui veut dire que si l'application appelante est par exemple exécutée en tant qu'administrateur, l'instance de l'application appelée doit elle aussi être exécutée en tant qu'administrateur.
A vérifier ...

[Invité]

Le problème vient de la configuration de Outlook n'autorise pas l'exécution par une application tiers!

[unparia]

Bonjour Robert
Outlook se prête bien à l'automation. Mais pas dans toutes les circonstances ... (et c'est peut-être, sinon sans doute sur le plan de la sécurité, assez heureux).
Si des freins sont mis, la raison de tels freins n'est pas sans sens.

[Invité]

Bonjour unparia,
Oui je suis d'accord, mais faut pas perdre d vue que Outlook verrouille sa prise en main par une application tiers par défaut à l'installation!