Sub SendEmail()        Dim message1, message2 As String

        Dim EM As EMsgAPIJobSubmit201101.JobSubmitService = New EMsgAPIJobSubmit201101.JobSubmitService
        Dim request As EMsgAPIJobSubmit201101.Request = New EMsgAPIJobSubmit201101.Request
        Dim authentication As EMsgAPIJobSubmit201101.RequestAuthentication = New EMsgAPIJobSubmit201101.RequestAuthentication
        Dim xddsauth As EMsgAPIJobSubmit201101.XDDSAuthType = New EMsgAPIJobSubmit201101.XDDSAuthType
        Dim jobrequest As EMsgAPIJobSubmit201101.JobSubmitRequest = New EMsgAPIJobSubmit201101.JobSubmitRequest
        Dim uid As EMsgAPIJobSubmit201101.UIDType = New EMsgAPIJobSubmit201101.UIDType


        EM.Url = GetRequestUrl()
        request.ReceiverKey = GetRequestUrl()
        message1 = "TEST EMAIL"
        message2 = "This is an E-MAIL test document"
        API_Demo.txtResult.Text = "Please wait..."
        Application.DoEvents()
        jobrequest.SubmitId = message1

        If API_Demo.chkUseProxyTrace.Checked Then
            EM.Proxy = New System.Net.WebProxy("http://localhost:8080")
        End If

        ' Build the SOAP Header
        uid.Value = API_Demo.txtUserID.Text 'UID
        xddsauth.RequesterID = uid
        xddsauth.Password = API_Demo.txtPassword.Text 'Password
        authentication.Item = xddsauth
        request.Authentication = authentication
        request.ReceiverKey = GetRequestUrl()
        'request.ResultRequired = EMsgAPIJobSubmit201101.RequiredType.yes
        request.RequestID = "Test"
        EM.RequestValue = request

        'Documents
        Dim document As EMsgAPIJobSubmit201101.DocumentType()
        Dim documentdata As EMsgAPIJobSubmit201101.DocDataType = New EMsgAPIJobSubmit201101.DocDataType
        documentdata.format = EMsgAPIJobSubmit201101.DocEncodingFormat.base64
        documentdata.Value = System.Convert.ToBase64String(System.Text.Encoding.UTF8.GetBytes(message2))
        ReDim document(1)
        document(0) = New EMsgAPIJobSubmit201101.DocumentType
        document(0).DocType = "text"
        document(0).ref = "DocOne"
        Dim myFileName As EMsgAPIJobSubmit201101.EncodableStringType = New EMsgAPIJobSubmit201101.EncodableStringType
        myFileName.Value = "test.txt"
        document(0).Filename = myFileName
        'document(0).ItemElementName = EMsgAPIJobSubmit201101.ItemChoiceType1.DocData
        document(0).ItemElementName = EMsgAPIJobSubmit201101.ItemChoiceType.DocData
        document(0).Item = documentdata

        'add the documents to the job request
        jobrequest.DocumentSet = document

        ' Build a message
        Dim message As EMsgAPIJobSubmit201101.MessageType()
        ReDim message(1)
        message(0) = New EMsgAPIJobSubmit201101.MessageType
        ' Contents
        Dim content() As EMsgAPIJobSubmit201101.ContentPartType
        Dim contentstype As EMsgAPIJobSubmit201101.ContentsType
        ReDim content(1)
        content(0) = New EMsgAPIJobSubmit201101.ContentPartType
        contentstype = New EMsgAPIJobSubmit201101.ContentsType
        content(0).Item = "DocOne"
        content(0).Treatment = EMsgAPIJobSubmit201101.TreatmentType.body

        contentstype.Part = content

        ' Add the contents to the message
        message(0).Contents = contentstype

        ' Setup job options
        Dim joboptions As EMsgAPIJobSubmit201101.JobOptionsType = New EMsgAPIJobSubmit201101.JobOptionsType()
        joboptions.CustomerReference = New EMsgAPIJobSubmit201101.EncodableStringType
        joboptions.CustomerReference.Value = "My Customer Reference"
        joboptions.BillingCode = New EMsgAPIJobSubmit201101.EncodableStringType
        joboptions.BillingCode.Value = "My Billing Code"

        'Setup e-mail options
        Dim emailoptions As EMsgAPIJobSubmit201101.EmailOptionsType = New EMsgAPIJobSubmit201101.EmailOptionsType
        Dim subject As New EMsgAPIJobSubmit201101.EncodableStringType
        subject.Value = "Test Basic e-mail using PGICOS"
        emailoptions.Subject = subject

        joboptions.EmailOptions = emailoptions

        ' Add the job options to the message
        message(0).JobOptions = joboptions

        ' Setup reports
        Dim reports As EMsgAPIJobSubmit201101.ReportOptionsType = New EMsgAPIJobSubmit201101.ReportOptionsType
        Dim deliveryreport As EMsgAPIJobSubmit201101.ReportOptionsTypeDeliveryReport = New EMsgAPIJobSubmit201101.ReportOptionsTypeDeliveryReport
        deliveryreport.DeliveryReportType = EMsgAPIJobSubmit201101.MainReportTypeEnum.detail
        reports.DeliveryReport = deliveryreport

        ' Add reports to the message
        message(0).Reports = reports

        ' Setup delivery destination(s)
        Dim deliveryEmail() As EMsgAPIJobSubmit201101.InternetType
        ReDim deliveryEmail(1)
        deliveryEmail(0) = New EMsgAPIJobSubmit201101.InternetType
        deliveryEmail(0).Email = API_Demo.txtEmail.Text
        message(0).Destinations = deliveryEmail

        ' Add delivery destinations to the message
        ' Add the message to the job request
        jobrequest.Message = message
        '
        Dim response As EMsgAPIJobSubmit201101.Response = New EMsgAPIJobSubmit201101.Response
        EM.ResponseValue = response

        ' Submit the job request
        Dim jobresult As EMsgAPIJobSubmit201101.JobSubmitResult = New EMsgAPIJobSubmit201101.JobSubmitResult
        Try
            jobresult = EM.JobSubmit(jobrequest)
        Catch ex As Exception
            System.Console.WriteLine("Error: {0}", ex.Message)
            MsgBox("Error: " & ex.Message)
            Return
        End Try

        Dim sJobNumber As String
        If jobresult.Status.StatusCode = 0 Then 'case no error
            sJobNumber = jobresult.MessageResult(0).JobId.XDN & ":" & jobresult.MessageResult(0).JobId.MRN
            Debug.Write(EM.ResponseValue)
            API_Demo.txtResult.Text = ("Job Number=" & sJobNumber & vbCrLf & "Result=" & jobresult.Status.StatusCode & vbCrLf & jobresult.Status.StatusMessage)
        Else
            API_Demo.txtResult.Text = ("Result=" & jobresult.Status.StatusCode & vbCrLf & jobresult.Status.StatusMessage)
        End If


    End Sub