Discussion :

[Cahlagan]

Bonjour,

J'ai inséré, dans un fichier Excel, une macro permettant d'ouvrir Outlook et de rédiger un courriel, avec certaines données récupérées dans le fichier Excel. L'utilisateur n'a plus qu'à cliquer sur Envoyer, ou ajouter certains éléments de rédaction s'il le souhaite. Le problème, pour lequel je ne sais pas s'il y a une solution, c'est qu'Outlook reste en arrière-plan. Si l'on est attentif, on voit l'icône d'Outlook s'activer, mais il faut cliquer sur elle pour que le message s'affiche devant Excel. Un utilisateur pas ou peu attentif pourrait penser que la macro n'a pas fonctionné. Y a-t-il une instruction qui permettrait au brouillon d'Outlook de s'afficher en premier plan d'Excel?

Merci pour toutes pistes utiles!

[Cahlagan]

N'ayant pas reçu de réponse, et désireux d'essayer d'avancer dans mon projet, j'ai sondé ChatGPT. Il m'a proposé ce 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
29
30
31
32
33
Sub EnvoyerEmail()
 
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim MailBody As String
 
    ' Créer une instance de l'application Outlook
    Set OutlookApp = CreateObject("Outlook.Application")
    ' Créer un nouvel élément de message
    Set OutlookMail = OutlookApp.CreateItem(0)
 
    ' Corps du message (vous pouvez le personnaliser selon vos besoins)
    MailBody = "Bonjour," & vbCrLf & vbCrLf & _
               "Ceci est un exemple de message automatique depuis Excel."
 
    ' Définir les propriétés du message
    With OutlookMail
        .To = "destinataire@email.com"
        .Subject = "Sujet du message"
        .Body = MailBody
    End With
 
    ' Activer la fenêtre Outlook
    AppActivate "Microsoft Outlook"
 
    ' Afficher le brouillon du message à l'avant-plan
    OutlookMail.Display
 
    ' Libérer les objets Outlook
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
 
End Sub

Problème: Outlook s'ouvre correctement, avec le message prêt à envoyer, mais les deux dernières lignes génèrent des erreurs. Tout d'abord, l'instruction AppActivate "Microsoft Outlook" génère une erreur d'exécution 5. Si je la désactive, la ligne suivante génère aussi une erreur (erreur 91). Du coup, je dois désactiver ces deux lignes... ce qui fait qu'Outlook reste à l'arrière-plan. Si quelqu'un voit plus clair que ChatGPT, c'est avec plaisir...

[Philippe Tulliez]

Bonjour,
Sauf erreur de ma part, l'instruction AppActivate ne s'utilise qu'avec un Shell donc à supprimer de cette procédure et chez moi la ligne OutlookMail.Display fait bien apparaître la fenêtre Outlook. C'est d'ailleurs ce que j'utilise pour envoyer un mail, si je souhaite le visualiser avant l'envoi.