Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
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