Imports System.Runtime.InteropServices
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim RevMgrApplnObj As RevisionManager.Application = Nothing
Dim bstrInputFileName As String = "C:\Asm1.asm"
Dim bstrInputFilePassword As String = Nothing
Dim recipientAddress As String = Nothing
Dim bAttachment As Boolean = True
Dim bstrPCFFilePathTobeCreated As String = Nothing
Dim bRemoveGeometry As Boolean = False
Dim pcfFilePermission As RevisionManager.PCFFilePermissions
Dim bstrPCFFilePassword As String = Nothing
Dim bstrSubject As String = Nothing
Dim bstrMessageBody As String = Nothing
Try
RevMgrApplnObj = Marshal.GetActiveObject("RevisionManager.Application")
If RevMgrApplnObj Is Nothing Then
RevMgrApplnObj = Activator.CreateInstance(Type.GetTypeFromProgID("RevisionManager.Application"))
RevMgrApplnObj.Visible = True
End If
'Invoke the SendMailToRecipient API
RevMgrApplnObj.SendMailToRecipient(bstrInputFileName, bstrInputFilePassword, recipientAddress, bAttachment, bstrPCFFilePathTobeCreated, bRemoveGeometry, pcfFilePermission, bstrPCFFilePassword, bstrSubject, bstrMessageBody)
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
End Class