Vendredi 19 Avril 2019  
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 : 5
Membres en ligne : 0

 jcgdisle 21 semaines
 EMERGENCY 42 semaines
 beaulieu 53 semaines
 callaghi 57 semaines
 Charlie76 63 semaines
 joscopp 73 semaines
 JièL 74 semaines
 julbast 74 semaines
 pirobert 75 semaines
 zorro71 98 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:3 501
En ligne :5
Max. en ligne:312
Max. / jour:66 529
Total hier:3 741
Total ce mois:92 177
Total visites:21 570 026
Moyenne/jour:5 661

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 9046 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
R15330 [VBA] Ajouter un destinataire CC ou CCI a chaque envoi de mail, R07120 Interdire l'accès au paramétrage des comptes de messagerie et de carnet d'adresses, R10090 Installer PFBACKUP sous Outlook 2007, R12110 Un éphéméride dans Outlook, R02050 Lancer Outlook au démarrage Windows, R01180 Remplacer la page d’accueil « Outlook Aujourd’hui » (toutes versions), R01200 Changer le son de réception d'un message, R03130 Voir la source du message dans l'entête, R15050 [VBA] Modifier l'affichage sur tous les dossiers et sous-dossiers, R02030 Définir des groupes de comptes de messagerie, R08080 Message d'erreur lors de l'utilisation du carnet d'adresses, R01180 Remplacer la page d’accueil « Outlook Aujourd’hui » (toutes versions), R00070 Consultez (et modifiez) VOS données de VOTRE Outlook sur CE site, R12090 Ajouter les jours fériés Français jusqu'en 2012 pour Outlook 2002/2003, R15210 [VBA] Déplacer le contenu d'un dossier vers un pst.

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