Untuk dapat mengirim email ada beberapa class yagn dibutuhkan. Standar class yang diperlukan adalah SmtpMail dan MailMEssage, untuk pengiriman e-mail yang lengkap semisal dengan attachment diperlukan class MailAttachment.
Imports System.Web.Mail
Public Function kirimEmail(ByVal _From As String, ByVal _To As String, ByVal _CC As String, ByVal _BCC As String, ByVal _Subject As String, _
ByVal _Body As String, ByVal _MailFormat As System.Web.Mail.MailFormat, ByVal _SMTPServer As String, ByVal _Priority As System.Web.Mail.MailPriority) As Boolean
Dim out As Boolean = False
Dim sendEmail As New MailMessage
SmtpMail.SmtpServer = _SMTPServer
'Jika akan menggunakan default SMTPServer pada webserver maka pada _SMTPServer isikan dengan ""
sendEmail.To = _To
sendEmail.From = _From
sendEmail.Cc = _CC
sendEmail.Bcc = _BCC
sendEmail.Subject = _Subject
sendEmail.Body = _Body
sendEmail.BodyFormat = _MailFormat
'untuk body email jika menggunakan HTML email format adalah sama dengan format dari HTML page itu sendiri
'"<html><body><b>Coba Kirim Email dengan HTML format</b><br/></body></html>"
sendEmail.Priority = _Priority
Try
SmtpMail.Send(sendEmail)
out = True
Catch ex As Exception
out = False
End Try
Return out
End Function
Selanjutnya kita tinggal memanggil fungsi dari kirimEmail untuk mengirim email.
Sebagai catatan metode pengiriman email ini digunakan pada ASP.Net versi sebelum 2.0 atau dengan Visual Studio 2003 kebawah. Untuk pengiriman email dengan Visual Studio 2005 akan diposting nanti (kalo sempat :D)
Selamat mencoba…
21.1.07
Mengirim email ASP.Net Bagian (1)
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment