Enterprise Data Services Community Blog
2 MIN READ
Extract Item - ECM
Wayne_Humphrey
15 years agoLevel 6
To combibe all the SISParts and stuff you can use the following hta script to use the ECM APT to do :
Save it as get_item.hta
<html> <title>Extract Item</title> <head> <HTA:APPLICATION ID="objMyApp" APPLICATIONNAME="Extract Item" BORDER="thin" BORDERSTYLE="normal" CAPTION="yes" CONTEXTMENU="no" INNERBORDER="no" MAXAMIZEBUTTON="yes" MINIMIZEBUTTON="yes" NAVIGABLE="yes" SCROLL="no" SELECTION="yes" SHOWINTASKBAR="yes" SINGLEINSTANCE="no" SYSMENU="yes" VERSION="1.0" WINDOWSTATE="normal"> </head> <script language="VBScript"> On Error Resume Next Dim ContentManagementAPI Set ContentManagementAPI = CreateObject("EnterpriseVault.ContentManagementAPI") 'load routine Sub window_onload window.resizeTo 555,250 End Sub Sub Submit Dim item set item = ContentManagementAPI.Item On Error Resume Next dim CurAction CurAction = "Recombining saveset into MSG" item.ArchiveId = ArchiveId.value item.Id = Id.value item.Content.Data = Content.value item.Get(3) Message.innerHTML = "<font color=""green""> Complete</font>" if (err.number <> 0) then Message.innerHTML = "<font color=""red""><b>Faild! </b>- </font>" & hex(Err.number) msgbox "Description: " & Err.Description & Err.Description, vbOkOnly + vbcritical, CurAction 'msgbox "Reason: " & hex(Err.number) & vbcrlf & "Description: " & Err.Description, vbOkOnly + vbcritical, CurAction err.clear end if End Sub </script> <STYLE TYPE="text/css"> BODY { font-family: Verdana, Arial, Helvetica, sans-serif; font:menu; background-color:Menu; color:MenuText; font-size: 8pt; cursor:default; //auto, text, pointer } .filtout { filter:progid:DXImageTransform.Microsoft.Alpha(opacity=20); } .filtnorm { filter:progid:DXImageTransform.Microsoft.Alpha(opacity=100); } .fileListTb { Font-Family:Verdana;Font-Size:8pt; } </STYLE> </HEAD> <BODY TOPMARGIN=0> <center><b>Combine SaveSet</b></center><br> <b> Archive ID:</b><br> <input type="text" name="ArchiveId" value="100A35039C274FB4196F8E0740B9A00191110000GPKENTVLT1.domain.com" size="85" /><br> <b> Transaction ID:</b><br> <input type="text" name="Id" value="5CA3C95B8654437AAC0DFFEC3CEAE356" size="50" /><br> <b> Save Item As:</b><br> <input type="text" name="Content" value="C:\message_name.msg" size="30" /> <center> <input class="button" TYPE=BUTTON value="Save" name="btnSubmit" onClick="Submit"></center> <b>Status: </b><br><span id="message"></span> </body> </html>
Published 15 years ago
Version 1.0Wayne_Humphrey
Level 6
Joined October 02, 2007
Enterprise Data Services Community Blog
Enterprise Data Services Community Blog is the perfect place to share short, timely insights including product tips, news and other information relevant to the community.