Link to home
Start Free TrialLog in
Avatar of SeanNij
SeanNijFlag for South Africa

asked on

Remove Outlook Security Warning from within Access

Hi all, trust you are well.

Using code such as below to send a email msg from with Access. When i do this a box pops up in Outlook saying "a program is trying to send mail blah blah" Do you want to allow this? Does anyone know of a way to turn that off as the users are hitting cancel and defeating the purpose behind the email.

Thanks
Sean
On Error GoTo UndoChange

            Set olApp = Outlook.Application
            'Create e-mail item
            Set objMail = olApp.CreateItem(olMailItem)

            With objMail
               If Not IsNull(Me.Combo16.Column(3)) Then
               .To = Me.Combo16.Column(3)
               End If
               .Subject = "Status Change: " & Forms!usrJobs!JobDescription & "-" & Me.SeqNo & " changed from being '" & Me.befStatusID & "' to '" & Me.Combo16.Column(1) & "'"
               
               .Send

            End With
ASKER CERTIFIED SOLUTION
Avatar of Wayne Taylor (webtubbs)
Wayne Taylor (webtubbs)
Flag of Australia image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
SOLUTION
Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
SOLUTION
Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
SOLUTION
Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial