Set objApp = Application Not Working in O365-32bit

bmtjedi

New Member
Outlook version
Outlook 2019 32-bit
Email Account
IMAP
Switched to O365 32-bit today and a macro that has worked since Outlook 2007 is no longer working. Any ideas why "Set objApp = Application" doesn't work? Error is Object Library feature not supported. This macro puts the conference info in the Location line for Skype meetings (which used to be OCS a long time ago - still works with Skype):

Sub OCS_Appointment_Location()
Dim objApp As New Outlook.Application
Dim objMsg As Object
Dim strBody As String
Dim strConfID As String

Set objApp = Application
Set objMsg = Application.ActiveInspector.CurrentItem
strBody = objMsg.Body

strConfID = FindConferenceID(strBody)
objMsg.Location = objMsg.Location & ": 877-848-XXXX, " & strConfID & "#"

Set objApp = Nothing
Set objMsg = Nothing
End Sub

Function FindConferenceID(strText As String) As String
Dim i As Long, J As Long, strTest1 As String, strTest2 As String
Dim strChar As String, strConfID As String

For i = 1 To Len(strText)
strTest1 = Mid(strText, i, 14)
If strTest1 = "Conference ID:" Then
For J = 15 To 30
strChar = Mid(strText, i + J, 1)
If Asc(strChar) <> 13 Then
strConfID = strConfID & strChar
Else
FindConferenceID = strConfID
Exit Function
End If
Next J
End If
Next i

End Function

Thanks for any suggestions.

2020-02-13_15-30-00.png
 

bmtjedi

New Member
Outlook version
Outlook 2019 32-bit
Email Account
IMAP
In case anyone is interested, I solved this problem. Remarking out the Set ObjApp line removes the error. Apparently, the Application object doesn't need to be set in Outlook 365 VBA.
 
Top