Как отправить изображение по электронной почте, а не как вложение с помощью gmail
- что не так в этих кодах ?
Imports System.Net.Mail
Imports System.Net.Mime
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim Smtp_Server As New SmtpClient
Dim e_mail As New MailMessage()
Smtp_Server.UseDefaultCredentials = False
Smtp_Server.Credentials = New Net.NetworkCredential("Accountname","yourpassword")
Smtp_Server.Port = 587
Smtp_Server.EnableSsl = True
Smtp_Server.Host = "smtp.gmail.com"
e_mail = New MailMessage()
e_mail.From = New MailAddress("yourname@gmail.com") 'self emaling
e_mail.To.Add("yourname@gmail.com")' self email
e_mail.Subject = "Email Sending with image"
'the current folder of the compiled file has a image named 1.jpg
Dim path As String = "1.jpg"
Dim imageLink As New LinkedResource(path)
imageLink.ContentId = "myImage"
Dim altView As AlternateView = AlternateView.CreateAlternateViewFromString("<html><body><img src=cid:myImage/>" + "<br></body></html>", Nothing, MediaTypeNames.Text.Html)
altView.LinkedResources.Add(imageLink)
e_mail.AlternateViews.Add(altView)
e_mail.IsBodyHtml = True
e_mail.Body = ""
Smtp_Server.Send(e_mail)
MsgBox("Mail Sent")
Catch error_t As Exception
MsgBox(error_t.ToString)
End Try
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
Me.Text = "this email was test by vimal singh "
End Sub
End Class</br>
[no name]
Ну, вы не отформатировали свой код так, чтобы он был читабельным.
Если вы сформировали свой код так, чтобы он был читабельным, вы не задали вопрос или не описали проблему с вашим кодом.