Code Invoking Issues

[Jimmy_Greaves]

Hi all,

I am looking to get some help with invoking code in UiPath; Vb.net.

I have written the code in the VS and it works fine:

Module Module1

Sub Main()
    Dim File As String
    Dim OlApp As Object
    OlApp = CreateObject("Outlook.Application")

    File = "C:\Users\greavesj\Desktop\Projects\Test\AP Process\Email_Attachment_Temp\Email Attachments\Test - Embedded PDF.msg"

    Dim Email = OlApp.CreateItemFromTemplate(File)

    For Each Attachment In Email.Attachments
        If Attachment.FileName().Contains(".pdf") Then
            Attachment.SaveAsFile("C:\Users\greavesj\Desktop\Projects\Test\AP Process\Email_Attachment_Temp\Email Attachments\" & Attachment.FileName())
        Else
        End If

    Next
End Sub

End Module

**Code in UiPath:
Dim File As String
Dim OlApp As Object
OlApp = CreateObject(“Outlook.Application”)

    File = "C:\Users\greavesj\Desktop\Projects\Test\AP Process\Email_Attachment_Temp\Email Attachments\Test- Embedded PDF.msg"

    Dim Email = OlApp.CreateItemFromTemplate(File)

    For Each Attachment In Email.Attachments
        If Attachment.FileName().Contains(".pdf") Then
            Attachment.SaveAsFile("C:\Users\greavesj\Desktop\Projects\Test\AP Process\Email_Attachment_Temp\Email Attachments\" & Attachment.FileName())
        Else
        End If

    Next

Issues:

[ppr (Peter Preuss)]

@Jimmy_Greaves
have a check if the validation errors get reduced by:

on top define:
Dim Email As Object

More down in the code change: Dim Email into Set Email

Similar do it on other Dims without Datatype definitions and use Set for init the objects

Just refer to some working code lines e.g. like here:

Response button in Outlook mail

Hello @JJ_kobalt, You can try this- Hope this helps. Set objOutlook = CreateObject(“Outlook.Application”) Set objMail = objOutlook.CreateItem(0) objMail.Display 'To display message objMail.To = “Sender email address” objMail.Subject = “Test Mail Subject” objMail.Body = “This is Email Body” objMail.VotingOptions=“Yes;No” objMail.Send objOutlook.Quit Set objMail = Nothing Set objOutlook = Nothing Copy the above code in notepad and save as .vbs for running. This will create voting bu…

[Jimmy_Greaves]

Had a look at some of these things, main issue at the moment is Option Strict configuration, any ideas how to explicitly reference the data types? I am new to coding so I have had only dealt with vb.net in VS

[ppr (Peter Preuss)]

the option strict message comes from missing datatype declaration

As mentioned above add it to the declaration:

with looking to the code samples you will find some helping lines and can reduce the validation messages step by step