Imports System.EnterpriseServices
Imports System
<ComClass(ComClass1.ClassId, ComClass1.InterfaceId, ComClass1.EventsId)> _
Public Class ComClass1
#Region "COM GUIDs"
' These GUIDs provide the COM identity for this class
' and its COM interfaces. If you change them, existing
' clients will no longer be able to access the class.
Public Const ClassId As String = "17467275-0A53-43E7-9AE7-60AB32A05F02"
Public Const InterfaceId As String = "9FE61E10-5539-462D-B5ED-E1582A87AE99"
Public Const EventsId As String = "F21653E7-30DF-48AF-BDFA-A827FA775EF2"
#End Region
Public Sub New()
MyBase.New()
End Sub
#Region "metodo"
Public Function metodo() 'ByVal nombre As String) As String
Dim objEC As compUtiles.clsUtiles
objEC.sub_SendMail("yesid.merchan@syngenta.com", "", "henry.collazos@syngenta.com", "", "Prueba", "Envió de correo", True, 0, 0, "henrycollazos@msn.com", 0, "")
End Function
#End Region
End Class