Find articles on computer software, programming, ASP.net, Sql server, databases, C#, websites, Internet, Windows, Outlook macros.
This code uses the Outlook Application_ItemSend Event to check the email message before sending.
To get the code to run you must have the proper security setup. For self signing a certificate see Outlook-Macros.blogspot.com or Enable Outlook macros by self signing a certificate with selfcert.exe.
This code initializes the Outlook_Email_Item_Send_Class that does all the work for checking the email message.
To get this code to work, you have to do these things.
'---------------------------------------------------- 'Calls the Outlook_Email_Item_Send_Class to check the email '---------------------------------------------------- Private Sub Application_ItemSend(ByVal item As Object, cancel As Boolean) Dim email As mailitem Set email = item If email.Class <> olMail Then Exit Sub 'Make sure it is a mail message and not a task or something else Dim emailchecker As Outlook_Email_Item_Send_Class Set emailchecker = New Outlook_Email_Item_Send_Class If Not emailchecker.Item_Send_Check(email) Then cancel = True email.Display End If End Sub
Name (required)
Email (required)
Website
Notify me of followup comments via e-mail
AWeber Email List Marketing Test Drive
Use email marketing to convert targeted subscribers to customers. Let the system sell itself for you!