XL 2016 Cdo message , image arriere plan

Bonjour @titim77

Une piste en passant :


@Phil69970

Phil69970 à dit:

Bonjour @titim77

Une piste en passant :

background-image - Image d'arrière-plan de Tableau Html pour Modèle d'e-Mail

je suis à l'aide de l'image de fond en html, modèle de courriel, problème est ce <table

askcodez.com

@Phil69970

Cliquez pour agrandir...

bonjour j'y ai pensé mais la il faut une url donc le AddRelatedBodyPart du coup n'est pas fonctionnel de plus si l'image est dans un intranet ==> envoi mail à une personne exterieure à l'entreprise l'image ne sera pas disponible

re
Bonjour

oulà!!!
AddRelatedBodyPart
l'url c'est le lien de l'image dans le mail lui même il te faut les créer
et les balise style sont directement éliminées dans la lecture du body chez le destinataire et cela quasiment sur toute les app mail
le style de l'image doit être inline!!!

patricktoulon à dit:

re
Bonjour

oulà!!!
AddRelatedBodyPart
l'url c'est le lien de l'image dans le mail lui même il te faut les créer
et les balise style sont directement éliminées dans la lecture du body chez le destinataire et cela quasiment sur toute les app mail
le style de l'image doit être inline!!!

Cliquez pour agrandir...

dans mon css j'ai 3 styles differents
corps = corps & "<style type='text/css'>"
corps = corps & " .matable{"
corps = corps & " border: 2px solid darkblue;"
corps = corps & " border-collapse: collapse;"
corps = corps & " padding: 10px;"
corps = corps & " width: 550px"
corps = corps & " }"
corps = corps & " .col{"
corps = corps & " font-family:Arial, Helvetica, sans-serif;"
corps = corps & " font-size:14px;"

corps = corps & " }"
corps = corps & ".blog-author-image {"
corps = corps & " position: absolute;"
corps = corps & " top: 100px;"
corps = corps & " left: 200px;"
corps = corps & " opacity:0.1;"
corps = corps & "}"
corps = corps & " </style>"

seul le dernier ne fonctionne pas

la balise de Style ne fonctionne que pour le document dans les mail ou en l’occurrence le premier élément
et encore pas sur toutes les app mail
ton style doit être inline
renseigne toi sur ce que veut dire INLINE

patricktoulon à dit:

la balise de Style ne fonctionne que pour le document dans les mail ou en l’occurrence le premier élément
et encore pas sur toutes les app mail
ton style doit être inline
renseigne toi sur ce que veut dire INLINE

Cliquez pour agrandir...

Merci , je vais tester des lundi, je ne connaissais pas cette subtilité de inline, internal et external

c'est la même chose mais dans le outertext de l’élément et sans les accolades
la classe n'est plus nécessaire puisque inline

quand a opacité regarde si ça ne serait pas plutôt une virgule que le point
et enlève les "<>" dans la création des cid !!!!!!!

helas ca a fait exactement la meme chose
l'image se colle apres le tableau
ensuite pour l'opacité si ca ne fonctionne pas je peux creer l'image avec tune transparence

re
si on voit pas le reste du code html produit ça va être difficile de t'aider
l'image elle sert de fond transparent a quoi
a tu penser a utiliser plutôt le propertie background et transparency
bref sans code ni fichier tu va ramer longtemps
travailler en aveugle c'est pas mon fort

bonjour
Voici mon code
a noter que toutes les images sont bien presentes et à l'edroi souhaitee
seule mon image en arriere plan que je souhaite ne l'et pas , elle se positionne apres le tableau
et l'opacité n'a pas l'ai de fonctionner mais si c'est que ca , c'est pas important




Dim myMail
Dim cdoConfiguration

Set myMail = CreateObject("CDO.Message")
Set cdoConfiguration = CreateObject("CDO.Configuration")

cdoConfiguration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
cdoConfiguration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "serveur"
cdoConfiguration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
cdoConfiguration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
cdoConfiguration.Fields.Update
Set myMail.Configuration = cdoConfiguration


Theme = ateliers("nom_theme")

Select Case Theme

