Save copy of sending mail in "Send" Mail Box

Dim ChkDateMail As New DataAccessLayer
            Dim email As New System.Net.Mail.MailMessage
            Dim GmailSmptp As New SmtpClient
            GmailSmptp.Host = "smtp.gmail.com"
            GmailSmptp.EnableSsl = true
            GmailSmptp.Credentials = New Net.NetworkCredential(SenderEmailAddress, SenderEmailPassword)
            email.To.Add(txtEmailTo.Text.Trim)
            email.From = New System.Net.Mail.MailAddress(SenderEmailAddress)
            email.Subject = txtEmailSubject.Text.Trim
            email.IsBodyHtml = True
            email.Body = txtEmailBody.Text.Trim
            GmailSmptp.Send(email)