Documentation for SaveEmailCmd

am using the SDK v8 sp1

where can i find some documentation on the IMANEXTLIB.SaveEmailCmd

cant seem to find anything in the WorkSite Extension Library v8 or in "whats new in iManExt.dll for worksite 8.0"

tia

m

Find more posts tagged with

Comments

Migrateduser

This command is not available for developer use, or so I have been told in the past... Smiley Sad

jny

You can use it but is no contextitem to support suppressing the "Save E-mail with Attachments" confirmation dialog (when the e-mail message has an attachment).

Dim dms As New imanage.NRTDMS
Dim sess As imanage.NRTSession
Dim cmd As IMANEXTLib.SaveEmailCmd
Dim context As IMANEXTLib.ContextItems
Dim sImportpath As String

sImportpath = "C:\Temp\Dummy Docs\samplefile.msg"

Set sess = dms.Sessions.Add("MYSERVER")
sess.TrustedLogin

Set cmd = New IMANEXTLib.SaveEmailCmd
Set context = New IMANEXTLib.ContextItems

With context
.Add "IManExt.SaveEmailCmd.BrowseLocation", True
.Add "NRTDMS", dms
.Add "ParentWindow", Me.hWnd
.Add "IManExt.SaveEmailCmd.EmailMsgFile", sImportpath
End With

With cmd
.Initialize context
.Update
If .Status = (.Status And nrActiveCommand) Then
.Execute
Dim bRefresh
bRefresh = context("IManExt.Refresh")
If bRefresh Then ' Command executed successfully
On Error Resume Next
Dim doc As NRTDocument
Dim varDox
Dim ierrs
' Check whether document is checked-in; since there isn't a context item to check whether
' the checkbox is enabled by the user to include attachment files,
' this is one way to verify user's selection.
varDox = context("IManExt.NewDocuments")
Set doc = varDox(0)
If doc.CheckedOut Then
' This document may have attachments but user selected not to check in attachments.
' In this case, we need to check in the source email file to WorkSite.
doc.CheckIn sImportpath, nrNewDocument, nrDontKeepCheckedOut, ierrs
Set doc = Nothing
' We then need to check whether user has selected a folder destination
Dim varFldrs
Dim fldr As NRTFolder
varFldrs = context("IManExt.SaveEmailCmd.ImportFolders")
If Not IsEmpty(varFldrs) Then
' Add a reference to the specified folder
Set fldr = varFldrs(0)
fldr.Documents.Add doc
Set fldr = Nothing
End If
End If
End If
End If
End With

Set context = Nothing
Set cmd = Nothing
Set sess = Nothing
Set dms = Nothing
End