Parker Software Forum : Error: 0, Not Object Reference http://www.parkersoft.co.uk/forum/ This is an XML content feed of; Parker Software Forum : Scripting : Error: 0, Not Object Reference Sat, 25 May 2013 23:07:34 +0000 Mon, 12 Dec 2011 11:53:50 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 9.64 360 www.parkersoft.co.uk/forum/RSS_post_feed.asp?TID=8420 Parker Software Forum http://www.parkersoft.co.uk/forum/forum_images/PSLSmall.bmp http://www.parkersoft.co.uk/forum/ Error: 0, Not Object Reference : My apologise i though it was Visual... http://www.parkersoft.co.uk/forum/forum_posts.asp?TID=8420&PID=19162#19162 Author: jnymris
Subject: 8420
Posted: 12 Dec 2011 at 11:53am

My apologise i though it was Visual Basic (VB) rather than actual VBScripting, thanks very much for you help I feel like a complete "Donkey" now :$ Sorry to cause an inconvenience

Jny 
]]> Mon, 12 Dec 2011 11:53:50 +0000 http://www.parkersoft.co.uk/forum/forum_posts.asp?TID=8420&PID=19162#19162 Error: 0, Not Object Reference : Hi,The Email2DB Scripting is VBScript... http://www.parkersoft.co.uk/forum/forum_posts.asp?TID=8420&PID=19161#19161 Author: Stephen
Subject: 8420
Posted: 12 Dec 2011 at 11:22am

Hi,

The Email2DB Scripting is VBScript - not Javascript. So the .Javascript String.indexof != won't work. You need to use 

If Instr(1,MSG_Body,"[P1]") = 0 Then
.. code
End If

Steve
]]> Mon, 12 Dec 2011 11:22:19 +0000 http://www.parkersoft.co.uk/forum/forum_posts.asp?TID=8420&PID=19161#19161 Error: 0, Not Object Reference : I'm trying to modifiy a script... http://www.parkersoft.co.uk/forum/forum_posts.asp?TID=8420&PID=19160#19160 Author: jnymris
Subject: 8420
Posted: 12 Dec 2011 at 10:36am

I'm trying to modifiy a script that has been created by another member of staff (due to them leaving) 
I'm trying to add this line:
If(MSG_Body.indexOf("[P1]") != -1)
as i'm not wanting to process email that have a defined: [P1] in the message of the body

However when i try and save i get
Error: 0
Not an Object Reference.

I can see MSG_Attachment in the script so i'm wondering if i need to do anything else to enable MSG_Body?

Here's my full code should you need it. . .
Sub Main()
    Dim x As Integer
    Dim myATApp As String
    Dim myFile As String

    myATApp = "C:\IT Folder\AutotaskAPI.exe"

    If MSG_AttachmentCount = 0 Then
        Exit Sub
    End If

    For x = 1 To MSG_AttachmentCount
        If(MSG_Body.indexOf("[P1]") != -1)
        {
            myFile = "C:\Temp\" & MSG_Attachment(x)
            FileCopy MSG_AttachmentTempLocation(x), myFile
            Shell(myATApp & " AddAttachment " & FIELDS_Value("TicketNumber") & " " & MSG_Attachment(x) & " " & myFile & " " & MSG_Subject)

            'pause for 30 seconds
            Sleep 30000

            Kill myFile
        }
    Next x
End Sub

Declare Sub Sleep Lib "kernel32" (ByVal milliseconds As Long)

]]> Mon, 12 Dec 2011 10:36:56 +0000 http://www.parkersoft.co.uk/forum/forum_posts.asp?TID=8420&PID=19160#19160