Author: bootzilla | Posted on: 9/24/2009 7:42:14 AM | Views : 356


 
  Private Function SendMail2() As Boolean 'Create an instance of the MailMessage class Dim objMM As New MailMessage 'Set the properties objMM.To = TBEmail.Text objMM.From = AppSettings("EventRegistrationFrom") 'If you want to CC this email to someone else... objMM.Cc = AppSettings("EventRegistrationCC") 'If you want to BCC this email to someone else... objMM.Bcc = AppSettings("EventRegistrationBCC") 'Send the email in text format objMM.BodyFormat = MailFormat.Html '(to send HTML format, change MailFormat.Text to MailFormat.Html) 'Set the priority - options are High, Low, and Normal objMM.Priority = MailPriority.Normal 'Set the subj ...

Go to the complete details ...