Sending emails (1 Viewer)

Hi,

I would like to send an email with the following code:


My question is: When I click "No" on the message box "A program is trying to automatically send e-mail on your behalf. Do you want to allow this?" I get a runtime error (2293: sending emails for Access can't send this e-mail message). How could I disable this runtime error message and put another messagebox made by me (I know little about error handling)?
Please help. Thanks.

There are plenty of threads on subject on the forum, do a search for the solutions.

I did a search and I found the following code:


but I still have the same problem.
I appreciate any kind of help.

You have initiated code to automatically send an email. So why would you then go and answer "No" to a warning that a program is trying to send email when you are the person who initiated the process in the first place

Have a look at this article for possible solutions.

I used to get this same message due to the security settings in Outlook. Change your security settings. I am using Access 2007, and the code I use to send a standard email with attachements is:

Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment

' Create the Outlook session.
Set objOutlook = CreateObject("Outlook.Application")
' Create the message.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
' Add the To recipient(s) to the message.
Set objOutlookRecip = .Recipients.Add("the TO email address goes here")
objOutlookRecip.Type = olTo
' Add the CC recipient(s) to the message.
Set objOutlookRecip = .Recipients.Add("your FROM email address goes here")
objOutlookRecip.Type = olCC
' Set the Subject, Body, and Importance of the message.
.Subject = "subject name"
.Body = "body of email" & vbCrLf & vbCrLf
.Importance = olImportanceHigh 'High importance

' Add attachments to the message.
Set objOutlookAttach = .Attachments.Add

' Resolve each Recipient's name.
For Each objOutlookRecip In .Recipients
objOutlookRecip.Resolve
If Not objOutlookRecip.Resolve Then
objOutlookMsg.Display
End If
Next
.Send
End With
Set objOutlookMsg = Nothing
Set objOutlook = Nothing
End Sub

kadara said:

How could I disable this runtime error message and put another messagebox made by me (I know little about error handling)?
Please help. Thanks.

Click to expand...

Hi Kadara,

Start with this link http://www.outlookcode.com/article.aspx?ID=52 then work around with the links that come off it. This will give you a better understanding of what you are dealing with.

The issue is that Microsoft in an update to Office 2003 stopped VBA programs (and ALMOST 100% of other languages ) from automatically sending emails, in an attempt (in my opinion very weak attempt) to curb viruses sending emails. All that it stopped was people like you and I (viruses still do this and a lot worse to Windows computers) and made a lot of money for the developer of for example Redemption to sell a program which does exactly what Microsoft stopped.

Now with 2007 and 2010 there are numerous workarounds (still you can buy Redemption ) The first is to lower your security level for programs like VBA to run on the PC. If you are in an administered environment this is going to be difficult.