Limiter la taille des pièces jointes en émission

Bonjour,
Quelqu'un connaitrait-il une bidouille pour limiter la taille des
pièces jointes que l'on insère dans un mail en émission.
Notre firewall bloque l'envoi de mail de 10Mo (c un choix), par
contre, les utilisateurs peuvent néanmoins tenter l'envoi de leur
messagerie, ce qui fait que le mail reste dans la boite d'envoi et ne
part jamais.
Merci de votre aide.

oui voici une macro qui demande si on veut envoyer quand même au dela de 5
mo à adapter à tes besoins.

à mettre dans ThisoutlookSession et valider les macros à l'ouverture.
------->
Public WithEvents myOlApp As Outlook.Application

Public Sub Initialize_handler()
Set myOlApp = CreateObject("Outlook.Application")
End Sub


Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
' par Oliv'
Dim prompt As String
Dim taille, pieces
Dim objCurrentMessage As MailItem
Dim objNS As NameSpace
Dim objFolder As MAPIFolder


Set objCurrentMessage = Item
objCurrentMessage.Save

'MsgBox objCurrentMessage.Size & "soit : " & objCurrentMessage.Size * 1.33
If objCurrentMessage.Size * 1.33 > 5000000 Then 'là tu indiques le maxi ici
5Mo
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"
If MsgBox(prompt, vbYesNo + vbQuestion, Title) = vbNo Then
Cancel = True
objCurrentMessage.Delete
End If
End If
End Sub


Private Sub Application_Startup()
'MsgBox "Welcome, " & Application.GetNamespace("MAPI").CurrentUser
Application.ActiveExplorer.WindowState = olMaximized
Initialize_handler
End Sub


--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook :http://faq.outlook.free.fr/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Merci bcp, c'est exactement ce qu'il me fallait.

Bonjour,
Quelqu'un connaitrait-il une bidouille pour limiter la taille des
pièces jointes que l'on insère dans un mail en émission.
Notre firewall bloque l'envoi de mail de 10Mo (c un choix), par
contre, les utilisateurs peuvent néanmoins tenter l'envoi de leur
messagerie, ce qui fait que le mail reste dans la boite d'envoi et ne
part jamais.
Merci de votre aide.

oui voici une macro qui demande si on veut envoyer quand même au dela de 5
mo à adapter à tes besoins.

à mettre dans ThisoutlookSession et valider les macros à l'ouverture.
------->
Public WithEvents myOlApp As Outlook.Application

Public Sub Initialize_handler()
Set myOlApp = CreateObject("Outlook.Application")
End Sub


Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
' par Oliv'
Dim prompt As String
Dim taille, pieces
Dim objCurrentMessage As MailItem
Dim objNS As NameSpace
Dim objFolder As MAPIFolder


Set objCurrentMessage = Item
objCurrentMessage.Save

'MsgBox objCurrentMessage.Size & "soit : " & objCurrentMessage.Size * 1.33
If objCurrentMessage.Size * 1.33 > 5000000 Then 'là tu indiques le maxi ici
5Mo
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"
If MsgBox(prompt, vbYesNo + vbQuestion, Title) = vbNo Then
Cancel = True
objCurrentMessage.Delete
End If
End If
End Sub


Private Sub Application_Startup()
'MsgBox "Welcome, " & Application.GetNamespace("MAPI").CurrentUser
Application.ActiveExplorer.WindowState = olMaximized
Initialize_handler
End Sub


--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook :http://faq.outlook.free.fr/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

J'ai recopié le code au bon endroit, mais je ne parviens pas à trouver
l'endroit pour que la macro se lance au démarrage.
Merci

Bonjour,
Quelqu'un connaitrait-il une bidouille pour limiter la taille des
pièces jointes que l'on insère dans un mail en émission.
Notre firewall bloque l'envoi de mail de 10Mo (c un choix), par
contre, les utilisateurs peuvent néanmoins tenter l'envoi de leur
messagerie, ce qui fait que le mail reste dans la boite d'envoi et ne
part jamais.
Merci de votre aide.

oui voici une macro qui demande si on veut envoyer quand même au dela de 5
mo à adapter à tes besoins.

à mettre dans ThisoutlookSession et valider les macros à l'ouverture.
------->
Public WithEvents myOlApp As Outlook.Application

