fermer la fenetre de nouveau message

[blorf]

Bonjour,

Je suis actuellement en train de réaliser une petite macro VBA qui vérifie que la taille de la piece jointe est inferieur à celle autorisé par notre messagerie. Si la piece jointe est trop grande un message averti l'utilisateur que la piece jointe est trop importante et le mail est sauvegarder dans les brouillons.

Jusque la pas de problème, sauf que je voudrai que la fenetre de redaction du mail en question soit fermer automatiquement après la sauvegarde. Car pour le moment elle reste ouverte et repropose naturellement de sauvegarder le mail dans les brouillon lorsque l'on veut la fermer.


voici le code de la macro

Code :

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
34
35
36
37
38
39
40
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
 
  If TypeOf Item Is Outlook.MailItem Then
 
    Cancel = Not (ConfirmBigAttachments(Item))
 
  End If
 
End Sub
 
 
Private Function ConfirmBigAttachments(oMail As Outlook.MailItem) As Boolean
 
  Dim lSize As Long
 
  Const MAX_ITEM_SIZE As Long = 527566 ' Byte
 
  Dim bSend As Boolean
 
 
 
  bSend = True
 
  If oMail.Attachments.Count Then
 
    oMail.Save
 
    lSize = oMail.Size
 
    If lSize > MAX_ITEM_SIZE Then
 
      bSend = (MsgBox("Bonjour, votre pièce jointe dépasse les 5Mo autorisé par la messagerie." & vbCrLf & "Votre message sera concervé dans les brouillons", vbSystemModal, vbinfo) = vbNo)
 
    End If
 
  End If
 
  ConfirmBigAttachments = bSend
 
End Function

Cordialement Merci d'avance

[Maxence HUBICHE]

Bonjour et bienvenue !

As-tu essayé simplement un petit

Code :

Item.Close

juste après la définition de ton Cancel ?

[blorf]

bonjour et merci,

oui j'ai essayé cela me génère une erreur 449 : argument non facultatif


Cordialement

[blorf]

autant pour moi, manquais l'argument olDiscard mais maintenant le problème est :

erreur d'exécution '-1594753015(a0f20009)':

La commande Item.close ne peut pas etre éxecutée pendant un évènement Item.send

Une idée ?