Mercredi 22 Novembre 2017  
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 : 6
Membres en ligne : 0

 joscopp 3 jours
 JièL 5 jours
 julbast 1 semaine
 pirobert 1 semaine
 EMERGENCY 3 semaines
 callaghi 18 semaines
 zorro71 25 semaines
 Alphator 43 semaines
 ande 49 semaines
 Oliv 51 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:146
En ligne :6
Max. en ligne:312
Max. / jour:66 529
Total hier:7 654
Total ce mois:101 612
Total visites:18 672 567
Moyenne/jour:5 665

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 8310 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
R01090 Demander un accusé de réception / lecture, R99190 Vieille souris, R02060 Vérifier l'accès au serveur SMTP, R06010 Changer l'emplacement du .PST d'Outlook, R02030 Définir des groupes de comptes de messagerie, R05070 Imprimer les noms des pièces jointes aux messages en HTML, R05050 Imprimer des « Contacts », R06070 Classer automatiquement les messages reçus ou envoyés, R10080 Sauvegardez ses « Catégories » personnalisées et ses « Emplacements » ou lieux de rendez-vous, R09200 Trier les destinataires dans le carnet d'adresses (version 2000), R16020 Importer des contacts d'un fichier Excel, R09110 Partager le carnet d'adresse d'Outlook 2000 avec Outlook Express 5, R15920 [VBA] Archivage , R20150 Configurer un compte Yahoo pour Outlook 2007, R01040 Laisser une copie de message sur le serveur

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é
Météo Marseille
[/\] Copyright JièL / Jean-Louis Goubert © 2003-2009 [/\]