Hej.
Jeg har forsøgt at generere den ønskede tekst i en HTML generator, men den bliver ved med at gå i fejl:
Jeg har forsøgt Google, men uden held.
Dim OutlookApp As Object
Dim OutlookMail As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
On Error Resume Next
With OutlookMail
.To = Sheets("Credentials").Range("B1")
.CC = ""
.BCC = ""
.Subject = "Velkommen til TOMRA Notify + Assist"
.HTMLbody = "<HTML><BODY>" & _
<p>Hej!</p>
<p> </p>
<p>Velkommen som bruger af TOMRA Notify + Assist.</p>
p>Læs mere om produktet på <a href="https://www.tomra.com/en/collection/reverse-vending/tcs-digital/notify-and-assist">https://www.tomra.com/en/collection/reverse-vending/tcs-digital/notify-and-assist</a></p>
<p> </p>
<p> </p>
<p>Vejledning til hvordan du kommer i gang:</p>
<p> </p>
<p><strong>1 Hent appen</strong></p>
<p>Søg efter <u>TOMRA Notify+Assist</u> i Appstore eller i Google Play-butik.</p>
<p>Du kan bruge appen på både smartphones og tablets.</p>
<p>Det er også muligt at åbne applikationen i en browser med denne webadresse:</p>
<p><a href="https://eur02.safelinks.protection.outlook.com/?url=https%3A%2F%2Fnotifyassist.tomra.cloud%2F&data=02%7C01%7Ckenneth.hartig%40tomra.com%7Cde457da4f21d4130c8cb08d7780ae239%7C4308d118edd143008a37cfeba8ad5898%7C0%7C0%7C637109860455220919&sdata=WDTFdZ9ORcAmGBLDKuhIporUzLQjDG2fZcuz60fz3ds%3D&reserved=0">https://notifyassist.tomra.cloud</a></p>
<p> </p>
<p> </p>
<p><strong>2 Log ind</strong></p>
<p>For at logge ind som butikschef/købmand:</p>
<p>Brugernavn: <span style="color:#ff0000;"><strong>Sheets("Credentials").Range("B1")</strong></span></p>
<p>Password: <span style="color:#ff0000;"><strong>Sheets("Credentials").Range("B2")</strong></span>(det må du gerne <u>ændre</u>)</p>
<p> </p>
<p> </p>
<p><strong>3 Tilføj brugere</strong></p>
<p>Personalet kan oprette deres egne brugerkonti, hvor du som butikschef/købmand skal godkende adgang.</p>
<p>Se funktioner under menuen / fanen 'USERS'.</p>
<p> </p>
<p>Butik-id, der skal bruges til at anmode om adgang:</p>
<p>Alias/Store ID: <span style="color:#ff0000;"><strong>Sheets("Credentials").Range("B3")</strong></span><br />
(Du kan også finde butik-id under "Indstillinger" i applikationen).</p>
<p> </p>
<p> </p>
<p><strong>4 Tilpas hvilke notifikationer du ønsker ad modtage på enheden</strong></p>
<p>I Notify+Assist appen, tryk på <u>indstillinger</u> (lille tandhjul i øvre højre hjørne)</p>
<p>Vælg Notifikationer</p>
<p>Slå notifikationer til, for at tilpasse hvilke notifikationer der ønskes at modtage på enheden.</p>
<p> </p>
<p> </p>
<p>Hvis du har spørgsmål eller vil give os din feedback eller ideer til forbedringer, så kontakt os.</p>
</BODY></HTML>" & _
OutMail.HTMLbody
.Attachments.Add "C:\N+A Userguides\na-ug-02-2022-DK.pdf"
.Send
End With
Set OutlookMail = Nothing
Set OutlookApp = Nothing