Private Sub Application_ItemSend(ByVal Item As Object ...
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim lngRes As Long
If InStr(1, UCase(Item.Body), "ATTACH") 0 Then
If Item.Attachments.Count = 0 Then
lngRes = MsgBox("'Attach' in body, but no attachment - send anyway?", _
vbYesNo + vbDefaultButton2 + vbQuestion, "You asked me to warn you...")
If lngRes = vbNo Then Cancel = True
End If
End If
End Sub
Private Sub Application_ItemSending _
(ByVal Item As Object, Cancel As Boolean)
Dim strMessage As String
Dim lngRes As Long
If Item.Subject = "" Then
Cancel = True
strMessage = "Please fill in the subject before sending."
MsgBox strMessage, _
vbExclamation + vbSystemModal, "Missing Subject"
Item.Display
End If
End Sub
................
................
In order to avoid copyright disputes, this page is only a partial summary.
To fulfill the demand for quickly locating and searching documents.
It is intelligent file search solution for home and business.
Related searches
- sub alert frontline
- aesop sub sign in
- private high school application essays
- 1 4 nouns as objects and object complements
- direct object and object complement
- application for employment as cleaner
- direct object and direct object pronouns
- direct object and indirect object checker
- direct object indirect object quiz
- private school application examples
- private school application essay
- access object within object javascript