Discussion :

[Feliperennes]

Bonjour à tous,
J'ai créé un code d'envoi automatique de mails dans VB.net qui fonctionne bien.
Pour aller plus loin je souhaiterais ajouter à la fin du Body une "signature" ajoutée en jpg dans les resources de mon appli sous le nom de Signaturemail.
Voilà le code que j'ai essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Mail.Body = "Bonjour," & vbNewLine & "Je vous prie de trouver en pièce-jointe votre devis. N'hésitez pas à revenir vers moi pour tout éclaircissement." & vbNewLine & "Cordialement."
 
Mail.Body = Mail.Body & vbNewLine & My.Resources.Signaturemail

Vous l'aurez compris la dernière ligne n'est pas correcte mais je ne sais pas comment coder ça !
Merci pour votre aide

[r.morel]

Salut,
Pour ajouter une image tu dois utiliser le format de message html.
Un exemple ici et là.

Bonne journée.

[Feliperennes]

Merci pour ton aide, ça m'a permis de bien avancer, j'arrive désormais à envoyer mon image de signature qui est visible en html.
Par contre le code suivant n'affiche rien en texte (quand le destinataire ne voit pas les messages en html)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dim plainView As Net.Mail.AlternateView = Net.Mail.AlternateView.CreateAlternateViewFromString("Ceci est mon contenu en texte brut, visible par les clients qui ne prennent pas en charge html", Nothing, "text/plain")
Mail.AlternateViews.Add(plainView)

D'autre part j'avais une ligne de code (Mail.Body) pour afficher automatiquement un message avant d'y mettre la signature html or tout disparaît dès lors que j'insère la signature, en clair le mail reçu n'affiche que la signature :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Mail.Body = "Bonjour," & vbNewLine & "Je vous prie de trouver en pièce-jointe votre devis. N'hésitez pas à revenir vers moi pour tout éclaircissement." & vbNewLine & "Cordialement."
 
Dim htmlView As Net.Mail.AlternateView = Net.Mail.AlternateView.CreateAlternateViewFromString("SD<img src=cid:companylogo>", Nothing, "text/html")                
Dim logo As New Net.Mail.LinkedResource(My.Application.Info.DirectoryPath & "\Resources\Signaturemail.jpg")
logo.ContentId = "companylogo"
htmlView.LinkedResources.Add(logo)
Mail.AlternateViews.Add(htmlView)

Merci encore de te pencher sur mes difficultés

[r.morel]

Tu dois faire cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim htmlView As Net.Mail.AlternateView = Net.Mail.AlternateView.CreateAlternateViewFromString("Ton message ici<img src=cid:companylogo>", Nothing, "text/html")

[Feliperennes]

Merci encore, résolu pour les destinataires lisant en html
Quid de ceux qui lisent en texte brut ? Pas de signature en texte pour eux !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dim plainView As Net.Mail.AlternateView = Net.Mail.AlternateView.CreateAlternateViewFromString("Ceci est mon contenu en texte brut, visible par les clients qui ne prennent pas en charge html", Nothing, "text/plain")
Mail.AlternateViews.Add(plainView)

[r.morel]

As-tu bien regardé les exemples ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim plainView As Net.Mail.AlternateView = Net.Mail.AlternateView.CreateAlternateViewFromString("This is my plain text content, viewable by those clients that don't support html", Nothing, "text/plain")