Mardi 29 Septembre 2020  
Navigation
FAQ Outlook
» Foire Aux Questions «
Recherche
Téléchargements
Forums Outlook
Plan du site
Liens
Login

Les inscriptions sont fermées

Pseudo

Mot de passe

Se souvenir de moi



Mot de passe oublié ? Mot de passe oublié ?
Connexions
Bienvenue à [FAMACLUB]
le 1,414ème membre
Visiteurs en ligne : 3
Membres en ligne : 0

 JièL 22 semaines
 manucau 24 semaines
 Manu-pb 25 semaines
 Oliv 30 semaines
 pirobert 71 semaines
 jcgdisle 96 semaines
 EMERGENCY 117 semaines
 beaulieu 129 semaines
 callaghi 133 semaines
 Charlie76 138 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:505
En ligne :3
Max. en ligne:312
Max. / jour:66 529
Total hier:2 212
Total ce mois:96 058
Total visites:24 089 107
Moyenne/jour:5 553

Dernières 24h

























Publicité ; elle permet de financer le site
Navigation parmi les catégories/articles
« Catégorie     Q15000 Macros - VBA (41)  Catégorie »
[<<]  « Article  Article »  [>>]
R15310 [VBA] Limiter l'envoi selon la taille
Fait plusieurs vérifications avant l'envoi selon la taille du Mail.

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



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


'ici la macro qui va zipper le contenu des PJ   
'décommenter les 2 lignes ci-dessous
       
'zip
       
'objCurrentMessage.Save

    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


Publié par Oliv le vendredi 16 février 2007 10:05 0 Commentaires 9694 Lecture(s) Imprimer
Commentaires
les commentaires sont fermés.
Copyright et partage
Ce site est sous licence Creative Commons.
Vous pouvez utiliser toutes les informations présentent ici, mais il vous est interdit de les reproduire sans citer la source.

Creative Commons License
OUI au partage
NON au « copillage »

Ajouter aux favoris / partager : 
URL :
BBcode :
HTML :
Cliquez ci dessus sur le lien que vous voulez copier et [Ctrl] + [C] ou cliquez sur le bouton [ C ]
Articles similaires
Articles Catégories
R15045 [VBA] Ouvrir l'arborescence des pst contenant une boîte de réception Q15000 Macros - VBA
R15930 [VBA] Création de menu dans outlook Q15000 Macros - VBA
R15380 [VBA] Envoi via VBA : suppression de la confirmation d'envoi Q15000 Macros - VBA
R15280 [VBA] Exporter un mail et l'ouvrir dans IE avec ses images Q15000 Macros - VBA
R06027 Alerter quand la taille du .PST est trop importante Q06000 Les fichiers d'Outlook
Nuage de tags
R05030 Modifier la police et la taille des caractères du corps du message, R15240 [VBA] Viewer de pièces jointes., R00080 Ajouter le moteur de recherche de la FAQ à IE7, R03110 Déplacer les messages lors de l'envoi, R15330 [VBA] Ajouter un destinataire CC ou CCI a chaque envoi de mail, R15230 [VBA] Extraire automatiquement les pièces jointes vers un dossier Windows., R99190 Vieille souris, R99450 On peut faire ça ?, R01120 Utiliser un modèle de message, R01210 Répondeur automatique pendant votre absence, R99120 Fenêtre dernier cri, R06005 Emplacements des différents fichiers d'Outlook, R04050 Modifier une pièce jointe DANS un message, R01100 Lire un message sans envoyer la confirmation de lecture, R00010 Outlook ou Outlook Express ?

aucun Crack, CrackZ, no-CD, DownloadZ, TelechargementZ, Serial, Numéro de série, N0 de série, Serialz ni Keygen pour Outlook sur ce site.

Blague aléatoire
Publicité
[/\] Copyright JièL / Jean-Louis Goubert © 2003-2009 [/\]