Run Access code, from separate excel...

[redbull]

I am trying to run code that is stored in an access database FROM an excel spreadsheet. I don't need any information returned into excel from access... I am looking around online and finding A LOT of solutions.. but nothing is working.






Location of .mde where the Code below resides...

" C:\Program Files\LIFT\LIFT.mde "

 Sub CreateHTMLMail()
        ''''Creates a new e-mail item and modifies its properties'


    Dim olApp As Outlook.Application
    Dim objMail As Outlook.MailItem
    Set olApp = Outlook.Application
    'Create e-mail item'
    Set objMail = olApp.CreateItem(olMailItem)
    Dim oServMan As InternetExplorer
    Dim Client, aClient, ClientNum, probloc, SMmail, Sum, Desc, SD As String
    Dim iQLS As Long
   
    Set oServMan = GetServMan
    Set otest = New clsSmselect


    otest.SMselect oServMan
 
    Set oServMan = GetServMan
  
        Client = otest.Client
        probloc = otest.probloc
        SMmail = otest.SMmail
        Sum = otest.Sum
        Desc = otest.Desc
        SD = otest.SD
 
    Set oServMan = Nothing
          ''' Assigning things above in outlook mail message.
      With objMail
        .Subject = Client & " / " & Sum & " / " & SD
        .Body = "Ticket Notes: " & Desc
        .To = SMmail
        .Display
        .ReadReceiptRequested = True
      End With
  End Sub

[redbull]

UPDATE :

I found this code...

Public Sub ProcedureInAccess()


Dim acApp As Object
Dim db As Object
Set acApp = CreateObject("Access.Application")
acApp.OpenCurrentDatabase ("C:\Program Files\LIFT\LIFT.mde")
Set db = acApp
acApp.Run "CreateHTMLMail()"
acApp.Quit
Set acApp = Nothing
End Sub

It is opening the database, then excel gives me an error saying...

Run-Time error '2517'
Application-defined of object-defined error.

Looking into this issue now.


----------------------

Figured it out.... the () on the sub caused the error.