* -------------------------------------------------------------------- Private Sub EmbeddingImages() Dim msg As MailMessage = New MailMessage msg.To.Add("Bob User", "bob@example.com") msg.From.Name = "John Doe" msg.From.EMail = "john@example.com" msg.Subject = "Meeting request" ' Images can be embedded into the html message ' using special image src properties with "cid:" ' Note that "picture1" and "picture2" identifiers ' are later used while adding the pictures. msg.HTMLMessage.Body = "Bob, this is me: " & "<img src='cid:picture1'>" & "and my brother:<img src='cid:picture2'>" ' Attach the inline pictures with cid references msg.AttachInlineFile("C:\me.jpg", "me", "picture1") msg.AttachInlineFile("C:\\bro.jpg", "bro", "picture2") msg.SMTPServer.Host = "localhost" If msg.Send() Then Console.WriteLine("Message has been sent successfuly.") Else Console.WriteLine("Error: " + msg.SMTPServer.LastError) End If End Sub * --------------------------------------------------------------------