Mardi 30 Mai 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 : 3
Membres en ligne : 0

 zorro71 1 jour
 callaghi 9 semaines
 Alphator 18 semaines
 ande 24 semaines
 Oliv 26 semaines
 cubitus 29 semaines
 JièL 34 semaines
 angel 39 semaines
 Quartzkyte 48 semaines
 grouilau 48 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:2 338
En ligne :3
Max. en ligne:312
Max. / jour:66 529
Total hier:4 178
Total ce mois:112 907
Total visites:17 551 503
Moyenne/jour:5 625

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 8075 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
R99050 Impression d'écran, R18020 Dépasser la limites de 32Ko des règles avec un serveur Exchange, R00040 Interdire la modification des comptes de messagerie et de carnet d'adresses, R00130 Fonctionnalités abandonnées et/ou modifiées dans Outlook 2007, R09210 Créer une liste de distribution, R15600 [VBA] ajouter un dossier contact et le définir en tant que carnet d'adresses, R08210 Message d'erreur : Le client de courrier électronique par défaut n'est pas correctement installé, R08060 Recréer un profil, R15230 [VBA] Extraire automatiquement les pièces jointes vers un dossier Windows., R99470 Ca va mieux ?, R09160 Afficher ses contacts dans un ordre différent, R01140 Utiliser un compte Hotmail ou MSN avec Outlook 2002 ou 2003 (Obsolète), R08041 Outlook 2002 (2000 ?) ne mémorise pas le mot de passe des comptes sous Vista, R08220 Liens hypertexte inactifs, R03050 Définir le papier à lettres par défaut

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