Outlook Email Security Message

[MikeP125]

Hi,
I am trying to have my Access 2003 database send an email through Outlook
2003 without have ing Outlook opened. I have the code that works, except I
get this security warning that says:
"A program is trying to automatically send e-mail on your behalf. Do you
want to allow this?"
Then I need to manually click "Yes". How can I avoid this warning box and
have the email automatically be sent out? Below is my code:

Public Function Reminder1Email()

Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem

' Create the Outlook session.
Set objOutlook = New Outlook.Application

' Create the message.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

With objOutlookMsg
.subject = DLookup("[Subject]", "qrySendRemider1")
.To = DLookup("[EmailReminderAddress]", "qrySendRemider1")
.body = DLookup("[Message]", "qrySendRemider1") & vbCrLf & "This is an
automated message. Please do not respond"
.Importance = olImportanceHigh
.Send
End With

End Function

Thanks for your help.

 

[Douglas J. Steele]

Take a look at http://www.dimastr.com/redemption/

 

[MikeP125]

I have issues loading 3rd party software at work. Is there a way to bypass
this security box without using 3rd party software?

Take a look at http://www.dimastr.com/redemption/

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)

Hi,
I am trying to have my Access 2003 database send an email through Outlook
2003 without have ing Outlook opened. I have the code that works, except
I
get this security warning that says:
"A program is trying to automatically send e-mail on your behalf. Do you
want to allow this?"
Then I need to manually click "Yes". How can I avoid this warning box and
have the email automatically be sent out? Below is my code:

Public Function Reminder1Email()

Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem

' Create the Outlook session.
Set objOutlook = New Outlook.Application

' Create the message.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

With objOutlookMsg
.subject = DLookup("[Subject]", "qrySendRemider1")
.To = DLookup("[EmailReminderAddress]", "qrySendRemider1")
.body = DLookup("[Message]", "qrySendRemider1") & vbCrLf & "This is an
automated message. Please do not respond"
.Importance = olImportanceHigh
.Send
End With

End Function

Thanks for your help.

 

[Douglas J. Steele]

No. You'll have to look into a different way of e-mailing, such as CDO (see
what Tony Toews has at http://www.granite.ab.ca/access/email/cdonts.htm for
more details)

BTW, I don't believe the problem occurs in Office 2007.

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)

I have issues loading 3rd party software at work. Is there a way to bypass
this security box without using 3rd party software?

Take a look at http://www.dimastr.com/redemption/

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)

Hi,
I am trying to have my Access 2003 database send an email through
Outlook
2003 without have ing Outlook opened. I have the code that works,
except
I
get this security warning that says:
"A program is trying to automatically send e-mail on your behalf. Do
you
want to allow this?"
Then I need to manually click "Yes". How can I avoid this warning box
and
have the email automatically be sent out? Below is my code:

Public Function Reminder1Email()

Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem

' Create the Outlook session.
Set objOutlook = New Outlook.Application

' Create the message.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

With objOutlookMsg
.subject = DLookup("[Subject]", "qrySendRemider1")
.To = DLookup("[EmailReminderAddress]", "qrySendRemider1")
.body = DLookup("[Message]", "qrySendRemider1") & vbCrLf & "This is
an
automated message. Please do not respond"
.Importance = olImportanceHigh
.Send
End With

End Function

Thanks for your help.

 

[dkschoonover]

Doug - I'm doing this in 2007 with the same result. However, CDO is disabled
in Exchange 2007 as well. I have to send this out as MAPI, but since this is
a shared database across the company, I cannot set everyone's macro security
to Low. Do you have any other suggestions?

Darryl

No. You'll have to look into a different way of e-mailing, such as CDO (see
what Tony Toews has at http://www.granite.ab.ca/access/email/cdonts.htm for
more details)

BTW, I don't believe the problem occurs in Office 2007.

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)

I have issues loading 3rd party software at work. Is there a way to bypass
this security box without using 3rd party software?

Take a look at http://www.dimastr.com/redemption/

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)


Hi,
I am trying to have my Access 2003 database send an email through
Outlook
2003 without have ing Outlook opened. I have the code that works,
except
I
get this security warning that says:
"A program is trying to automatically send e-mail on your behalf. Do
you
want to allow this?"
Then I need to manually click "Yes". How can I avoid this warning box
and
have the email automatically be sent out? Below is my code:

Public Function Reminder1Email()

Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem

' Create the Outlook session.
Set objOutlook = New Outlook.Application

' Create the message.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

With objOutlookMsg
.subject = DLookup("[Subject]", "qrySendRemider1")
.To = DLookup("[EmailReminderAddress]", "qrySendRemider1")
.body = DLookup("[Message]", "qrySendRemider1") & vbCrLf & "This is
an
automated message. Please do not respond"
.Importance = olImportanceHigh
.Send
End With

End Function

Thanks for your help.

 

[David C. Holley]

Go with Redemption, the catch though is that it has to be installed on any
PC that needs to use the library.

http://www.dimastr.com/redemption/

Doug - I'm doing this in 2007 with the same result. However, CDO is
disabled
in Exchange 2007 as well. I have to send this out as MAPI, but since this
is
a shared database across the company, I cannot set everyone's macro
security
to Low. Do you have any other suggestions?

Darryl

No. You'll have to look into a different way of e-mailing, such as CDO
(see
what Tony Toews has at http://www.granite.ab.ca/access/email/cdonts.htm
for
more details)

BTW, I don't believe the problem occurs in Office 2007.

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)

I have issues loading 3rd party software at work. Is there a way to
bypass
this security box without using 3rd party software?

:

Take a look at http://www.dimastr.com/redemption/

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)


Hi,
I am trying to have my Access 2003 database send an email through
Outlook
2003 without have ing Outlook opened. I have the code that works,
except
I
get this security warning that says:
"A program is trying to automatically send e-mail on your behalf. Do
you
want to allow this?"
Then I need to manually click "Yes". How can I avoid this warning
box
and
have the email automatically be sent out? Below is my code:

Public Function Reminder1Email()

Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem

' Create the Outlook session.
Set objOutlook = New Outlook.Application

' Create the message.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

With objOutlookMsg
.subject = DLookup("[Subject]", "qrySendRemider1")
.To = DLookup("[EmailReminderAddress]", "qrySendRemider1")
.body = DLookup("[Message]", "qrySendRemider1") & vbCrLf & "This
is
an
automated message. Please do not respond"
.Importance = olImportanceHigh
.Send
End With

End Function

Thanks for your help.