Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketÆndre mail fra body til HTMLbody

 Besvar Besvar
Forfatter
Hartig Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 14.Dec.2018
Land: Danmark
Status: Offline
Point: 42
Direkte link til dette indlæg Emne: Ændre mail fra body til HTMLbody
    Sendt: 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. Sleepy
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>&nbsp;</p>
    <p>Velkommen som bruger af TOMRA Notify + Assist.</p>
    p>L&aelig;s mere om produktet p&aring; <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>&nbsp;</p>
    <p>&nbsp;</p>
    <p>Vejledning til hvordan du kommer i gang:</p>
    <p>&nbsp;</p>
    <p><strong>1 Hent appen</strong></p>
    <p>S&oslash;g efter <u>TOMRA Notify+Assist</u> i Appstore eller i Google Play-butik.</p>
    <p>Du kan bruge appen p&aring; b&aring;de smartphones og tablets.</p>
    <p>Det er ogs&aring; muligt at &aring;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&amp;data=02%7C01%7Ckenneth.hartig%40tomra.com%7Cde457da4f21d4130c8cb08d7780ae239%7C4308d118edd143008a37cfeba8ad5898%7C0%7C0%7C637109860455220919&amp;sdata=WDTFdZ9ORcAmGBLDKuhIporUzLQjDG2fZcuz60fz3ds%3D&amp;reserved=0">https://notifyassist.tomra.cloud</a></p>
    <p>&nbsp;</p>
    <p>&nbsp;</p>
    <p><strong>2 Log ind</strong></p>
    <p>For at logge ind som butikschef/k&oslash;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&aring; du gerne&nbsp;<u>&aelig;ndre</u>)</p>
    <p>&nbsp;</p>
    <p>&nbsp;</p>
    <p><strong>3 Tilf&oslash;j brugere</strong></p>
    <p>Personalet kan oprette deres egne brugerkonti, hvor du som butikschef/k&oslash;bmand skal godkende adgang.</p>
    <p>Se funktioner under menuen / fanen &#39;USERS&#39;.</p>
    <p>&nbsp;</p>
    <p>Butik-id, der skal bruges til at anmode om adgang:</p>
    <p>Alias/Store ID:&nbsp;<span style="color:#ff0000;"><strong>Sheets("Credentials").Range("B3")</strong></span><br />
    (Du kan ogs&aring; finde butik-id under &quot;Indstillinger&quot; i applikationen).</p>
    <p>&nbsp;</p>
    <p>&nbsp;</p>
    <p><strong>4 Tilpas hvilke notifikationer du &oslash;nsker ad modtage p&aring; enheden</strong></p>
    <p>I Notify+Assist appen, tryk p&aring; <u>indstillinger</u> (lille tandhjul i &oslash;vre h&oslash;jre hj&oslash;rne)</p>
    <p>V&aelig;lg Notifikationer</p>
    <p>Sl&aring; notifikationer til, for at tilpasse hvilke notifikationer der &oslash;nskes at modtage p&aring; enheden.</p>
    <p>&nbsp;</p>
    <p>&nbsp;</p>
    <p>Hvis du har sp&oslash;rgsm&aring;l eller vil give os din feedback eller ideer til forbedringer, s&aring; 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
Til top



Til top
berg Se dropdown
Bronze bruger
Bronze bruger


Medlem: 05.Aug.2018
Status: Offline
Point: 50
Direkte link til dette indlæg Sendt: 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>" & "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


Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk