N
Nite Rider
Hi,
I found a script that checks for attachments and modified it a little to
block any attachment from being sent. I push alt + F11 and open Visual Basic
and put it in ThisOutlookSession. The script runs until I restart outlook at
which point it no longer runs later until I redo it. Does anyone know what's
going on.
Here is the script:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim intRes As Integer
Dim strMsg As String
If Item.Attachments.Count > 0 Then
strMsg = "You are not allowed to send e-mail containing attachments. The
e-mail will not be sent untill the attachment is removed."
intRes = MsgBox(strMsg, vbExclamation, "Attachment Disallowed")
If Item.Attachments.Count > 0 Then
' cancel send
Cancel = True
End If
End If
End Sub
I found a script that checks for attachments and modified it a little to
block any attachment from being sent. I push alt + F11 and open Visual Basic
and put it in ThisOutlookSession. The script runs until I restart outlook at
which point it no longer runs later until I redo it. Does anyone know what's
going on.
Here is the script:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim intRes As Integer
Dim strMsg As String
If Item.Attachments.Count > 0 Then
strMsg = "You are not allowed to send e-mail containing attachments. The
e-mail will not be sent untill the attachment is removed."
intRes = MsgBox(strMsg, vbExclamation, "Attachment Disallowed")
If Item.Attachments.Count > 0 Then
' cancel send
Cancel = True
End If
End If
End Sub