I am able to embed a image held on disk like below but now i want to embed a image held on database and is stored as a Byte() in a collection List(of Orders) i.e Dim myImage As Byte() = l.Data Somehow i need to add this to LinkedResource ? ----------------------------------------------------------------------- Dim theEmailImage As LinkedResource = Nothing For Each l As Orders In orderslist theEmailImage = New LinkedResource(Server.MapPath("~/MyProject/image/Nectar_logo.png"), System.Net.Mime.MediaTypeNames.Image.Jpeg) theEmailImage.ContentId = "myImageID" textBody += "<tr><td>" + String.Format(" <img src='cid:{0}' alt='Logo' />", theEmailImage.ContentId) + "</td><td> " + l.CategoryDesc + "</td></tr>" Next MailText = MailText.Replace("[Rows]", textBody)

I don't fully understand how it works but it did :) the last part is confusing as i never seen that syntax code in vb.net before imageFiles.ForEach(Sub(img) alternateView.LinkedResources.Add(img)) ? This is a superb method because it leaves a blank space if no image present. Though that would not be ideal in practice. Therefore how is it possible to include a default image or a message to inform a recipient - no image available? Thanks

yes. i just added a image from disk to the resource and that did the trick. it is a tricky task i am pleased for microsoft help otherwise i could not have solved this because i could not find any examples of this? saying that i dont know whether to curse microsoft for getting me started in the first place or see them as a good friend?!

Embedded image into Email Template using Byte() data

Accepted answer

Lan Huang-MSFT 28,841 Microsoft Vendor

Hi @peter liles,

You just write Byte() data to MemoryStream.

        Dim ms As MemoryStream = New MemoryStream(myImage)
        Dim Img As LinkedResource = New LinkedResource(ms, MediaTypeNames.Image.Jpeg)

Best regards,

Lan Huang

If the answer is the right solution, please click "Accept Answer" and kindly upvote it. If you have extra questions about this answer, please click "Comment".
Note: Please follow the steps in our documentation to enable e-mail notifications if you want to receive the related email notification for this thread.

peter liles 556 Reputation points

2023-05-04T07:04:10.1+00:00
I have now updated to this. Now my problem is that when i have multiple images to display, only one is shown? the others are without src value. i tried using Guid id because i presume contentid has to be a unique value for each image ?

theEmailImage = New LinkedResource(MS, System.Net.Mime.MediaTypeNames.Image.Jpeg) theEmailImage.ContentId = Guid.NewGuid().ToString()

Lan Huang-MSFT 28,841 Microsoft Vendor

Hi @peter liles,

The idea of using Guid is correct. If you want to implement multiple pictures, you need to implement List(Of LinkedResource).

 For i As Integer = 0 To imge.Count - 1
            Dim ms As MemoryStream = New MemoryStream(imge(i))
            imageFile = New LinkedResource(ms, MediaTypeNames.Image.Jpeg)
            imageFile.ContentId = Guid.NewGuid().ToString()
            msgBody += String.Format(" <img src='cid:{0}'   alt='Logo' />", imageFile.ContentId)
            imageFiles.Add(imageFile)
        Next

The following is an example I wrote, you can refer to it.

Protected Sub btn_send_Click(ByVal sender As Object, ByVal e As EventArgs)
        Try
            Dim client As SmtpClient = New SmtpClient()
            client.UseDefaultCredentials = False
            client.Credentials = New System.Net.NetworkCredential("****", "***")
            client.Port = 587
            client.Host = "smtp.office365.com"
            client.DeliveryMethod = SmtpDeliveryMethod.Network
            client.EnableSsl = True
            Dim message As MailMessage = New MailMessage()
            message.From = New MailAddress("***")
            message.[To].Add(txtEmail.Text)
            message.Subject = txtSubject.Text
            message.IsBodyHtml = True
            message.AlternateViews.Add(Mail_Body())
            client.Send(message)
        Catch ex As Exception
            Response.Write("Failed")
        End Try
    End Sub

    Private Function Mail_Body() As AlternateView
        Dim con As SqlConnection = New SqlConnection()
        con.ConnectionString = "***"
        con.Open()
        Dim check As String = "SELECT Data from tblFiles"
        Dim cmd6 As SqlCommand = New SqlCommand(check, con)
        Dim imge As List(Of Byte()) = New List(Of Byte())()

        Using reader As SqlDataReader = cmd6.ExecuteReader()

            While reader.Read()
                Dim imageContents As Byte() = CType(reader.GetValue(reader.GetOrdinal("data")), Byte())
                imge.Add(imageContents)
            End While
        End Using

        Dim imageFile As LinkedResource = Nothing
        Dim alternateView As AlternateView = Nothing
        Dim msgBody As String = String.Empty
        Dim imageFiles As List(Of LinkedResource) = New List(Of LinkedResource)()

        For i As Integer = 0 To imge.Count - 1
            Dim ms As MemoryStream = New MemoryStream(imge(i))
            imageFile = New LinkedResource(ms, MediaTypeNames.Image.Jpeg)
            imageFile.ContentId = Guid.NewGuid().ToString()
            msgBody += String.Format(" <img src='cid:{0}'   alt='Logo' />", imageFile.ContentId)
            imageFiles.Add(imageFile)
        Next

        alternateView = AlternateView.CreateAlternateViewFromString(msgBody, Nothing, MediaTypeNames.Text.Html)
        imageFiles.ForEach(Sub(img) alternateView.LinkedResources.Add(img))

        Return alternateView
    End Function

 <table>  
     <tr>  
          <td>Mail To:-</td>  
          <td>  
               <asp:TextBox ID="txtEmail" runat="server" Width="200px">  
               </asp:TextBox>  
          </td>  
     </tr>  
     <tr>  
          <td>Subject:-</td>  
          <td>  
               <asp:TextBox ID="txtSubject" runat="server" Width="200px">  
               </asp:TextBox>  
          </td>  
     </tr>  
     <tr>  
          <td>Message:-</td>  
          <td>  
               <asp:TextBox ID="txtmessagebody" runat="server" TextMode="MultiLine" Height="200px" Width="400px">  
               </asp:TextBox>  
          </td>  
     </tr>  
     <tr>  
          <td colspan="2" align="center">  
               <asp:Button ID="btn_send" runat="server" Text="Send Mail" OnClick="btn_send_Click" />  
          </td>  
     </tr>  
</table>

peter liles 556 Reputation points

2023-05-05T00:37:51.4533333+00:00

Fantastic

Share via

Embedded image into Email Template using Byte() data

2 additional answers