kakaveysi
جمعه 12 اسفند 1390, 10:52 صبح
Sending EMAIL With Attach & Embed image in ASPX VB.NET
Imports System.Net.Mail
Imports System.Net.Mime
Function SendEmail()
Try
'----------------------SET
Dim em As String = "info@test.com" ' From eMail
Dim tn As String = "Test Company" ' Show Name
Dim pw As String = "123456" ' Password
Dim po As String = "25" ' Port 25 , 587 ...
Dim sm As String = "mail.test.com" ' Server
Dim rm As String = "user@company.com" ' To e-Mail
Dim bd As String = "<html><body><table><tr width=100%><td><img src='cid:emb1' /></td><td><img src='cid:emb2' /></td></tr></table><hr/></body></html>" ' HTML
Dim sb As String = "Test Send e-Mail ASPX VB.NET 4.0" 'Subject
Dim ds As String = DeliveryNotificationOptions.OnFailure 'Delivery Set
'-----------||||||| END Set
Dim Mail = New MailMessage()
Mail.From = New MailAddress(em, tn, System.Text.Encoding.UTF8)
Mail.To.Add(rm)
Mail.Subject = sb
Mail.Body = bd
Dim alternateViewtxt As AlternateView = AlternateView.CreateAlternateViewFromString(bd, Nothing, MediaTypeNames.Text.Html)
'----------------------------------- Attach
Mail.Attachments.Add(New Attachment(Server.MapPath("image.jpg"))) ' Attach
'-----------------||||||||||||||||| Attach
'----------------------------------embed
Dim EmIm As New LinkedResource(Server.MapPath("image1.jpg")) ' Embed 1
EmIm.ContentId = "emb1"
alternateViewtxt.LinkedResources.Add(EmIm)
Dim EmIm2 As New LinkedResource(Server.MapPath("image2.jpg")) ' Embed 2
EmIm2.ContentId = "emb2"
alternateViewtxt.LinkedResources.Add(EmIm)
'-----------||||||| end embed
Mail.AlternateViews.Add(alternateViewtxt)
Mail.IsBodyHtml = True
Mail.DeliveryNotificationOptions = ds
'---------------------------------- SMTP Host
Dim SmtpServer As New SmtpClient()
SmtpServer.Credentials = New Net.NetworkCredential(em, pw)
SmtpServer.Port = po
SmtpServer.Host = sm
'-----------||||||| END SMTP Host
SmtpServer.Send(Mail) ' Send E-Mail
Catch e As ConfigurationErrorsException
Return e
End Try
Return "OK"
End Function
Imports System.Net.Mail
Imports System.Net.Mime
Function SendEmail()
Try
'----------------------SET
Dim em As String = "info@test.com" ' From eMail
Dim tn As String = "Test Company" ' Show Name
Dim pw As String = "123456" ' Password
Dim po As String = "25" ' Port 25 , 587 ...
Dim sm As String = "mail.test.com" ' Server
Dim rm As String = "user@company.com" ' To e-Mail
Dim bd As String = "<html><body><table><tr width=100%><td><img src='cid:emb1' /></td><td><img src='cid:emb2' /></td></tr></table><hr/></body></html>" ' HTML
Dim sb As String = "Test Send e-Mail ASPX VB.NET 4.0" 'Subject
Dim ds As String = DeliveryNotificationOptions.OnFailure 'Delivery Set
'-----------||||||| END Set
Dim Mail = New MailMessage()
Mail.From = New MailAddress(em, tn, System.Text.Encoding.UTF8)
Mail.To.Add(rm)
Mail.Subject = sb
Mail.Body = bd
Dim alternateViewtxt As AlternateView = AlternateView.CreateAlternateViewFromString(bd, Nothing, MediaTypeNames.Text.Html)
'----------------------------------- Attach
Mail.Attachments.Add(New Attachment(Server.MapPath("image.jpg"))) ' Attach
'-----------------||||||||||||||||| Attach
'----------------------------------embed
Dim EmIm As New LinkedResource(Server.MapPath("image1.jpg")) ' Embed 1
EmIm.ContentId = "emb1"
alternateViewtxt.LinkedResources.Add(EmIm)
Dim EmIm2 As New LinkedResource(Server.MapPath("image2.jpg")) ' Embed 2
EmIm2.ContentId = "emb2"
alternateViewtxt.LinkedResources.Add(EmIm)
'-----------||||||| end embed
Mail.AlternateViews.Add(alternateViewtxt)
Mail.IsBodyHtml = True
Mail.DeliveryNotificationOptions = ds
'---------------------------------- SMTP Host
Dim SmtpServer As New SmtpClient()
SmtpServer.Credentials = New Net.NetworkCredential(em, pw)
SmtpServer.Port = po
SmtpServer.Host = sm
'-----------||||||| END SMTP Host
SmtpServer.Send(Mail) ' Send E-Mail
Catch e As ConfigurationErrorsException
Return e
End Try
Return "OK"
End Function