Sending email without Outlook

[PKM]

I have a drop down box on a form.
On click has an Event Procedure:

Private Sub Person_No_Click()

Dim EmailAddr As String
Dim Message As String
Dim Title As String


EmailAddr = DLookup("[EmailAddress]", "tlkpPerson", "[Person_No] = " & [Person_No])
Title = "You have been added to a Work Plan Item"

Message = "You have been added as a resource to the Work Plan Item: " & [WorkName] & ", remember it’s your responsibility to add time to this WPI."

DoCmd.SendObject acSendNoObject, , , EmailAddr, , , Title, Message, No


End Sub

I then get a message box that is titled: Microsoft Outlook.
The text says: "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."
If I wait until the Yes box is valid and select Yes, my email is sent and I receive it in my GroupWise account.

I would like to get rid of the message.
Any one know how to do this?

 

[PHV]

Do a google search for outlook object model guard

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[jrbarnett]

You can also send via SMTP without using Outlook at all - for more information on how to do this see thread705-1074590.

John