Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim strSubject As String strSubject = Item.Subject If Len(Trim(strSubject)) = 0 Then Prompt$ = "Subject is Empty." & vbCrLf Count = 1 End If If InStr(1, Item.Body, "attach", vbTextCompare) > 0 Then If Item.Attachments.Count = 0 Then Prompt$ = Prompt$ & "The attachment is missing." & vbCrLf Count = 1 End If End If If Count = 1 Then Prompt$ = Prompt$ & "Are you sure you want to send this message? " If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Check for Subject and Attachment") = vbNo Then Cancel = True End If End If End Sub