Public Sub Initialize_handler()
Set myOlApp = CreateObject("Outlook.Application")
End Sub


Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
' par Oliv'
Dim prompt As String
Dim taille, pieces
Dim objCurrentMessage As MailItem
Dim objNS As NameSpace
Dim objFolder As MAPIFolder


Set objCurrentMessage = Item
objCurrentMessage.Save

'MsgBox objCurrentMessage.Size & "soit : " & objCurrentMessage.Size * 1.33
If objCurrentMessage.Size * 1.33 > 5000000 Then 'là tu indiques le maxi ici
5Mo
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"
If MsgBox(prompt, vbYesNo + vbQuestion, Title) = vbNo Then
Cancel = True
objCurrentMessage.Delete
End If
End If
End Sub


Private Sub Application_Startup()
'MsgBox "Welcome, " & Application.GetNamespace("MAPI").CurrentUser
Application.ActiveExplorer.WindowState = olMaximized
Initialize_handler
End Sub


--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook :http://faq.outlook.free.fr/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

J'ai recopié le code au bon endroit, mais je ne parviens pas à trouver
l'endroit pour que la macro se lance au démarrage.

c'est là --> Private Sub Application_Startup()

ferme outlook et enregistre VbaProject.OTM
à l'ouverture après autorisation des macros ca doit marcher.

Oliv'

Bonjour,
Quelqu'un connaitrait-il une bidouille pour limiter la taille des
pièces jointes que l'on insère dans un mail en émission.
Notre firewall bloque l'envoi de mail de 10Mo (c un choix), par
contre, les utilisateurs peuvent néanmoins tenter l'envoi de leur
messagerie, ce qui fait que le mail reste dans la boite d'envoi et
ne part jamais.
Merci de votre aide.

oui voici une macro qui demande si on veut envoyer quand même au
dela de 5 mo à adapter à tes besoins.

à mettre dans ThisoutlookSession et valider les macros à l'ouverture.
------->
Public WithEvents myOlApp As Outlook.Application

Public Sub Initialize_handler()
Set myOlApp = CreateObject("Outlook.Application")
End Sub


Private Sub Application_ItemSend(ByVal Item As Object, Cancel As
Boolean) ' par Oliv'
Dim prompt As String
Dim taille, pieces
Dim objCurrentMessage As MailItem
Dim objNS As NameSpace
Dim objFolder As MAPIFolder


Set objCurrentMessage = Item
objCurrentMessage.Save

'MsgBox objCurrentMessage.Size & "soit : " & objCurrentMessage.Size
* 1.33 If objCurrentMessage.Size * 1.33 > 5000000 Then 'là tu
indiques le maxi ici 5Mo
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" If MsgBox(prompt, vbYesNo + vbQuestion, Title) >> vbNo Then Cancel = True
objCurrentMessage.Delete
End If
End If
End Sub


Private Sub Application_Startup()
'MsgBox "Welcome, " &
Application.GetNamespace("MAPI").CurrentUser
Application.ActiveExplorer.WindowState = olMaximized
Initialize_handler
End Sub


--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook :http://faq.outlook.free.fr/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Merci, la macro s'active bien, mais je peux néanmoins envoyer des mails
supérieurs à 5 mo sans que le message apparaisse.

J'ai recopié le code au bon endroit, mais je ne parviens pas à trouver
l'endroit pour que la macro se lance au démarrage.

c'est là --> Private Sub Application_Startup()

ferme outlook et enregistre VbaProject.OTM
à l'ouverture après autorisation des macros ca doit marcher.

Oliv'

Bonjour,
Quelqu'un connaitrait-il une bidouille pour limiter la taille des
pièces jointes que l'on insère dans un mail en émission.
Notre firewall bloque l'envoi de mail de 10Mo (c un choix), par
contre, les utilisateurs peuvent néanmoins tenter l'envoi de leur
messagerie, ce qui fait que le mail reste dans la boite d'envoi et
ne part jamais.
Merci de votre aide.

oui voici une macro qui demande si on veut envoyer quand même au
dela de 5 mo à adapter à tes besoins.

à mettre dans ThisoutlookSession et valider les macros à l'ouverture.
------->
Public WithEvents myOlApp As Outlook.Application

Public Sub Initialize_handler()
Set myOlApp = CreateObject("Outlook.Application")
End Sub


Private Sub Application_ItemSend(ByVal Item As Object, Cancel As
Boolean) ' par Oliv'
Dim prompt As String
Dim taille, pieces
Dim objCurrentMessage As MailItem
Dim objNS As NameSpace
Dim objFolder As MAPIFolder


