Ændre mail fra body til HTMLbody
Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=4688
Udskrevet den: 22.Nov.2024 kl. 17:05
Emne: Ændre mail fra body til HTMLbody
Besked fra: Hartig
Emne: Ændre mail fra body til HTMLbody
Posteringsdato: 03.Mar.2022 kl. 09:59
|
Hej. Jeg prøver at ændre en mail fra almindelig body til HTMLbody, men det går ikke så godt, for at sige det mildt.  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. Koden ser ud således: 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 |
Svar:
Besked fra: berg
Posteringsdato: 09.Mar.2022 kl. 18:55
|
Her en lidt forenklet udgave, som viser hvordan du laver din HTML Body. Sub sendmail() Dim OutlookApp As Object Dim OutlookMail As Object Dim strbody As String Set OutlookApp = CreateObject("Outlook.Application") Set OutlookMail = OutlookApp.CreateItem(0) On Error Resume Next 'Her indsættes den HTML tekst som skal inkluderes i Body sektionen strbody = "<BODY style=font-size:11pt;font-family:Calibri>" & "Hej " & _ "Velkommen som bruger af TOMRA Notify + Assist." & _ "<BODY style=font-size:10pt;font-family:Calibri><br>" & ActiveSheet.Range("D4").Value & _ "<br><BODY style=font-size:10pt;font-family:Calibri><br>" & "Læs mere om produktet, på" & _ "<BODY style=font-size:10pt;font-family:Calibri>" & " http://www.tomra.com/en/collection/reverse-vending/tcs-digital/notify-and-assist" rel="nofollow - www.tomra.com/en/collection/reverse-vending/tcs-digital/notify-and-assist" With OutlookMail .To = Sheets("Credentials").Range("B1") .CC = "" .BCC = "" .Subject = "Velkommen til TOMRA Notify + Assist" .HTMLbody = strbody & "<br>" & .HTMLbody .Attachments.Add "C:\N+A Userguides\na-ug-02-2022-DK.pdf" .Send End With If IsCreated Then OutlApp.Quit Set OutlApp = Nothing End Sub |