Bonjour, j'utilise une fonction pour ouvrir outlook à partir de ma base de donnée mais la fenêtre qui s'ouvre reste minimisée.
J'aimerais que la fenêtre se maximise et soit au premier plan automatiquement.

Est-ce possible ?

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
 
Function EnvoiPdfMail(destinataire As String, Objet As String, pieceJointe As String, Corps As String)
 
    Set appOutLook = New Outlook.Application
    Set objmail = appOutLook.CreateItem(olMailItem)
 
    objmail.Display
 
    objmail.To = destinataire
    objmail.Subject = Objet
    objmail.Attachments.Add pieceJointe
    objmail.body = Corps
    'objmail.Send
 
    Set objmail = Nothing
    Set appOutLook = Nothing
 
 
End Function
Merci d'avance.