quinta-feira, agosto 31, 2006

Enviar mensagem com imagem no (Body) por Email...

Pois é, em vez de enviar anexos com imagens é possivel enviar através do corpo da mensagem do E-mail uma imagem.
Para isso está um pequeno codigo a demostrar.

Codigo:
Imports System.Net.Mail

Dim fromAddress As String = "XXXXX@mail.com"
Dim toAddress As String = "YYYYY@mail.com"
Dim subject As String = "Teste com imagem no body"
Dim contentId As String = "image1"
Dim filename As String = "c:\image001.jpg"
Dim body As String = "Aqui está o link para o recurso: "<"img src=""cid:image1""/>"

Dim mailMessage As New MailMessage(fromAddress, toAddress)
mailMessage.Subject = subject
Dim av1 As AlternateView
av1 = AlternateView.CreateAlternateViewFromString(body, Nothing, MediaTypeNames.Text.Html)
Dim linkedResource As LinkedResource = New LinkedResource(filename)
linkedResource.ContentId = contentId
linkedResource.ContentType.Name = filename
av1.LinkedResources.Add(linkedResource)
mailMessage.AlternateViews.Add(av1)
mailMessage.IsBodyHtml = True
Dim mailSender As New SmtpClient("servidor")
Try
mailSender.Send(mailMessage)
Response.Write("mensagem enviada!")
Catch ex As Exception
Response.Write(ex.Message)
End Try
Enviar um comentário