Forum

  • If you are new to these Forums, please take a moment to register using the fields above.
Announcement Announcement Module
Collapse
No announcement yet.
Error running GTDPolice Macro Page Title Module
Move Remove Collapse
X
Conversation Detail Module
Collapse
  • Filter
  • Time
  • Show
Clear All
new posts

  • Error running GTDPolice Macro

    Hi all after some guidance on this forum I managed to track down GTDPolice/Next Step hybrid macro.


    PHP Code:
    Private Sub Application_Startup()
    'TVCodeTools ErrorEnablerStart
    On Error GoTo PROC_ERR
    '
    TVCodeTools ErrorEnablerEnd

    Dim objNS 
    As NameSpace
    Set objNS Application.GetNamespace("MAPI")
    Set objTaskItems objNS.GetDefaultFolder(olFolderTasks).Items

    'TVCodeTools ErrorHandlerStart
    PROC_EXIT:
    Exit Sub

    PROC_ERR:
    Call LogError(Err.Number, Err.Description, "Application_Startup", Erl, "ThisOutlookSession")
    Resume PROC_EXIT
    '
    TVCodeTools ErrorHandlerEnd

    End Sub


    Private Sub objTaskItems_ItemChange(ByVal pobjItem As Object)
    'TVCodeTools ErrorEnablerStart
    10 On Error GoTo PROC_ERR
    '
    TVCodeTools ErrorEnablerEnd

    Dim objApp 
    As Outlook.Application
    Dim objNewTask 
    As TaskItem
    Dim intAns 
    As Integer
    Dim strSubject 
    As String
    Dim strProject 
    As String
    Dim objProperty 
    As UserProperty
    Dim strBody 
    As String
    Dim NewSubject 
    As String
    Dim NewBody 
    As String
    Dim PosCR 
    As Integer



    20 Set objApp 
    CreateObject("Outlook.Application")


    30 If GetSetting(appname:="GTDPolice"section:="Settings"key:="Enable", Default:=0) = 1 Then
    ' Start NetCentrics Addin code
    40 Set objProperty = pobjItem.UserProperties.Find("Project")
    50 If Not objProperty Is Nothing Then
    60 strSubject = pobjItem.Subject
    70 strProject = pobjItem.UserProperties("Project")
    75 strBody = pobjItem.Body
    80 If Not pobjItem.UserProperties("Project") = "" Then
    90 If pobjItem.Status = 2 Then
    '
    Next Steps code starts here
    95 
    If Left(strBody1) = "-" Then 'dash can be replaced for any other constant traile
    100 Set objNewTask = objApp.CreateItem(olTaskItem)
    110 With objNewTask
    120 objNewTask.UserProperties.Add("Project", olText) = strProject '
    Item.UserProperties("Project")
    130 objNewTask.UserProperties.Add("GettingThingsDone"olYesNo) = 1
    133 
    If InStr(strBodyvbCrLf) <> Empty Then
    135 PosCR 
    InStr(strBodyvbCrLf'looks for position of carriage return
    140 objNewTask.Subject = Mid(strBody, 3, (PosCR - 3)) '
    third position in Mid removes "- "
    150 objNewTask.Body Right(strBody, ((Len(strBody) - PosCR) - 1))
    155 Else
    157 objNewTask.Subject Right(strBody, ((Len(strBody) - 2))) 'number 2 removes "- "
    160 End If
    '
    objNewTask.Subject "[" Item.UserProperties("Project") & "]"
    190 objNewTask.Display
    200 End With
    'Next Steps ends here

    210 Else
    220 intAns = MsgBox("You have completed a Project-related Task." & vbCrLf & "Task: " & strSubject & vbCrLf & "Project: " & strProject & vbCrLf & "Do you want to create a new Next Action for the Project?", 36, "Next Action?")
    230 If intAns = 6 Then
    240 Set objNewTask = objApp.CreateItem(olTaskItem)
    250 With objNewTask
    260 objNewTask.UserProperties.Add("Project", olText) = strProject '
    Item.UserProperties("Project")
    270 objNewTask.UserProperties.Add("GettingThingsDone"olYesNo) = 1
    280 
    'objNewTask.Subject = "[" & Item.UserProperties("Project") & "]"
    285 objNewTask.Display
    290 End With
    300 End If
    310 End If
    320 End If
    330 End If
    340 End If
    350 End If
    360 Set objApp = Nothing
    370 Set objNewTask = Nothing
    380 Set objProperty = Nothing
    390 Set pobjItem = Nothing

    '
    TVCodeTools ErrorHandlerStart
    PROC_EXIT
    :
    400 Exit Sub

    PROC_ERR
    :
    500 Call LogError(Err.NumberErr.Description"objTaskItems_ItemChange"Erl"ThisOutlookSession")
    510 Resume PROC_EXIT
    'TVCodeTools ErrorHandlerEnd

    End Sub 
    Unfortunately on running the macro i get a message saying sub or function not defined. I thi k it relates to the following subsection of the code above:

    PHP Code:
    Call LogError(Err.NumberErr.Description"Application_Startup"Erl"ThisOutlookSession")
    Resume PROC_EXIT
    'TVCodeTools ErrorHandlerEnd 
    Can anyone point me in the right direction?
Working...
X