MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
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
|Create Outlook rule to move incoming emails from certain domain to Outlook subfolder||1||46|
|Macro to automate attaching two files to a new email||4||26|
|How do I reset the password in Outlook?||10||33|
|How to configure Office Outlook 2016 caps||1||20|