Visual Basic

dim SafeItem, oItem 
set SafeItem = CreateObject("Redemption.SafeMailItem") 'Create an instance of Redemption.SafeMailItem 
set oItem = Application.CreateItem(0) 'Create a new message
SafeItem.Item = oItem 'set Item property
SafeItem.Recipients.Add "somebody@somewhere.com"
SafeItem.Recipients.ResolveAll
SafeItem.Subject = "Testing Redemption"
SafeItem.Send 

Dim smtpClient As New Net.Mail.SmtpClient()
        Dim mail As New Net.Mail.MailMessage()
        'create the message to be sent 
        mail.To.Add("test@test.com") ' Enter the Email of the person you want to send the mail to
        mail.From = New Net.Mail.MailAddress("username@gmail.com", "Your Display Name") ' Enter Your email address
        mail.Subject = "Test Message"
        mail.Body = "This is a test message"
        ' Prepare the client to send the above message
        'Attach the file as attachment 
        mail.Attachments.Add(new System.Net.Mail.Attachment("yourFileName.xls"))
        smtpClient.Host = "smtp.gmail.com"
        smtpClient.EnableSsl = True
        smtpClient.Port = 587
        smtpClient.Credentials = New Net.NetworkCredential("username@gmail.com", "password") 'Enter username and password of the account , you want to use to send mail
        smtpClient.DeliveryMethod = Net.Mail.SmtpDeliveryMethod.Network
        smtpClient.Send(mail)

Stephen Lintott wrote:

webBrowser.Navigate("file://" + fileName, noValue, noValue, noValue, noValue) Threading.Thread.Sleep(1000)

sumit prakash sharma wrote:

first copy all the subfoloder and files in new drive location