|
|
|
|
|
Author:
|
ptaylor
|
|
Views:
|
4215
|
|
|
Send SMTP E-Mail
|
|
|
Send an E-Mail using an SMTP Server
No E-Mail client required
|
|
|
|
|
Public Sub SendEMail(ByVal Message As String, ByVal EMailAddress As String, ByVal Subject As String)
Dim EMail As New System.Net.Mail.MailMessage
Dim SMTPServer As New System.Net.Mail.SmtpClient
Dim Authentication As New Net.NetworkCredential("login name/email", "password")
EMail.To.Add(EMailAddress)
EMail.From = New System.Net.Mail.MailAddress("from@domain.co.uk")
EMail.Body = Message
EMail.Subject = Subject
SMTPServer.Host = "smtp.yourdomain.co.uk"
SMTPServer.Port = 25
SMTPServer.Credentials = Authentication
SMTPServer.Send(EMail)
End Sub
|
|
|
|
|
|
Date Added:
02/09/2007 13:01:38
|
|
|
|
|
|
|
Your Details: Not Logged In
Join Date: N/A
Last Logon: N/A
Code Snippets: N/A
Code Comments:
Forum Posts: N/A
Forum Subjects: N/A
Site Wide
Code Snippets: 32
Code Comments:
Forum Posts: 52
Forum Subjects: 24
|
|
|
|
|
|
|
|
|
|
|