如何使用vb.net通过电子邮件发送picturebox_Vb.net_Email_Picturebox

如何使用vb.net通过电子邮件发送picturebox

vb.net email

如何使用vb.net通过电子邮件发送picturebox,vb.net,email,picturebox,Vb.net,Email,Picturebox,我想使用vb.net通过电子邮件发送picturebox，但电子邮件是空的这是我的密码 Try Dim smtp = New SmtpClient("smtp.gmail.com") ' connexion au serveur SMTP Gmail Dim message As New MailMessage message.Body = PictureBox1.Container message.To.Add(txt_adr

我想使用vb.net通过电子邮件发送picturebox，但电子邮件是空的

这是我的密码

 Try
        Dim smtp = New SmtpClient("smtp.gmail.com") ' connexion au serveur SMTP Gmail
        Dim message As New MailMessage
        message.Body = PictureBox1.Container
        message.To.Add(txt_adr.Text) ' choisir l'@ du destinataire
        'message.Body = corp.Text ' le corps du mail a envoyé
        message.From = New MailAddress("*******") ' message from expéditeur
        message.Subject = Objet.Text ' le champs objet du mail
        '------------ connexion avec le SMTP ---------'
        smtp.EnableSsl = True ' activer le chiffremment SSL
        smtp.Port = "587" ' accéder au port de connexion du SMTP
        smtp.Credentials = New System.Net.NetworkCredential("*******", "*********") ' introduire les paramétres de connexion de l'expéditeur
        smtp.Send(message) 'envoyé le mail
        MsgBox("Successful")
    Catch ex As Exception
        MsgBox(ex.Message, MsgBoxStyle.Exclamation, "erreur d'envoie")
    End Try

然后，我尝试使用htmlbody，但是图像是以附件而不是背景发送的，并且没有文本（txt_objet.text）

这是我的html代码

      Dim img As LinkedResource
        img = New LinkedResource(image_path.Text, "image/jpeg")
        img.ContentId = "myimage"
        Dim htmlbody As String =
           "<html>
            <head>
            <style>
             body {
                   background-image : url(C:\Users\user\Desktop\Nouveau dossier (2)\img.jpg); 
                   background-position : center center;
                   }
            </style>
            <body>
            <h1>Picture</h1>
            <br><p>" + txt_objet.Text + "</p>
        </body>
        </html>"
        Dim altview As AlternateView = AlternateView.CreateAlternateViewFromString(htmlbody, Nothing, "Text/html")
        altview.LinkedResources.Add(img)
        '****** affecter cette format à l'email
        message.AlternateViews.Add(altview)
        message.Body = htmlbody
        message.IsBodyHtml = True

Dim img作为LinkedResource
img=新的LinkedResource（image\u path.Text，“image/jpeg”）
img.ContentId=“myimage”
Dim htmlbody作为字符串=
"
身体{
背景图片：url（C:\Users\user\Desktop\Nouveau-docsier（2）\img.jpg）；
背景位置：中心；
}
图画

“+txt_objet.Text+”
"
Dim altview As AlternateView=AlternateView.CreateAlternateViewFromString（htmlbody，Nothing，“Text/html”）
altview.LinkedResources.Add（img）
“******影响电子邮件格式”
message.AlternateViews.Add（altview）
message.Body=htmlbody
message.IsBodyHtml=True

首先，将您的图像保存到一个文件中（如果它已经作为一个文件提供了，那就好了）

第二，用于在电子邮件正文中发送内联图像。
请尝试以下代码：

Dim htmlBody As String = "<html><body><h1>Picture</h1><br><img src=""cid:filename""></body></html>"
Dim avHtml As AlternateView = AlternateView.CreateAlternateViewFromString(htmlBody, Nothing, MediaTypeNames.Text.Html)
Dim inline As LinkedResource = New LinkedResource("filename.jpg", MediaTypeNames.Image.Jpeg)
inline.ContentId = Guid.NewGuid.ToString
avHtml.LinkedResources.Add(inline)
Dim mail As MailMessage = New MailMessage
mail.AlternateViews.Add(avHtml)
Dim att As Attachment = New Attachment(filePath)
att.ContentDisposition.Inline = true
mail.From = New MailAddress("*******")
mail.To.Add(txt_adr.Text)
mail.Subject = Objet.Text
mail.Body = String.Format("<img src=""""cid:{0}"""" />", inline.ContentId)
mail.IsBodyHtml = true
mail.Attachments.Add(att)

Dim htmlBody As String=“Picture
”
Dim avHtml As AlternateView=AlternateView.createAlternateView-FromString（htmlBody，Nothing，MediaTypeNames.Text.Html）
Dim inline As LinkedResource=新LinkedResource（“filename.jpg”，MediaTypeNames.Image.Jpeg）
inline.ContentId=Guid.NewGuid.ToString
avHtml.LinkedResources.Add（内联）
Dim mail As MailMessage=新邮件消息
mail.AlternateViews.Add（avHtml）
Dim att As Attachment=新附件（文件路径）
att.ContentDisposition.Inline=true
mail.From=新邮件地址（“*******”）
mail.To.Add（txt\u adr.Text）
mail.Subject=Objet.Text
mail.Body=String.Format（“，inline.ContentId）
mail.IsBodyHtml=true
mail.Attachments.Add（附件）

是否要将图片发送到picturebox？是的，我想在图片框中发送图片，在我的picturebox中，我有一张图片，我在这张图片上添加了文字，我想发送图片保存图片框中的图片并将其作为电子邮件附件发送我发送图片，但没有文字（图片上的文字）但是图像发送时没有文本，我想为我的朋友发送一封邮件，邮件包含背景图片和文本（在图片上），但是现在，图像发送时没有文本。您可以将文本添加到这里

Dim htmlBody As String=“picture
[add_text_here]”

如果要将图像设置为背景，则需要构造一个表并将td元素的背景设置为此图像。更改此

背景图像：url（C:\Users\user\Desktop\Nouveau docsier（2）\img.jpg）至背景图像：url（cid:myimage）