Discussion :

[TolleCram]

Bonjour à tous !

Actuellement entrain de développer un logiciel de gestion en VB.NET, je suis sur un module concernant les publipostages (envoi de mail pour divers infos. / promos. / alertes...).

A savoir, lors d'un envoi concernant une promo sur des articles on affiche dans le corps du mail les infos des articles avec leur image (stockée dans le dossier parent à celui du logiciel, le chemin d'accès absolu est lui stocké dans la base de donnée).
Le corps de l’e-mail est lui crée en HTML, où la source de l'image est récupérée dans la base de donnée. Le problème étant qu'a la réception du mail, aucune image ne s'affiche..

Voici un bout de code concernant l'affichage de l'image dans le code HTML :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
While Obj_Reader.Read()
                    Dim prix_ttc As Double = Requete_Reception("SELECT TYPE_ART_PV_TTC FROM TYPE_ARTICLE WHERE TYPE_ART_ID=" & Obj_Reader.GetValue(0))
                    Dim img2 As String = recupImage(Obj_Reader.GetValue(0))
                    Dim art_id As String = Obj_Reader.GetValue(0).ToString
                    Dim art_promo As String = Obj_Reader.GetValue(1).ToString
                    Dim art_lib As String = Requete_Reception("SELECT TYPE_ART_LIB FROM TYPE_ARTICLE WHERE TYPE_ART_ID=" & Obj_Reader.GetValue(0)).ToString
 
                    MonCodeHtml += "<table border='1px'><tr class='titre'><td>" + "Référence" + "</td><td>" + "Libellé" + "</td><td>" + "Image" + "</td><td>" + "Prix" + "</td></tr><tr class='contenu'>
                        <td width='100' height='150'>" + art_id + "</td><td width='300' height='150'>" +
                       art_lib + "</td><td width='150' height='150'><img width='150' height='150' src='" + img2 + "'/></td><td width='150' height='150'>" +
                        "<p1> <del>" + FormatNumber(prix_ttc, 2) + "€</del></p1>" + "</br>" + "<p2>" + art_promo + "€</p2></td></tr></table>"
 
                End While

J'aimerai donc savoir comment m'y prendre afin d'afficher correctement des images "intégrées" à un corps de mail généré automatiquement par le code.

Dans l'attente de solutions de votre part !

[Math71]

Bonjour,

L'image doit soit :

• Exister sur internet avec un lien direct
• être ajouter à l'email (par PJ, si je me rappel bien) et utiliser une notation spécifique (cid si encore une fois je me trompe pas)

Tout ça n'est pas lien à .Net mais aux email

[TolleCram]

Merci pour votre réponse !

En effet, j'ai essayer avec une pièce jointe, mais un autre problème survient.

Pour ajouter une PJ à un mail j'ai utiliser la fonction MailMessage.Attachment, qui à correctement fonctionné, car à la réception du mail une PJ étais bien avec.
Or, je n'ai pas su afficher cette PJ en tant qu'image intégrée dans le corps du mail.

Voici le code permettant de générer la PJ :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
'Instancier un objet Commande
        maCommande = New OleDbCommand()
        'initialiser l'objet Command
        maCommande.Connection = laConnexionPrincipale
        maCommande.CommandText = "SELECT TYPE_ART_ID, PU_NEW_PRIX FROM PUBLI_ART WHERE PU_ID=" + publi_id + ""
        monLecteur = maCommande.ExecuteReader()
 
        While monLecteur.Read()
            Dim art_img As String = Requete_Reception("SELECT TYPE_ART_IMG FROM TYPE_ARTICLE WHERE TYPE_ART_ID =" + monLecteur.GetValue(0).ToString + "")
            Mailmsg.Attachments.Add(New System.Net.Mail.Attachment(art_img))
        End While

Quelqu'un saurait donc m'aiguiller ou me donner les fonctions à utiliser afin de pouvoir afficher une image qui est dans un PJ ?

Dans l'attente de solutions de votre part !

[Math71]

J'ai pas le code devant moi, je regarderai demain matin (si le boulot me le permet)
Il y a une histoire id avec la pièce jointe, et dans la balise <img> il faut rajouter cet id dans la source

[Math71]

Code :

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

1
2
3
4
5
6
ATTACHMENT = NEW Attachment(ipc_signature_mail).
    ATTACHMENT:ContentId = "signature".
    emailmessage:attachments:ADD(attachment).
 
emailmessage:IsBodyHtml = true.
    emailmessage:Body = ipc_texte + "<br><br><img src='cid:" + ATTACHMENT:ContentId + "'/>".

Voici le code pour ajouter une image dans un mail HTML
C'est du L4G, mais ça utilise l'api .Net pour l'envoi du mail

[TolleCram]

Bonjour,

Merci beaucoup pour votre réponse, qui m'a permis d'arriver à mes fins !

Un autre petite question qui est en lien avec l'envoi de mail.
Je souhaite envoyer un mail automatique toujours avec VB.NET, mais cette fois ci lié à un CSS.

Voici un bout du code :

Code :

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

1
2
3
4
5
6
7
MonCodeHtml =
                   "<html>
                   <head>
                    <link rel='stylesheet' href='Z:\CORTEX-GESTION\Formulaires\Publipostage\PubliInfo.css'>
                   <meta http-equiv='X-UA-Compatible' content='IE=Edge' />
                   </head>
                   <body>

Le problème c'est qu'il ne prends pas en compte le CSS renseigné..

Aurait vous une solution pour lié un fichier CSS à un mail envoyer en VB.NET ?

Dans l'attente de solutions de votre part !