Set objCurrentMessage = Item
objCurrentMessage.Save

'MsgBox objCurrentMessage.Size & "soit : " & objCurrentMessage.Size
* 1.33 If objCurrentMessage.Size * 1.33 > 5000000 Then 'là tu
indiques le maxi ici 5Mo
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" If MsgBox(prompt, vbYesNo + vbQuestion, Title) > >> vbNo Then Cancel = True
objCurrentMessage.Delete
End If
End If
End Sub


Private Sub Application_Startup()
'MsgBox "Welcome, " &
Application.GetNamespace("MAPI").CurrentUser
Application.ActiveExplorer.WindowState = olMaximized
Initialize_handler
End Sub


--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook :http://faq.outlook.free.fr/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

On dirait qu'il ne connait pas Application_Startup() il ne lance pas le
message "Bonjour Magic"

J'ai recopié le code au bon endroit, mais je ne parviens pas à trouver
l'endroit pour que la macro se lance au démarrage.

c'est là --> Private Sub Application_Startup()

ferme outlook et enregistre VbaProject.OTM
à l'ouverture après autorisation des macros ca doit marcher.

Oliv'

Bonjour,
Quelqu'un connaitrait-il une bidouille pour limiter la taille des
pièces jointes que l'on insère dans un mail en émission.
Notre firewall bloque l'envoi de mail de 10Mo (c un choix), par
contre, les utilisateurs peuvent néanmoins tenter l'envoi de leur
messagerie, ce qui fait que le mail reste dans la boite d'envoi et
ne part jamais.
Merci de votre aide.

oui voici une macro qui demande si on veut envoyer quand même au
dela de 5 mo à adapter à tes besoins.

à mettre dans ThisoutlookSession et valider les macros à l'ouverture.
------->
Public WithEvents myOlApp As Outlook.Application

Public Sub Initialize_handler()
Set myOlApp = CreateObject("Outlook.Application")
End Sub


Private Sub Application_ItemSend(ByVal Item As Object, Cancel As
Boolean) ' par Oliv'
Dim prompt As String
Dim taille, pieces
Dim objCurrentMessage As MailItem
Dim objNS As NameSpace
Dim objFolder As MAPIFolder


Set objCurrentMessage = Item
objCurrentMessage.Save

'MsgBox objCurrentMessage.Size & "soit : " & objCurrentMessage.Size
* 1.33 If objCurrentMessage.Size * 1.33 > 5000000 Then 'là tu
indiques le maxi ici 5Mo
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" If MsgBox(prompt, vbYesNo + vbQuestion, Title) > >> vbNo Then Cancel = True
objCurrentMessage.Delete
End If
End If
End Sub


Private Sub Application_Startup()
'MsgBox "Welcome, " &
Application.GetNamespace("MAPI").CurrentUser
Application.ActiveExplorer.WindowState = olMaximized
Initialize_handler
End Sub


--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook :http://faq.outlook.free.fr/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

non je pense que c'est du à des lignes formatés en 80 caractères dans les
news
regarde là le code en question

http://cjoint.com/?lzk1usgCnd

Oliv'

On dirait qu'il ne connait pas Application_Startup() il ne lance pas
le message "Bonjour Magic"

J'ai recopié le code au bon endroit, mais je ne parviens pas à
trouver l'endroit pour que la macro se lance au démarrage.

c'est là --> Private Sub Application_Startup()

ferme outlook et enregistre VbaProject.OTM
à l'ouverture après autorisation des macros ca doit marcher.

Oliv'

Bonjour,
Quelqu'un connaitrait-il une bidouille pour limiter la taille des
pièces jointes que l'on insère dans un mail en émission.
Notre firewall bloque l'envoi de mail de 10Mo (c un choix), par
contre, les utilisateurs peuvent néanmoins tenter l'envoi de leur
messagerie, ce qui fait que le mail reste dans la boite d'envoi et
ne part jamais.
Merci de votre aide.

oui voici une macro qui demande si on veut envoyer quand même au
dela de 5 mo à adapter à tes besoins.

à mettre dans ThisoutlookSession et valider les macros à
l'ouverture. ------->
Public WithEvents myOlApp As Outlook.Application

Public Sub Initialize_handler()
Set myOlApp = CreateObject("Outlook.Application")
End Sub


