Generere HTML-kode med VBA
Min VBA-procedure generer en HTML-mail, og det har virket indtil nu.Jeg har problemer med at få genereret html-koden til et link i mailen rigtigt.
Jeg har afluret hvordan links optræder i andre html-koder hos os. eksempelvis:
<a href="file://Drev001/Kode9$/Afdeling/Team/Bestillingsliste for adeling X"><strong>Bestillingsliste</strong></a>
Derfor prøver jeg at opbygge noget tilsvarende til brug i en HTML-mail, ved hjælp af VBA:
Public Const THISPATH As String = "//Drev001/Kode9$/Afdeling/Team/Bestillingsliste for adeling X"
newmsg.HTMLBody = newmsg.HTMLBody & "Bestillingslisten findes som altid på:<BR>" & Chr(10) & "<a href=""file:" & THISPATH & "><strong>" & THISPATH & "</strong></a>" & "<BR><BR>"
' sidste linje skrives med kursiv:
newmsg.HTMLBody = newmsg.HTMLBody & "<i>Denne mail er systemskabt</i>" & "<BR><BR>"
newmsg.HTMLBody = newmsg.HTMLBody & "Bestillingslisten findes som altid på:<BR>" & Chr(10) & "<a href=""file:" & THISPATH & "><strong>" & THISPATH & "</strong></a>" & "<BR><BR>"
' sidste linje skrives med kursiv:
newmsg.HTMLBody = newmsg.HTMLBody & "<i>Denne mail er systemskabt</i>" & "<BR><BR>"
Det ser dog ikke rigtigt ud i den HTML-mail der beliver genereret. når jeg fremkalder HTML-koden ser den tilsyneeladende sådan ud i mailen:
<body lang="EN-GB" link="blue" vlink="purple"><div class="WordSection1"><p class="MsoNormal"><span style="font-family:"Calibri","sans-serif"">Bestillingslisten for salt og vitamin er opdateret?<br><br>Bestillingslisten findes som altid på:</span><o:p></o:p></p></div></body>
