Attribute VB_Name = "VidessSaveSend"
Option Explicit

Public Sub main()
    Dim channel
    Dim response$
    Dim x As Integer
    Dim Word As Object
    
    On Error Resume Next
    ' Attempt to reference running instance of Word
    Set Word = GetObject(, "Word.Application")
    ' If Word isn't running, create a new instance
    If Word Is Nothing Then Set Word = CreateObject("Word.Application")
    
    If Not Word.Application.Tasks.Exists("Document Management") Then
        MsgBox "Videss Document Management is not running.", 16, "Document Management"
        End
    End If
    If Not Word.Application.Tasks.Exists("DocMan") Then
        MsgBox "Videss Document Manager is not running.", 16, "Document Management"
        End
    End If
      
    channel = Word.DDEInitiate("Docman", "System")
    Word.DDEExecute channel, "MAIL_SAVE"
    response$ = Word.DDERequest(channel, "Text1")
    Word.DDETerminate channel
      
    If Word.Application.Tasks("Document Management").WindowState = 1 Or Word.Application.Tasks("Document Management").WindowState = 2 Then
        Word.Application.Tasks("Document Management").WindowState = 0
    End If
      
    Word.Application.Tasks("Document Management").Activate
    x = Word.Application.Tasks("Document Management").Width
        
    ' Force resize trigger in progress
    Word.Application.Tasks("Document Management").Width = x - 1
    Word.Application.Tasks("Document Management").Width = x
    
    If Not Word.UserControl Then
        Word.Quit
        Set Word = Nothing
    End If
End Sub