HELP please - Automation error

[smdupont]

Hi everyone!

I am brand new to the Access world. I have downloaded files for a data base that I will use with my new job to my computer.

The data base tables and information is working great.

However, when I attempt to press the button that is suppose to open my outlook and import the emails - so that I can email the selelcted emails formt eh data base - I get a Run-time Error. I am so unfamiliar with programming - and I need some help!

Here is the error:
2147024770 (8007007e)
Automation error
The specified module could not be found.

I click on 'debug' and the following is what I see: (I made bold the line that is hilted yellow on my screen)

Public Sub CreateEmail(AllRecipients As Boolean, Optional EMail As String = "")
   Dim rs As DAO.Recordset
   Dim appOutLook 'As Outlook.Application
   Dim objMAPINameSpace 'As NameSpace
   Dim objMailItem 'As MailItem
   Dim objRecipient 'As Recipient
   Dim strSubject As String
 
 Set appOutLook = CreateObject("Outlook.Application")
 
   If appOutLook = "Outlook" Then
      strSubject = InputBox("Enter the subject of the e-mail", "Subject")
      Set objMAPINameSpace = appOutLook.GetNamespace("MAPI")
      objMAPINameSpace.Logon "profile", "password"
      Set objMailItem = appOutLook.CreateItem(0)   'olMailItem=0
      If AllRecipients Then
         Set rs = CurrentDb.OpenRecordset("SearchResults", dbOpenForwardOnly)
      Else
         If EMail = "" Then
            Set rs = CurrentDb.OpenRecordset("SELECT * FROM SearchResults WHERE SendTo = True", dbOpenForwardOnly)
         Else
            Set rs = CurrentDb.OpenRecordset("SELECT * FROM SearchResults WHERE False", dbOpenForwardOnly)
         End If
      End If
      While Not rs.EOF
         Set objRecipient = objMailItem.Recipients.Add(rs!Email1)
         objRecipient.Type = 3   'olBCC=3
         Set objRecipient = Nothing
         rs.MoveNext
      Wend
      If EMail <> "" Then
         Set objRecipient = objMailItem.Recipients.Add(EMail)
         objRecipient.Type = 3   'olBCC=3
         Set objRecipient = Nothing
      End If
      rs.Close
      Set rs = Nothing
      objMailItem.Subject = strSubject
      objMailItem.Body = "Message body goes here"
      objMailItem.Save
      objMAPINameSpace.Logoff
      Set objMAPINameSpace = Nothing
      Set appOutLook = Nothing
 
'      MsgBox "Your e-mail message has now been prepared and saved in your draft messages." & vbCrLf & _
'             "Please verify that the message is correct before sending it.", vbInformation, "Message Created"
   Else
      MsgBox "Error opening Outlook." & vbCrLf & _
             "Please try again before verifying with Daniel.", vbInformation, "Outlook Error"
   End If
End Sub

[Scott Price]

First of all, what version of Access and Outlook are you running?

Regards,
Scott

[smdupont]

I am using access 2003 and outlook 2003. (sorry - should have thought to say that in the original post)

[Scott Price]

I am using access 2003 and outlook 2003. (sorry - should have thought to say that in the original post)

OK, there are two things that come to mind... The most satisfactory resolution will come from the first, less satisfactory from the second.

When you open the database, press Alt+F11. This will bring up the VBA code window. Go to the Tools menu and click on References (first item on the list). Scroll the menu until you find Microsoft Office 12.0 Object Library and click the check box. (Note there will also be a Microsoft Access 11.0 Object Library, that is not the same as the Office library).

Try your email again.

Post back here if this doesn't work and we'll try the second.

Regards,
Scott

[smdupont]

I found the item in the list - and checked the box.

(it was version 11 instead of 12).

Then I tried the email button again - and I still get the same errror message.

So we will have to try option #2

Sherri

[Scott Price]

I found the item in the list - and checked the box.

(it was version 11 instead of 12).

Then I tried the email button again - and I still get the same errror message.

So we will have to try option #2

Sherri

For Office 2003 it should be version 12, check again to make sure that you have the Office and not Access object library. Also, have you installed all the MS Office updates? As an added suggestion, go to their website and see what updates they suggest (not just Windows updates, but Office updates as well.)

Regards,
Scott