66.142.0.142/66.142.0.142.tar/66.142.0.142/askEmailUnconfirmedform.aspx.vb

Text File | 2014-11-01 | 4KB | 75 lines

Imports Microsoft.Exchange.WebServices.Data
Imports Microsoft.Exchange.WebServices.Autodiscover
Imports System.Net
Imports System.Net.Security
Imports System.Security.Cryptography.X509Certificates

Partial Class askEmailUnconfirmedform
    '    Inherits System.Web.UI.Page
    Inherits AspNetMaker7_tfpssnet

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            If Session("tfpssnet_Status") <> "login" Then
                Response.Redirect("login.aspx")
            End If
            Dim tmpEmpID As String, tmpEmpName As String, tmpUsername As String, tmpEmpEmail As String, tmpShiftCount
            tmpEmpID = Request.QueryString("empID")
            tmpEmpName = tlcGetEmployeeName(CLng(tmpEmpID))
            lblTo.Text = tmpEmpName
            tmpEmpEmail = tlcGetEmployeeEmail(CLng(tmpEmpID))
            lblEmail.text = tmpEmpEmail
            tmpUsername = tlcGetEmployeeUsernameByName(tmpEmpName)
            tmpShiftCount = tlcGetUnRecCount(tmpUsername)
            lblSubject.Text = "You have " & tmpShiftCount & " unconfirmed shifts."
            lblBody.Text = "You have new unconfirmed shifts in PSS please open PSS and confirm all unconfirmed shifts."
            If tmpShiftCount <= 0 Then btnSubmit.Enabled = False
        End If
    End Sub

    Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
        'Dim service As New ExchangeService(requestedServerVersion:=ExchangeVersion.Exchange2010)
        Dim service As New ExchangeService(ExchangeVersion.Exchange2010_SP1)

        'Add a valid EWS service end point here or user Autodiscover
        'service.Url = New Uri("https://server14/ews/exchange.asmx")
        service.Url = New Uri("https://outlook.office365.com/EWS/Exchange.asmx")
        'Add a valid user credentials
        'service.Credentials = New WebCredentials("prodservices", "production88", "Business")
        service.Credentials = New WebCredentials("[e-mail]", "production88")
        service.AutodiscoverUrl("[e-mail]", AddressOf RedirectionUrlValaditionCallBack)
        'To address the SSL challenge
        ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf ValidateCertificate)
        Try
            'Create new message object and set properties required to send a mail
            Dim msg As EmailMessage = New EmailMessage(service)
            msg.Subject = lblSubject.Text
            msg.Body = lblBody.Text
            'msg.ToRecipients.Add("[e-mail]")
            'msg.ToRecipients.Add("[e-mail]")
            msg.ToRecipients.Add(lblEmail.Text)
            msg.From = "[e-mail]"
            msg.SendAndSaveCopy()
            '                                            Message = "Email sent."
        Catch ex As Exception
            Response.Write("<script type='text/javascript'>alert('Error sending email...email not sent.');</script>")
        End Try

        Response.Redirect("tblScheduleList.aspx")
    End Sub

    Private Function ValidateCertificate(ByVal sender As Object, ByVal certificate As X509Certificate, ByVal chain As X509Chain, ByVal sslPolicyErrors As SslPolicyErrors) As Boolean
        'Return True to force the certificate to be accepted.
        Return True
    End Function

    Private Shared Function RedirectionUrlValaditionCallBack(ByVal redirectionURL As String) As Boolean
        Dim result As Boolean = False
        Dim redirectionuri As New Uri(redirectionURL)
        If redirectionuri.Scheme = "https" Then
            result = True
        End If
        Return result
    End Function

End Class