Send Email after Session Expire using VB.Net in ASP.Net

fahimahmed says:

 

Hi, I've dound many solution on session expire, session extend but failed to find the solution to send an email on session expired or tab closed

For example: customer visits website and put some items in cart but didn't check out and close the tab or session expired.

Need to send an email of items left in cart using asp.net vb.net/C#

Pls help...

Its depend on your application how you are maintain the items in cart.

If you are using any session to maintain carts details then you cannot send email details of items of carts which the customer selected before session expiry. If you are maintaining the details temporary table in database table for carts items then you can use schedular to check users who is not login and details in temporary table for carts items in database and for particular user you can send automated email by selecting customer details with its cart items details.

Yes, maitaning session record in database once user visits website it stores a date/time but how to record date/time when session expires? it should store date/time in database and send email directly to that visitor.

For Example:

Table Name: VisitorsLog

Column(s)

EmailAddress: abc@abc.com

LoginDate: 2017-04-03 

LoginTime: 01:32:15 PM

SessionExpireDate: xxxx-xx-xx

SessionExpireTime: xx:xx:xx xx

EmailSent: YES/NO

Hi fahimahmed,

void Session_End(object sender, EventArgs e) 
{
    // Code that runs when a session ends. 
    // Note: The Session_End event is raised only when the sessionstate mode
    // is set to InProc in the Web.config file. If session mode is set to StateServer 
    // or SQLServer, the event is not raised.

    // Based on your session value if its not null
    if (Session["CustomerId"] != null)
    {
        string id = Session["CustomerId"].ToString();
        // wrire your code and call the update as well as check if cart item is there based on customer
        UpdateLogoutDateTime();
        // also if any cart item remaning call the email sending method you can get cart item as per your logic based on how you are saving to maintain cart item for customer
        if(Cart !=null)
        {
            SendEmail();
        }
    }
}

Hi,

I tried with your provided solution but failed to update record in database and send email automatically on session expire/end or logout.

 Protected Sub SignInButton_Click(sender As Object, e As EventArgs) Handles SignInButton.Click
        Dim mySelection = "select * from RegisteredCustomers where EmailAddress='" & EmailAddress.Text & "' and Passwords='" & Passwords.Text & "'"
        Dim adp As New OleDbDataAdapter(mySelection, cn1)
        Dim dt As New DataTable
        adp.Fill(dt)

        If dt.Rows.Count <> 0 Then
            EmailAddress1.Text = (dt.Rows(0).Item("EmailAddress"))
            Session("EmailAddress") = EmailAddress1.Text
            Session("EmailAddressforEmail") = EmailAddress1.Text

        End If

    End Sub

Protected Sub LogoutButton_Click(sender As Object, e As EventArgs) Handles LogoutButton.Click
        Session.Clear()
        Session.Abandon()
        Session.Remove("EmailAddress")
        'Session.RemoveAll()
        Response.Redirect("Home")
    End Sub

 Global.asax

 Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)

        Dim val As [String] = Session("EmailAddressforEmail").ToString()
        cn1.Open()
        Dim cmd As New OleDb.OleDbCommand("Update RegisteredCustomersLog set LogoutDate = '" & Now.ToLongDateString & "', LogoutTime = '" & Now.ToLongTimeString & "' where EmailAddress = '" & val & "' ", cn1)
        cmd.ExecuteNonQuery()
        cn1.Close()
        SendHTMLMail()

        Session.Clear()
        Session.Abandon()
        Session.RemoveAll()
        Session.Remove("EmailAddress")
        Session.Remove("EmailAddressforEmail")


    End Sub

Hi,

Refer the below code.

Logout clicked.

Protected Sub LogoutButton_Click(sender As Object, e As EventArgs)
	Session("LogOutClicked") = True
	Session.Abandon()
	Response.Redirect("~/Home.aspx")
End Sub

Global.asax

Private Sub Session_End(sender As Object, e As EventArgs)
	' Code that runs when a session ends. 
	' Note: The Session_End event is raised only when the sessionstate mode
	' is set to InProc in the Web.config file. If session mode is set to StateServer 
	' or SQLServer, the event is not raised.

	' Based on your session value if its not null 

	If Session("EmailAddress") IsNot Nothing Then
		Dim emailAddress As String = Session("EmailAddress").ToString()
		Dim con As New SqlConnection(ConfigurationManager.ConnectionStrings(1).ConnectionString)
		Dim cmd As New SqlCommand()
		cmd.CommandType = CommandType.Text
		If Session("LogOutClicked").ToString().ToLower() = "true" Then
			cmd.CommandText = (Convert.ToString("UPDATE RegisteredCustomers SET LogoutDate = '" + DateTime.Now.ToShortDateString() + "' , LogoutTime ='" + DateTime.Now.ToLongTimeString() + "' WHERE EmailAddress ='") & emailAddress) + "'"
		Else
			Dim timeSpan As System.TimeSpan = New TimeSpan(0, Session.Timeout, 0)
			cmd.CommandText = (Convert.ToString("UPDATE RegisteredCustomers SET LogoutDate = '" + DateTime.Now.ToShortDateString() + "' , LogoutTime ='" + DateTime.Now.Subtract(timeSpan) + "' WHERE EmailAddress ='") & emailAddress) + "'"
		End If
		con.Open()
		cmd.Connection = con
		cmd.ExecuteNonQuery()
		con.Close()
		SendHTMLMail()
	End If
	Session.Abandon()
	Session.Clear()
	Session.RemoveAll()
End Sub