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.
