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 :
Merci d'avance.
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
Partager