Case "Teams"
imgdyn = "teams.png"
Case "KeePass"
imgdyn = "keepass.png"
Case "Excel"
imgdyn = "excel.png"
Case "Word"
imgdyn = "word.png"
Case "Outlook"
imgdyn = "outlook.png"
Case "PowerPoint"
imgdyn = "powerpoint.png"
Case "Power BI"
imgdyn = "powerbi.png"
Case "Sharepoint"
imgdyn = "sharepoint.png"
Case "OneNote"
imgdyn = "onenote.png"
Case "Windows"
imgdyn = "windows.png"
Case "Téléphonie mobile"
imgdyn = "telephonie.png"
Case Else
imgdyn = "blank.png"
End Select


logo ="<div style='text-align: left;'><img src='cid:logo lounge.jpg' width='50'><br></div>"

logoshift ="<div style='text-align: left;'><img src='cid:logo lounge.jpg' width='50'>&nbsp;&nbsp;"
logoshift = logoshift & "<img src='cid:logo_shift.png' width='100'>"
logoshift = logoshift & "<br></div>"

annule="<a href='http://lounge/desinscription.asp?ia="& id_atelier & "&mail=" & request.Form("mail") & "'>"
annule= annule &"<img src='cid:delete.png' width='100'>"
annule= annule &"</a>"

footer="<div style='font-family:Arial, Helvetica, sans-serif;font-size:10px;'>"
footer=footer &"<i>En cas d’incident, veuillez contacter le Help Desk<br />"
footer=footer & "Afin d’évaluer la qualité des services du Lounge IT, nous vous informons que vous pourriez prochainement être sollicités pour répondre à une enquête de satisfaction"
footer=footer & "</i></div>"

Nom_atelier= ateliers("nom_atelier")

colinstr = InStr(1, Nom_atelier, "]")
If colinstr > 0 Then
libatelier = Mid(Nom_atelier, colinstr + 1, Len(Nom_atelier) - (colinstr - 1))
libatelier = replace(libatelier,chr(10)," ")
libatelier = replace(libatelier,chr(13)," ")
libatelier = replace(libatelier,"<br/>"," ")
libatelier = replace(libatelier,"<br>"," ")
libatelier = replace(libatelier,"</h4>","")
libatelier = replace(libatelier,"</div>","")
libatelier = replace(libatelier,"<b>","")
libatelier = replace(libatelier,"</b>","")

End If

CorpsShift="<table style='padding: 20px; width: 500px'>"
CorpsShift= CorpsShift & "<tr>"
CorpsShift= CorpsShift & "<td colspan='2'><img src='cid:shift_embrace.png'></td>"
CorpsShift= CorpsShift & "</tr>"
CorpsShift= CorpsShift & "<tr>"
CorpsShift= CorpsShift & "<td colspan='2' style='font-family:Arial, Helvetica, sans-serif;font-size:14px;'>"
CorpsShift= CorpsShift & "<b>Atelier</b> : " & libatelier & "<br/>"
CorpsShift= CorpsShift & "<b>Date</b> : "
CorpsShift= CorpsShift & ateliers("date_atelier") & " de " & FormatDateTime (ateliers("heure_debut_atelier"),4)
CorpsShift= CorpsShift & " à "&FormatDateTime (ateliers("heure_fin_atelier"),4) & "<br />"
CorpsShift= CorpsShift & "<b>Site</b> : " & ateliers("site_atelier") & "<br/>"
CorpsShift= CorpsShift & "<b>Salle</b> : " & ateliers("salle")
CorpsShift= CorpsShift & "</td>"
CorpsShift= CorpsShift & "</tr>"
CorpsShift= CorpsShift & "<tr>"
CorpsShift= CorpsShift & "<td>"
CorpsShift= CorpsShift & "<table border='0' width='100%'>"
CorpsShift= CorpsShift & "<tr>"
CorpsShift= CorpsShift & "<td width='25%'><img src='cid:shift_left.png'></td>"
CorpsShift= CorpsShift & "<td style='font-family:Arial, Helvetica, sans-serif;font-size:14px;text-align:right'><p>Bonjour " & request.Form("prenom") & ",</p>"
CorpsShift= CorpsShift & "<p>Vous venez de vous inscrire à une des sessions<br/>de formation des outils Microsoft 365 (Teams,<br/> OneDrive et Yammer).</p>"
CorpsShift= CorpsShift & "<p>Votre parcours de formation comprend 4<br/> sessions d’1 heure.</p>"
CorpsShift= CorpsShift & "<p>Vous recevrez un lien Teams avant le début de<br/> votre formation.</p>"
CorpsShift= CorpsShift & "<p>Avant de participer à l’un des ateliers, merci<br/>d’installer Teams sur votre poste de travail.</p>"
CorpsShift= CorpsShift & "<p>A bientôt sur Teams !</p>"
CorpsShift= CorpsShift & "</td>"
CorpsShift= CorpsShift & "</tr>"
CorpsShift= CorpsShift & "</table>"
CorpsShift= CorpsShift & "</td>"
CorpsShift= CorpsShift & "</tr>"
CorpsShift= CorpsShift & "</table>"
CorpsShift= CorpsShift & "<table style='padding: 20px; width: 1000px'>"
CorpsShift= CorpsShift & "<tr><td width='5%'></td><td>"
CorpsShift= CorpsShift & "<div style='font-family:Arial, Helvetica, sans-serif;font-size:14px;'>"
CorpsShift= CorpsShift & "En cas d'empêchement merci de vous désinscrire de<br/>l'atelier en cliquant sur le le bouton suivant</div>"
CorpsShift= CorpsShift & "<br/>" & annule &"<br/>"
CorpsShift= CorpsShift & "<p style='font-family:Arial, Helvetica, sans-serif;font-size:14px;'>Cordialement<br/>Le Lounge IT.</p>"

