Lundi 01 Juin 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 : 1
Membres en ligne : 0

 JièL 5 semaines
 manucau 7 semaines
 Manu-pb 8 semaines
 Oliv 13 semaines
 pirobert 54 semaines
 jcgdisle 79 semaines
 EMERGENCY 100 semaines
 beaulieu 112 semaines
 callaghi 115 semaines
 Charlie76 121 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:485
En ligne :1
Max. en ligne:312
Max. / jour:66 529
Total hier:0
Total ce mois:485
Total visites:23 646 389
Moyenne/jour:5 606

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 9589 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
R12020 Naviguer dans le calendrier, R15040 [VBA] Parcourir tous les dossiers et sous-dossiers., R18020 Dépasser la limites de 32Ko des règles avec un serveur Exchange, R17004 Etapes permettant l'utilisation d'un formulaire, R01145 Configurer un compte Hotmail avec Outlook 2003 ou 2007, R06040 Paramétrer l'archivage automatique d'un dossier, R12060 Répondre à une invitation, R08160 L'entête du mail ne s'imprime pas (XP SP2 et IE7), R15440 [VBA] vider les courriers indésirables en quittant, R09010 Compléter la saisie d’un destinataire (saisie auto ou saisie semi auto), R06040 Paramétrer l'archivage automatique d'un dossier, R09220 Ajouter rapidement une adresse aux contacts, R03130 Voir la source du message dans l'entête, R09020 Comment fonctionne le complément automatique de la saisie des adresses (saisie auto ou saisie semi auto), R09005 Différence entre « Carnet d'adresses » et « Contacts »

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 [/\]