Message appears when sending email

[Linda]

When sending an email from my form, it comes up with a Microsoft Outlook
message box stating "A program is trying to automatically send e-mail on your
behalf. Do you want to allow this? If this is unexpected, it may be a
virus and you should choose No" it gives you the option Yes No or Help. Is
there any way to not have this message come up?
This is my code:
Private Sub Command77_Click()
Dim refnum As Long refnum = RPRTNUM
DoCmd.SendObject acSendNoObject, , , "(e-mail address removed)", , , "Report
Request", "The report number is " & refnum & ".", False
End Sub

Any suggestions

Thanks
Linda

 

[Maurice]

Linda,

That's a setting from Outlook which is there for security reasons. You have
to use Redemption to surpress the notification but that requires additional
library reference. For explanation and workarounds..

Take a look at http://www.outlookcode.com/article.aspx?ID=52

An add-in such as Outlook Redemption http://www.dimastr.com/redemption/ or

ClickYes http://www.contextmagic.com/express-clickyes/ is the simplest
approach.
(this a systemtray option which will 'click' the yes button for you)

hth

 

[Pete D.]

You can try this,
http://www.everythingaccess.com/tutorials.asp?ID=Outlook-Send-E-mail-Without-Security-Warning