Bonjour,

Voilà, j'ai une appli qui fonctionne bien. Elle me permet d'envoyer des rapports aux utilisateurs lorsqu'un certain état est atteint. J'utilise pour cela Outlook, vu que c'est notre outil de messagerie dans la société.
Jusqu'à présent, on avait Outlook 2000 et cela fonctionnait très bien. On est passé sous 2003. Mon appli fonctionne toujours, mais j'ai les deux nouveautés suivantes :
1) Outlook me demande maintenant d'autoriser l'accés à l'application. Ennuyeux, mais pas bloquant... Enfin, si quelqu'un sait comment éviter ce popup, je suis preneur.
2) C'est là que le bat blesse. En effet, j'affiche le message à l'écran, permettant à l'utilisateur de modifier le message avant envoi. Mais lorsqu'il envoie le message, la fenetre ne se ferme jamais. Je reviens bien à mon appli, mais rien n'y fait. Il faut faire un clic droit sur le message (le fond de fenetre est blanc) et choisir "Fermer Alt+f4".

Dans les références, j'ai bien "Microsoft Outlook 11.0 Object Library" de sélectionné...

Est-ce que quelqu'un sait d'où celà provient et comment faire pour que la fenetre se ferme bien lorsque le message est envoyé.

Voici mon code, un peu épuré, mais je l'ai testé et j'ai toujours le souci.
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
Public Function Send_email() As Boolean
      Dim To_List          As String
      Dim CC_List          As String
      '  Declare the Application Outlook
      Set OutlookAppli = CreateObject("outlook.Application")
      '  Create the Outlook environment
      Set OutlookSpace = OutlookAppli.GetNamespace("MAPI")
      '  Create the mail object
      Set OutlookItem = OutlookAppli.CreateItem(olMailItem)
      '  Create the distribution list
      To_List = "jean-luc.valentin@toto.fr"
      CC_List = ""
      OutlookItem.To = To_List
      OutlookItem.CC = CC_List
      OutlookItem.Recipients.ResolveAll
      '  Generate the subject and body of the mail
      '  -----------------------------------------
      OutlookItem.Subject = "Integration Report "
      OutlookItem.Body = "Hello," & vbCrLf & vbCrLf & _
                         "Please find the Integration Report for the Product xxxxx"
      ' Write the signature
      ' -------------------
      OutlookItem.Body = OutlookItem.Body & vbCrLf & vbCrLf & "-----------------------------"
      '  Open the message to allow changes from the user
      '  -----------------------------------------------
      OutlookItem.Display vbModal
      '  End of the email operation
      '  --------------------------
      Set OutlookItem = Nothing
      Set OutlookSpace = Nothing
      Set OutlookAppli = Nothing
End Function
D'avance merci,

Jean-Luc VALENTIN