Word Mail Merge automation.
Outlook E-mail Security Update issues. Security Guard
Security Manager
|
| Private Sub Command1_Click() |
| Dim OutlookApp As New Outlook.Application |
| Dim SecurityManager As New OutlookSecurityManager |
| Dim WordApp As New Word.Application |
| Dim WordDoc As Word.Document |
| Dim MailMerge As Word.MailMerge |
| WordApp.Visible = True |
| ' Connects to an Outlook instance |
| SecurityManager.ConnectTo OutlookApp.Application |
| ' Disables security warnings on accessing Outlook objects |
| SecurityManager.DisableOOMWarnings = True |
| On Error GoTo Finally |
| Set WordDoc = WordApp.Documents.Open(CurDir() & "\Test.doc", True) |
| Set MailMerge = WordDoc.MailMerge |
| MailMerge.OpenDataSource Name:=CurDir() & "\Test.mdb", _ |
| SQLStatement:="SELECT * FROM [Office_Address_List]" |
| MailMerge.MailAddressFieldName = "Email_Address" |
| MailMerge.DataSource.FirstRecord = wdDefaultFirstRecord |
| MailMerge.DataSource.LastRecord = wdDefaultLastRecord |
| MailMerge.MainDocumentType = wdEMail |
| MailMerge.Destination = wdSendToEmail |
| MailMerge.Execute False |
| Finally: |
| ' In any case, please remember to turn on Outlook security warnings |
| ' after your code, since now it is very easy to switch it off! |
| SecurityManager.DisableOOMWarnings = False |
| End Sub |
The code example above is in Visual Basic 6.0, but Outlook Security Manager supports all .NET programming language including Visual Basic .NET, C#, C++, J#, Delphi for .NET, RemObjects Chrome as well as Delphi for Win32, Visual C++ 6, Visual Basic for Applications including Access VBA, Excel VBA, VBScript, JScript, etc.
Find more about how to avoid Outlook security messages like: A program is trying to...