CorpsShift= CorpsShift & logoshift+footer & "</td></tr></table>"

dt_Atelier= ateliers("date_atelier") & " de "& FormatDateTime (ateliers("heure_debut_atelier"),4) & " à "& FormatDateTime(ateliers("heure_fin_atelier"),4)

corps = ""
Dt_Atelier = ateliers("date_atelier") & " de " & FormatDateTime(ateliers("heure_debut_atelier"), 4) & " à " & FormatDateTime(ateliers("heure_fin_atelier"), 4)


corps = corps & "<style type='text/css'>"
corps = corps & " .matable{"
corps = corps & " border: 2px solid darkblue;"
corps = corps & " border-collapse: collapse;"
corps = corps & " padding: 10px;"
corps = corps & " width: 550px"
corps = corps & " }"
corps = corps & " .col{"
corps = corps & " font-family:Arial, Helvetica, sans-serif;"
corps = corps & " font-size:14px;"

corps = corps & " }"
corps = corps & ".blog-author-image {"
corps = corps & " position: absolute;"
corps = corps & " top: 100px;"
corps = corps & " left: 200px;"
corps = corps & " opacity:0.1;"
corps = corps & "}"
corps = corps & " </style>"

corps = corps & "<table class='matable'>"
corps = corps & "<tr>"
corps = corps & "<td colspan='3'><img width='650'src='cid:logo ateliers.png'></td>"
corps = corps & "</tr>"
corps = corps & "<tr>"
corps = corps & "<td colspan='3' class='col'>"
corps = corps & "Bonjour " & request.Form("prenom")
corps = corps & ",<br/><br/>Nous vous confirmons votre inscription à l'atelier suivant :"
corps = corps & "</td>"
corps = corps & "</tr>"
corps = corps & "<tr>"
corps = corps & "<td colspan='2' width='80%'>"
corps = corps & "<table border='0' width='100%'><tr>"
corps = corps & "<td valign='top' width='50px' class='col'><b>Atelier</b></td>"
corps = corps & "<td valign='top' class='col'>&nbsp;:&nbsp;</td>"
corps = corps & "<td valign='top' class='col'>" & Nom_atelier & "</td>"
corps = corps & "</tr><tr>"
corps = corps & "<td valign='top' width='50px' class='col'><b>Date</b></td>"
corps = corps & "<td valign='top' class='col'>&nbsp;:&nbsp;</td>"
corps = corps & "<td valign='top' class='col'>" & Dt_Atelier & "</td>"
corps = corps & "</tr><tr>"
corps = corps & "<td valign='top' width='50px' class='col'><b>Site</b></td>"
corps = corps & "<td valign='top' class='col'>&nbsp;:&nbsp;</td>"
corps = corps & "<td valign='top' class='col'>" & ateliers("site_atelier") &"</td>"
corps = corps & "</tr><tr>"
corps = corps & "<td valign='top' width='50px' class='col'><b>Salle</b></td>"
corps = corps & "<td valign='top' class='col'>&nbsp;:&nbsp;</td>"
corps = corps & "<td valign='top' class='col'>" & ateliers("salle") & "</td>"
corps = corps & "</tr></table>"

corps = corps & "<td valign='center' align='left'><img width='100' src='cid:" & imgdyn & "'></td>"

