Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Function MailIt(subject, from, email, body)
- Dim mail As New MailMessage()
- mail.BodyFormat = MailFormat.Html
- mail.To = email
- mail.From = from
- mail.Subject = subject
- mail.Body = body
- mail.Bcc = "Events@xx.com"
- mail.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.xx.com"
- mail.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "25" 'mail server port
- mail.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication
- mail.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") ="sendemail@xx.com"
- mail.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="xxx"
- System.Web.Mail.SmtpMail.Send(mail)
- mailit=" "
- End Function
- Public Shared Function MailIt(ByVal subject, ByVal from, ByVal email, ByVal body)
- Dim mail As New System.Net.Mail.MailMessage()
- mail.IsBodyHtml = True
- mail.Body = MailFormat.Html
- mail.To.Add(email)
- mail.From = from
- mail.Subject = subject
- mail.Body = body
- mail.Bcc = "Events@xx.com"
- mail.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.xx.com"
- mail.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "25" 'mail server port
- mail.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication
- mail.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "sendemail@xx.com"
- mail.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxx"
- System.Web.Mail.SmtpMail.Send(mail)
- MailIt = " "
- End Function
- Public Shared Function MailIt(ByVal subject, ByVal from, ByVal email, ByVal body)
- Dim mail As New System.Net.Mail.MailMessage()
- mail.IsBodyHtml = True
- mail.To.Add(email)
- mail.From = from
- mail.Subject = subject
- mail.Body = body
- mail.Bcc.Add("Events@xx.com")
- Dim smtp As SmtpClient = New SmtpClient
- smtp.Send(mailMessage)
- End Function
- <configuration>
- <system.net>
- <mailSettings>
- <smtp from="defaultEmail@yourdomain.com">
- <network host="smtp.yourdomain.com" port="25" userName="yourUserName" password="yourPassword"/>
- </smtp>
- </mailSettings>
- </system.net>
- </configuration>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement