Hi !
I need some help about the possibility to stop mail with attachment > 10 Mo.
I make this code (with help i’m not developper) and put it in the mask “MEMO”.
I used it to informe my users before sending mail and recept a report error by the router.
The router refused mail > 10 Mo too.
It works fine but one guy find a tips to send it.
After he makes a mail with attachment (32 Mo), he canceled this mail.
The dialog box appears and propose to save/send, send only, cancel…
If he select send only, the mail is sending.
Can you help me to refuse this mail in this case
thank
regards.
For information, this is the code i put in MEMO
Sub Querysave(Source As Notesuidocument, Continue As Variant)
Dim sizemaxi As Long
Dim reponse As Integer
Dim lib_objet As String
sizemaxi = 10485760
' =====================================================================
'Script forçcant un objet dans le message
If source.Document.subject(0) = "" Then
'If Messagebox ( "Attention, votre message ne comporte pas de sujet, la réponse est susceptible d'étre interceptée, continuer ?" , 36 , "Sujet du message") <> 6 Then
Messagebox "Veuillez saisir un objet, merci.", 0 + 48, " Objet du message vide !"
continue = False
'End If
End If
' =====================================================================
' =====================================================================
'Script forçant la taille maxi à 10 Mo
If source.Document.Size > sizemaxi Then
Messagebox "Vous ne pouvez pas envoyer de document dont la taille est supérieure à 10 Mo"
continue = False
Else
' =====================================================================
Call source.FieldSetText("useApplet", "True")
Call cMemoObject.QuerySave(Continue)
End If
End Sub