Dim oMsg As New CDO.Message
        Dim iConfig As CDO.IConfiguration
        Dim oFields As ADODB.Fields
        Dim oField As ADODB.Field
 
 
        Dim strEmailAddress As String = "jobstar@yahoo.co.uk"
        Dim strSubject As String = "Request  for missions"
        Dim msgMail As String = "Pls Find below the details. Thank You."
 
        iConfig = oMsg.Configuration
        oFields = iConfig.Fields
        ' Set configuration.
        'using the local smtp server
        oField = oFields("http://schemas.microsoft.com/cdo/configuration/sendusing")
        oField.Value = 1
        oFields.Update()
 
        Try
 
            'message()
            oMsg.TextBody = msgMail
            oMsg.Subject = strSubject
 
            oMsg.From = "terrastar@comstar.net"
            oMsg.To = strEmailAddress
            oMsg.Send()
 
        Catch x As Exception
        Finally
 
        End Try