Automation Error Sending EMail from Access

OutlookEmailRoutines_bas

The line of code that sends it to the errorcatch is the CreateObject statement

Set objOl = CreateObject("Outlook.Application")

Similar error in this Q: http://www.experts-exchange.com/Databases/MS_Access/Q_21291393.html
Does that help ?

Nic;o)

Nic;o)

I have all the latest SP's (as per MS Office Update)
When I type Outlook.    in the immediate window I do get intellisense response

I am figuring it has to be something with the installation... but what??

When I get home I will try to do a repair on the Office Installation and hit Office Update again.

I ran the reg for the DAO360 dll as per the other questions suggestion...  NFG

The application is running fine.   This is a New addition to the app, and my first serious attempt at Automation, so it isn't necesserally a new problem that a restore point would help..

Outlook works fine...
Application works fine (save this new addition)
Nothing else is acting flakey...  but it does not want to "Create the Object"

Now the reference to Outlook does not point to a DLL, but to msoutl.olb
What is an OLB??

Rich

OLB is the file extension for the Object Library file associated with OLE

Also no system restore point to check ?

Nic;o)

No system Restore points...   I disabled the process a long time ago...  Every experience that I have had with System Restore usually ended up with 5 things breaking while trying to fix one.

Rich

I have always found it is easier and more reliable to uninstall and reinstall from scratch

The full routine Follows...

Public Sub sbSendMessage(strTo As String, _
                       strSubj As String, _
                       strBody As String, _
                Optional strCC As String, _
                Optional strBCC As String, _
                Optional strAttch As String)
         
On Error GoTo ErrorMsgs

Dim objOl      As Outlook.Application
Dim objOlMsg   As Outlook.MailItem
Dim objOlRecip As Outlook.Recipient
Dim objOlAttch As Outlook.Attachment
   
    '--------------------------------
    ' Create the Outlook session.
    '--------------------------------
   
    Set objOl = CreateObject("Outlook.Application")   '<<<  Bombs here
   
    '--------------------------------
    ' Create the message.
    '--------------------------------
    Set objOlMsg = objOl.CreateItem(olMailItem)
   
    With objOlMsg
        '-----------------------------------------------------
        ' Add the To recipient(s) to the message. Substitute
        ' your names here.
        '-----------------------------------------------------
        Set objOlRecip = .Recipients.Add(strTo)
        objOlRecip.Type = olTo
       
        '-----------------------------------------------------
        ' Add the CC recipient(s) to the message.
        '-----------------------------------------------------
        If Len(strBCC) Then
            Set objOlRecip = .Recipients.Add(strCC)
            objOlRecip.Type = olCC
        End If
       
        '-----------------------------------------------------
        ' Add the CC recipient(s) to the message.
        '-----------------------------------------------------
        If Len(strBCC) Then
            Set objOlRecip = .Recipients.Add(strBCC)
            objOlRecip.Type = olBCC
        End If
       
        '-----------------------------------------------------
        ' Set the Subject, Body, and Importance of the message.
        '-----------------------------------------------------
        .Subject = strSubj
        .Body = strBody
        .Importance = olImportanceHigh  'High importance
       
        '-----------------------------------------------------
        ' Add attachments to the message.
        '-----------------------------------------------------
        If Not IsMissing(strAttch) Then
            Set objOlAttch = .Attachments.Add(strAttch)
        End If
       
        '-----------------------------------------------------
        ' Resolve each Recipient's name.
        '-----------------------------------------------------
        For Each objOlRecip In .Recipients
            If Not objOlRecip.Resolve Then
                objOlMsg.Display
            End If
        Next
        .Send
        DoCmd.Beep
    End With
   
    Set objOlMsg = Nothing
    Set objOl = Nothing
    Set objOlRecip = Nothing
    Set objOlAttch = Nothing

ErrorMsgs:
   
    If Err.Number = "287" Then
        MsgBox "You clicked No to the Outlook security warning. " & _
               "Rerun the procedure and click Yes to access e-mail" & _
               "addresses to send your message. " & vbCrLf & _
               "For more information, see the document at " & vbCrLf & _
               "http://www.microsoft.com/office/previous/outlook/downloads/security.asp. "
    Else
      MsgBox Err.Description, vbInformation, Err.Number
    End If
End Sub

I have tried routines from other sources and it is always the CreateObject that causes the problem

I dropped the Exit sub before the ErrorMsgs label...  but it is there...   when I single step through the code...  it is the createObject that causes the problem...

I will Repair and/or reinstall Office this evening to see if it makes a difference

Rich