Message lorsque taille d'un mail supérieur à 4Mo [Résolu]

[Vbapprentis]

Bonjour,

Serait il possible de mettre un message d'avertissement lorsqu'on crée un mail et en insérant une pièce jointe, la taille du mail dépassant 4 Mo, une alerte se lance indiquant qu'il faudrait mieux zipper la pièce jointe avant d'envoyer le mail

Merci

[Oliv-]

Bonjour,

A copier dans THISOUTLOOKSESSION


il y a 3 vérifications :

1. au dela de 3 mo on demande de zipper
2. au dela de 5 mo on demande de confirmer l'envoi
3. au dela de 10 mo envoi impossible.

Si vous n'avez rien pour zipper commentez le bloc if de la première verif

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
41
42
43
44
45
46
47
48
49
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As _Boolean)
'By Oliv' 9/02/2007 pour Outlook 2003     Dim prompt As String
    Dim taille, pieces
    Dim objCurrentMessage As MailItem
  If Not Item.Class = olMail Then GoTo fin
  Set objCurrentMessage = Item
On Error GoTo 0
  objCurrentMessage.Save
 '#######première verif####### If objCurrentMessage.Attachments.Count > 0 Then firstattch = _
objCurrentMessage.Attachments.Item(1)
If objCurrentMessage.Size * 1.33 > 3000000 And firstattch <> _
"Documents.zip " Then
    taille = Round(objCurrentMessage.Size * 1.33 / 1000000, 2)
    pieces = objCurrentMessage.Attachments.Count
    Title = "Voulez-vous Zipper les pièces jointes ?"
    prompt = Item.Subject & vbCr & vbCr & "Attention votre mail est" _
& " très volumineux : " & vbCr & taille & " Mo" & vbCr & pieces _
& " pièces jointes" & vbCr & vbCr & "Z I P P E R ?"
    If MsgBox(prompt, vbYesNo + vbQuestion, Title) = vbYes Then<blockquote>
'ici la macro qui va zipper le contenu des PJ    
'décommenter les 2 lignes ci-dessous        
'zip        
'objCurrentMessage.Save 
</blockquote>End If
End If
 '#######deuxième verif####### If objCurrentMessage.Size * 1.33 > 5000000 Then
    taille = Round(objCurrentMessage.Size * 1.33 / 1000000, 2)
    pieces = objCurrentMessage.Attachments.Count
    Title = "Etes-vous sûr de vouloir envoyer ?"
    prompt = Item.Subject & vbCr & vbCr & "Attention votre mail est" _
& " très volumineux : " & vbCr & taille & " Mo" & vbCr & pieces & _
" pièces jointes" & vbCr & vbCr & "E N V O Y E R ?"
    If MsgBox(prompt, vbYesNo + vbExclamation, Title) = vbNo Then
        Cancel = True
        GoTo fin
    End If
End If
 '#######dernière verif####### If objCurrentMessage.Size * 1.33 > 10000000 Then
taille = Round(objCurrentMessage.Size * 1.33 / 1000000, 2)
    pieces = objCurrentMessage.Attachments.Count
    Title = "Envoi impossible"
    prompt = Item.Subject & vbCr & vbCr & "Votre mail est" _
& " trop volumineux : " & vbCr & taille & " Mo" & vbCr & pieces & _
"pièces jointes" & vbCr & vbCr & "Envoi impossible"
MsgBox prompt, vbOKOnly + vbExclamation, Title
Cancel = True
End If
fin:
End Sub

Oliv'

[Vbapprentis]

Merci Oliv