Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) If InStr(Item.Body, "attach") > 0 Then If Item.Attachments.Count < 1 Then If MsgBox("The message body mentions an attachment, but none found." & Chr(13) & Chr(10) & "Send anyway?", vbYesNo + vbDefaultButton2 + vbExclamation, "Attachment Missing") = vbNo Then Cancel = True Item.Move Application.Session.GetDefaultFolder(olFolderDrafts) End If End If End If End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.