Private Sub Application_ItemSend(ByVal Item As Object, Cancel As
Boolean) ' par Oliv'
Dim prompt As String
Dim taille, pieces
Dim objCurrentMessage As MailItem
Dim objNS As NameSpace
Dim objFolder As MAPIFolder


Set objCurrentMessage = Item
objCurrentMessage.Save

'MsgBox objCurrentMessage.Size & "soit : " & objCurrentMessage.Size
* 1.33 If objCurrentMessage.Size * 1.33 > 5000000 Then 'là tu
indiques le maxi ici 5Mo
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" If MsgBox(prompt, vbYesNo + vbQuestion, Title)
= vbNo Then Cancel = True
objCurrentMessage.Delete
End If
End If
End Sub


Private Sub Application_Startup()
'MsgBox "Welcome, " &
Application.GetNamespace("MAPI").CurrentUser
Application.ActiveExplorer.WindowState = olMaximized
Initialize_handler
End Sub


--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/
http://www.excel-vba-francais.com/ Word : http://faqword.free.fr/
Outlook :http://faq.outlook.free.fr/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Merci de ta patience, la code était bon, si j'ajoute un MsgBox sous
Application_Startup() il n'apparait pas au démarrage (sous Outlook 2000 et
2003). Pourtant qi je met une sécurité moyenne, il me demande bien
d'autoriser le lancement de la macro. Je ne comprend pas

non je pense que c'est du à des lignes formatés en 80 caractères dans les
news
regarde là le code en question

http://cjoint.com/?lzk1usgCnd

Oliv'

On dirait qu'il ne connait pas Application_Startup() il ne lance pas
le message "Bonjour Magic"

J'ai recopié le code au bon endroit, mais je ne parviens pas à
trouver l'endroit pour que la macro se lance au démarrage.

c'est là --> Private Sub Application_Startup()

ferme outlook et enregistre VbaProject.OTM
à l'ouverture après autorisation des macros ca doit marcher.

Oliv'

Bonjour,
Quelqu'un connaitrait-il une bidouille pour limiter la taille des
pièces jointes que l'on insère dans un mail en émission.
Notre firewall bloque l'envoi de mail de 10Mo (c un choix), par
contre, les utilisateurs peuvent néanmoins tenter l'envoi de leur
messagerie, ce qui fait que le mail reste dans la boite d'envoi et
ne part jamais.
Merci de votre aide.

oui voici une macro qui demande si on veut envoyer quand même au
dela de 5 mo à adapter à tes besoins.

à mettre dans ThisoutlookSession et valider les macros à
l'ouverture. ------->
Public WithEvents myOlApp As Outlook.Application

Public Sub Initialize_handler()
Set myOlApp = CreateObject("Outlook.Application")
End Sub


Private Sub Application_ItemSend(ByVal Item As Object, Cancel As
Boolean) ' par Oliv'
Dim prompt As String
Dim taille, pieces
Dim objCurrentMessage As MailItem
Dim objNS As NameSpace
Dim objFolder As MAPIFolder


Set objCurrentMessage = Item
objCurrentMessage.Save

'MsgBox objCurrentMessage.Size & "soit : " & objCurrentMessage.Size
* 1.33 If objCurrentMessage.Size * 1.33 > 5000000 Then 'là tu
indiques le maxi ici 5Mo
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" If MsgBox(prompt, vbYesNo + vbQuestion, Title)
= vbNo Then Cancel = True
objCurrentMessage.Delete
End If
End If
End Sub


Private Sub Application_Startup()
'MsgBox "Welcome, " &
Application.GetNamespace("MAPI").CurrentUser
Application.ActiveExplorer.WindowState = olMaximized
Initialize_handler
End Sub


--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/
http://www.excel-vba-francais.com/ Word : http://faqword.free.fr/
Outlook :http://faq.outlook.free.fr/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

C'est ok. Ca fonctionne parfaitement en retapant le code.
Merci bcp!!!

Bonjour,
Quelqu'un connaitrait-il une bidouille pour limiter la taille des pièces
jointes que l'on insère dans un mail en émission.
Notre firewall bloque l'envoi de mail de 10Mo (c un choix), par contre, les
utilisateurs peuvent néanmoins tenter l'envoi de leur messagerie, ce qui fait
que le mail reste dans la boite d'envoi et ne part jamais.
Merci de votre aide.