I have one computer that continues to generate this error when trying to execute the following code (which works fine on other computers...)
When clicking debug, the following line is highighted:
Set myOlApp = CreateObject("Outlook.Appl
Here is what I have tried:
1.) Confirmed this function works on other computers. It does.
2.) Confirmed no references are "missing" and that they are the same as the computers where this function runs correctly.
3.) "Ran"regsvr32 "C:\Program Files\Common Files\Microsoft Shared\DAO\DAO360.DLL" to reregister the DLL. Message received was that the registration was successful.
4.) Re-installed MS Office 2000 SP-3.
What else can I do on this...? After all of the above- still receive this error and Outlook does not open...
Public Function AssignmentEmail()
Dim myOlApp As Object
Dim myItem As Object
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
.To = Me.T_EXPERT_EMAIL
.SentOnBehalfOfName = Nz(DLookup("default_email", "tblcurrentuser"))
'.BodyFormat = olFormatRichText
.BodyFormat = olFormatPlain
If Me.T_PRIORITY = 1 Then
.Importance = olImportanceHigh
.Subject = Format(Me.T_TICKET_NBR, "00000") & "-IST *PRIORITY* Ticket-Category: " & Me.T_CAT_NAME
.Subject = Format(Me.T_TICKET_NBR, "00000") & "-IST Ticket-Category: " & Me.T_CAT_NAME
Set myItem = Nothing
Set myOlApp = Nothing