Page 675- Creating an E-mail ?

liamfitz · June 20th, 2012, 10:54 AM

The following is the code I have used from this page in the book. I have provided the variable values, ( which I have assumed are the only things which need to be changed ) Tha call procedure and my parameters are also listed. However, I get the following error message, highlighting the line 'Set olMailItem = olApp.CreateItem(olMailItem)' - "Object variable or With block variable not set. " Any ideas ?

Code:

 
Public Function SendEmailWithOutlook(MessageTo As String, Subject As String, MessageBody As String)
' Define app variable and get Outlook using the "New" keyword
Dim olApp As New Outlook.Application
Dim olMailItem As Outlook.MailItem ' An Outlook mail item
' Create a new e-mail object
Set olMailItem = olApp.CreateItem(olMailItem)
' Add the To/Subject/Body to the message and display the message
With olMailItem
    .To = MessageTo
    .Subject = Subject
    .Body = MessageBody
    .Send    ' Send the message immediately
End With
' Release all object variables
Set olMailItem = Nothing
Set olApp = Nothing
End Function

Code:

 
Call SendEmailWithOutlook("[email protected]", "Test e-mail for AfAIS Database Referrals", "Referral No. 1FB060612 was referred 14 days ago. Status remains unassessed. Thank you")

malcolmdixon · June 20th, 2012, 02:43 PM

Hi again,

It looks like it's a case of bad variable naming, the variable olMailItem conflicts with the constant of the same name, so just rename the variable to objMailItem in all instances except where the constant olMailItem is used in the CreateItem method.

That is the code that creates the mail item should be:
Set objMailItem = olApp.CreateItem(olMailItem)

You could even just change the constant used to 0 instead and it will work, but it's better to use the constant rather than hard code the value.

I would change the olApp to objApp or objOutlook too, but it's unnecessary.

HTH.

Malc.

liamfitz · June 20th, 2012, 03:16 PM

Thank you. As you can see I just literally copied the code in the book into my program. Would these anomalies be obvious, if I had downloaded the relevant code for this ? Or is the example, 'badly' coded ?

malcolmdixon · June 20th, 2012, 03:55 PM

Hi,

I'm not sure if the downloaded code is any different. I have this book too and would say the example is badly coded considering it does not work! However, the authors of this book are extremely clever people and Access experts, so this is more likely a typo that has been introduced during printing.

Anomalies will only be obvious if you fully understand the context of the code anyway!

Malc.

liamfitz · June 21st, 2012, 05:57 AM

I take your point. I'm about to make the changes you suggest.

liamfitz · June 21st, 2012, 06:14 AM

It seems to cause an error on the '.Send' instruction of the routine. I substituted, '.Display' for '.Send', as in the example on the previous page, and this tries to open Outlook ( on my computer ) I'm not familiar with OUTLOOK as a program, so I'm not sure how to get round this.

malcolmdixon · June 21st, 2012, 07:17 AM

Hi,

That is the whole point of this code, to open Outlook, create an email message and send it. If you don't have Outlook set up as an email client then it will not work!

Which email client do you use? You should probably try using the DoCmd.SendObject Method instead, read about it in Help.

Malc.

liamfitz · June 21st, 2012, 10:06 AM

Thank you for your advice. I will look into it.

liamfitz · June 22nd, 2012, 09:05 AM

We are using OUTLOOK as the e-mail client. I am on a 'remote' computer, NOT part of the organisations's network. Does this matter, and if so, should DoCmd.SendObject, forward the e-mail over the internet to them ?

liamfitz · June 22nd, 2012, 09:45 AM

I have coded using the 'DoCmd.SendObject', but it is asking that an OUTLOOK account be set up, and password isn't valid ? Are you able to help ? I'll use this method if it works ( as it's only one line of code ! ) Is it to do with the type of 'connectedness' or otherwise, of the sender and the recipient ? I'm trying to send a test e-mail from a public computer, to my organisation who I'm designing for ( using an event trigger in my VBA ). Thank you if you can elucidate in any way.