How to Send email Based On Predecessors when Activity Get complete

Hello I Tried to solve this problem using below code but i got this error window shown below.. i want to send email when activity get complete..so i tried to add some logic and code in OnCompleteActivity method but didn’t work please help me to solve this..it’s urgent ——–Code———– ‘ name: onCompleteActivity ‘ purpose: APQP. ‘ created: 24-MAY-2005 Alex Cheushev ‘ (c) Copyright by Aras Corporation, 2005-2008. ‘ MethodTemplateName=VBScriptMainUpgrade Dim activity As XmlElement = Me.dom.DocumentElement Dim qryItem As Item = Me.newItem(“Activity2”, “edit”) qryItem.setID(activity.getAttribute(“id”)) qryItem.setAttribute(“serverEvents”, “0”) qryItem.setAttribute(“doGetItem”, “0”) qryItem.setProperty(“date_due_act”, “__now()”) ‘++++ Add current user to Program Management identity. +++ Const pmIdentityNm As String = “Project Management” Dim pmIdentity As Aras.Server.Security.Identity = Aras.Server.Security.Identity.GetByName(pmIdentityNm) Dim pmIdentityWasGranted As Boolean = Aras.Server.Security.Permissions.GrantIdentity(pmIdentity) ‘—- Add current user to Program Management identity. — Dim res As Item Try res = qryItem.apply() Finally If pmIdentityWasGranted Then Aras.Server.Security.Permissions.RevokeIdentity(pmIdentity) End If End Try ‘+++++ to send email to changed/added assignees, leaders +++++ Dim inDom2SendEmails As New XmlDocument inDom2SendEmails.LoadXml(“<root/>”) inDom2SendEmails.DocumentElement.AppendChild(inDom2SendEmails.ImportNode(inDom.DocumentElement, True)) Dim activities4email As ArrayList = getActivitiesWithChangedLeader(inDom2SendEmails) ‘—– to send email to changed/added assignees, leaders —– ‘+++++ Send Emails Dim mailInDom As XmlDocument = New XmlDocument() Dim activeAssignment As XmlElement Dim elem As XmlElement Dim i As Integer Dim flagNm As String = “use_identities_from_xml_only” Dim act_asnees_dict As New Hashtable ‘key is activity&assignee (indicates that assignee is emailed about the activity) Dim k As String For i = 0 To activities4email.Count – 1 activity = CType(activities4email.Item(i), XmlElement) mailInDom.LoadXml(activity.OuterXml) elem = CType(mailInDom.SelectSingleNode(“Item/Relationships”), XmlElement) If Not elem Is Nothing Then elem.ParentNode.RemoveChild(elem) mailInDom.DocumentElement.SetAttribute(flagNm, “1”) k = String.Format(CultureInfo.InvariantCulture, “{0};{1}”, activity.GetAttribute(“id”), CCO.XML.GetItemProperty(activity, “managed_by_id”)) act_asnees_dict.Add(k, “”) CCO.ApplyItem.ExecuteMethodByName(mailInDom, outDom, “SendEmailToA2AssigneeComplete”, True) If (CCO.XML.HasFault(outDom, False)) Then End If Next ‘—– Send Emails ‘ Dim mailInDom As XmlDocument = New XmlDocument() ‘ Dim flagNm As String = “use_identities_from_xml_only” ‘ mailInDom.DocumentElement.SetAttribute(flagNm, “1”) ‘ CCO.ApplyItem.ExecuteMethodByName(mailInDom, outDom, “SendEmailToA2AssigneeComplete”, True) Return res ——–ERROR——– Checking syntax… ERROR: 4A6DA89DF75347E2BA69E9F788179FF8. Details in 6 temporary files D:\ARAS\Innovator\Innovator\Server\dll\g4n4tg4k Line number 34, Error Number: BC30451, ‘inDom’ is not declared. It may be inaccessible due to its protection level. Line number 35, Error Number: BC30451, ‘getActivitiesWithChangedLeader’ is not declared. It may be inaccessible due to its protection level. Line number 57, Error Number: BC30451, ‘outDom’ is not declared. It may be inaccessible due to its protection level. Line number 58, Error Number: BC30451, ‘outDom’ is not declared. It may be inaccessible due to its protection level.