ENVIAR E-MAIL COM IMAGEM NO CORPO DO E-MAIL.
Olá Pessoal
Tenho um código para envio de e-mail.
Mas preciso que no e-mail var duas imagem (Cabeçalho e rodape), a principio coloquei no corpo de e-mail um HTML com o caminho da imagem, funcionar mas tem um porém se a pessoal estive usando o outlook a imagem não carrega se ele não estive online.
Ai entra meu problema pois quero colocar a imagem no corpo do e-mail e não sei como.
segue abaixo código que estou usando.
Dim servidorsmtp As New SmtpClient
Dim email As New MailMessage
servidorsmtp.Credentials = New Net.NetworkCredential(conta, passwd)
servidorsmtp.Port = 587
servidorsmtp.Host = smtp
email = New MailMessage
email.From = New MailAddress(remetente)
email.To.Add(piece(Destino, [Ô];[Ô], I, I))
email.Subject = Assunto
email.Body = Mensagem
email.IsBodyHtml = True
If Anexo <> [Ô][Ô] Then email.Attachments.Add(New Attachment(Anexo))
email.DeliveryNotificationOptions = DeliveryNotificationOptions.OnFailure
servidorsmtp.Send(email)
Obs: A variavel Mensagem esta o codigo HTML.
Tenho um código para envio de e-mail.
Mas preciso que no e-mail var duas imagem (Cabeçalho e rodape), a principio coloquei no corpo de e-mail um HTML com o caminho da imagem, funcionar mas tem um porém se a pessoal estive usando o outlook a imagem não carrega se ele não estive online.
Ai entra meu problema pois quero colocar a imagem no corpo do e-mail e não sei como.
segue abaixo código que estou usando.
Dim servidorsmtp As New SmtpClient
Dim email As New MailMessage
servidorsmtp.Credentials = New Net.NetworkCredential(conta, passwd)
servidorsmtp.Port = 587
servidorsmtp.Host = smtp
email = New MailMessage
email.From = New MailAddress(remetente)
email.To.Add(piece(Destino, [Ô];[Ô], I, I))
email.Subject = Assunto
email.Body = Mensagem
email.IsBodyHtml = True
If Anexo <> [Ô][Ô] Then email.Attachments.Add(New Attachment(Anexo))
email.DeliveryNotificationOptions = DeliveryNotificationOptions.OnFailure
servidorsmtp.Send(email)
Obs: A variavel Mensagem esta o codigo HTML.
Poste o conteúdo da variável Mensagem no tópico para que possamos avaliar.
Boa noite
No momento estou sem o arquivo do meu pc para enviar mas acredito que com esta dicas deve ajudar onde recomendo o uso das:
Imports System.Net.Mail
Imports System.Net.Mime
Imports System.IO
e uma inserção da foto no corpo do e-mail em função do html pela definição
Dim body As String = [Ô]<img src=[Ô][Ô]cid:Imagem1[Ô][Ô] /><br><br>Embutindo Imagens no Email.[Ô]
Neste caso voce poderar buscar as imagem do diretorio ou fazer a importação por outra opção
[ô] [ô][ô]Anexo da imagem por inserção do usuario
Dim MS As New MemoryStream(FileUpload1.FileBytes)
Dim anexo As New Attachment(MS, FileUpload1.FileName)
objEmail.Attachments.Add(anexo)
Outra informação e quando ao uso de acentos usar na classe para evitar problemas com caracteres [Ô]estranhos[Ô],
configurando o Charset para [Ô]ISO-8859-1[Ô]
objEmail.SubjectEncoding = System.Text.Encoding.GetEncoding([Ô]ISO-8859-1[Ô])
objEmail.BodyEncoding = System.Text.Encoding.GetEncoding([Ô]ISO-8859-1[Ô])
No momento estou sem o arquivo do meu pc para enviar mas acredito que com esta dicas deve ajudar onde recomendo o uso das:
Imports System.Net.Mail
Imports System.Net.Mime
Imports System.IO
e uma inserção da foto no corpo do e-mail em função do html pela definição
Dim body As String = [Ô]<img src=[Ô][Ô]cid:Imagem1[Ô][Ô] /><br><br>Embutindo Imagens no Email.[Ô]
Neste caso voce poderar buscar as imagem do diretorio ou fazer a importação por outra opção
[ô] [ô][ô]Anexo da imagem por inserção do usuario
Dim MS As New MemoryStream(FileUpload1.FileBytes)
Dim anexo As New Attachment(MS, FileUpload1.FileName)
objEmail.Attachments.Add(anexo)
Outra informação e quando ao uso de acentos usar na classe para evitar problemas com caracteres [Ô]estranhos[Ô],
configurando o Charset para [Ô]ISO-8859-1[Ô]
objEmail.SubjectEncoding = System.Text.Encoding.GetEncoding([Ô]ISO-8859-1[Ô])
objEmail.BodyEncoding = System.Text.Encoding.GetEncoding([Ô]ISO-8859-1[Ô])
Tópico encerrado , respostas não são mais permitidas