Sending from access to outlook

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi

When I'm sending an email from access to Outlook using :

Dim objOLMail As Outlook.MAPIFolder
Dim objOutlook As New Outlook.Application
Dim objNameSpace As Outlook.NameSpace
Dim objOlMailItem As Outlook.MailItem

Set fs = CreateObject("Scripting.FileSystemObject")
Set objNameSpace = objOutlook.GetNamespace("MAPI")
Set objOLMail = objNameSpace.GetDefaultFolder(olFolderOutbox)

FindRep = False



'Create email
With objOLMail.Items.Add
.To = "(e-mail address removed)"
.Subject = "TEST"
.HTMLBody = Email
.Send
End With
Set objOLMail = Nothing
Set objNameSpace = Nothing



I have always a pop up windows from outlokk telling me that a program trying
to use Outlook do I want to continu or not?

How can I stop this windows from pop uping


Thanks
 
Back
Top