Hello, i am trying to use Invoke code some email automation and i am facing compiler issue with the error “Option strict on disallows late binding in invoke code”. Any suggestions on how to fix? Below is the code:
Dim outlook As Object
Dim ns As Object
Dim Inbox As Object
Dim myProp As String
Dim myItem As Object
Dim FoldersArray() As String
Dim oPA As Object
Dim i As Integer
Try
outlook = CreateObject(“Outlook.Application”)
ns = outlook.GetNamespace(“MAPI”)
myProp = “http://schemas.microsoft.com/mapi/proptag/0x6E010003”
'> Get the root Inbox element
If Outlook_Mailbox <> "" Then
Inbox=ns.Folders(Outlook_Mailbox) '
Else
Inbox = ns.GetDefaultFolder(6) 'Default Inbox Folder
End If
'> Get to the subfolder
If Not(String.IsNullOrEmpty(Subfolder_Path)) Then
FoldersArray = Split(Subfolder_Path, "\")
If Outlook_Mailbox <> "" Then
Inbox = Inbox.Folders(FoldersArray(0))
End If
For i = 1 To UBound(FoldersArray, 1)
If FoldersArray(i) <> "" Then
Inbox = Inbox.Folders(FoldersArray(i))
End If
Next i
End If
'> Get the e-mail from folder
If Inbox.Items.Count <> 0 Then
myItem = Inbox.Items.getFirst()
'Decrypt email
oPA = myItem.PropertyAccessor
oPA.SetProperty(myProp, 0)
myItem.UnRead = False
myItem = Nothing
success = True
message = ""
End If
Catch e As System.Exception
success = False
message = e.Message
End Try