corps = corps & "</tr>"
corps = corps & "<tr>"
corps = corps & "<td colspan='3' class='col'><br/><b>Un lien TEAMS vous sera envoyé avant le début de l'atelier.</b>"
corps = corps & "</td>"
corps = corps & "</tr>"
corps = corps & "<tr>"
corps = corps & "<td colspan='3' class='col'>"
corps = corps & "En cas d'empêchement merci de vous désinscrire de l'atelier en cliquant <br/>sur le le bouton suivant :<br/><br/>"
corps = corps & "<img src='cid:delete.png' width='130'><br/>"
corps = corps & "</td>"
cors = corps & "</tr>"
corps = corps & "<tr>"
corps = corps & "<td colspan='3' class='col'>"
corps = corps & "<br/>Cordialement,<br/>Le Lounge IT.<br/><br/>"
corps = corps & "</td>"
corps = corps & "</tr>"
corps = corps & "<tr>"
corps = corps & "<td colspan='3' style='font-family:Arial, Helvetica, sans-serif;font-size:10px;'>"
corps = corps & "<i>En cas d’incident, veuillez contacter le Help Desk<br/>"
corps = corps & "Afin d’évaluer la qualité des services du Lounge IT, nous vous informons que vous pourriez prochainement être sollicités pour répondre à une enquête de satisfaction"
corps = corps & "</i>"
corps = corps & "</td>"
corps = corps & "</tr>"
corps = corps & "</table>"
corps = corps & " <div><img style='position: absolute;top: 100;left: 200;opacity:0.1;' src='cid:logo lounge.jpg'>"
corps = corps & "</div>"


Dim strTo
Dim strFrom
Dim strSubject
Dim strBody

strTo = request.Form("mail")
strFrom = "noreply"
strSubject = "Confirmation inscription atelier"
myMail.AddAttachment(Fnm)
if ateliers("nom_theme")="SHIFT" then
strBody = CorpsShift
else
strBody = corps
end if


myMail.To = strTo
myMail.From = strFrom
myMail.Subject = strSubject
'myMail.AddAttachment(Fnm)

myMail.HTMLBody = strBody

Set objBP = myMail.AddRelatedBodyPart(Server.MapPath("images/logos/logo lounge.jpg"), "logo lounge.jpg", 1)
objBP.Fields.Item("urn:schemas:mailheader:Content-ID") = "<logo lounge.jpg>"
objBP.Fields.Update

Set objannule = myMail.AddRelatedBodyPart(Server.MapPath("images/delete.png"), "delete.png", 1)
objannule.Fields.Item("urn:schemas:mailheader:Content-ID") = "<delete.png>"
objannule.Fields.Update

set objembrace = myMail.AddRelatedBodyPart(Server.MapPath("images/shift_embrace.png"), "shift_embrace.png", 1)
objembrace.Fields.Item("urn:schemas:mailheader:Content-ID") = "<shift_embrace.png>"
objembrace.Fields.Update

set objleft = myMail.AddRelatedBodyPart(Server.MapPath("images/shift_left.png"), "shift_left.png", 1)
objleft.Fields.Item("urn:schemas:mailheader:Content-ID") = "<shift_left.png>"
objleft.Fields.Update

set objshift = myMail.AddRelatedBodyPart(Server.MapPath("images/logo_shift.png"), "logo_shift.png", 1)
objshift.Fields.Item("urn:schemas:mailheader:Content-ID") = "<logo_shift.png>"
objshift.Fields.Update

Set objappli = myMail.AddRelatedBodyPart(Server.MapPath("images/" & imgdyn), imgdyn, 1)
objappli.Fields.Item("urn:schemas:mailheader:Content-ID") = "<" & imgdyn & ">"
objappli.Fields.Update

set objatelier = myMail.AddRelatedBodyPart(Server.MapPath("images/logo ateliers.png"), "logo ateliers.png", 1)
objatelier.Fields.Item("urn:schemas:mailheader:Content-ID") = "<logo ateliers.png>"
objatelier.Fields.Update


myMail.Send
Set myMail = Nothing
Set cdoConfiguration = Nothing


rendu souhaité :


Rendu obtenu , le logo est apres le tableau et non transparent

re
Bonjour
la encore une fois
je n'ai pas le userform
bref je suis toujours en aveugle
faites un peu plus d'efforts
essayez de comprendre que nous n'avons pas votre dossier + fichier image etc....
on ne peut donc rien tester