Anvendelse af HTML.body, i et aumatiseret mailsystem.

Kære Eksperter,

Jeg har af flere gange gjort brug af jeres ekspertise, og derved udviklet et mailsystem, som genere en række data på bestemte enheder.

Mit spørgsmål lyder, om der der nogen, som er knag til anvendelse af HTML koder, ved opsætningen af tabeller i selve mailsystemet.

Jeg indtil videre anvendt nedenstående kode, dele er dog slettet uden betydning grundet privatisering af enkelte elementer.

Private Sub afsendAfBesked()
   
Worksheets("Mail").Activate
 
Dim modtager As String, linje As String

modtager = Range("g1") ' = Personernes navne
linje = "Dato" & vbTab & vbTab & "    Timer" & vbTab & vbTab & "Aktivitetsnr" & vbTab & "Aktivitet" & vbTab & "Modtagende omkostningsenhed" & vbCr

For ræk = 1 To ActiveCell.SpecialCells(xlLastCell).Row
    Range("g" & ræk).Activate ' N kolonnen = fejlreg. timer
    If ActiveCell <> modtager Then
        SendMail mail, navn, linje
        modtager = Range("G" & ræk) ' N kolonnen = fejlreg. timer
linje = "Dato" & vbTab & vbTab & "    Timer" & vbTab & vbTab & "Aktivitetsnr" & vbTab & "Aktivitet" & vbTab & "Modtagende omkostningsenhed" & vbCr

End If

With ActiveSheet

    Set navn = ActiveCell
    Set akt = ActiveCell.Offset(0, 1)
    Set aktnavn = ActiveCell.Offset(0, 2)
    Set regt = ActiveCell.Offset(0, 7)
    Set mail = ActiveCell.Offset(0, 10)
    Set dag = ActiveCell.Offset(0, 3)
    Set org = ActiveCell.Offset(0, -3)
   
    linje = linje & dag & vbTab & Format(regt, "00.00") & " timer" & vbTab & "  " & akt & vbTab & "    " & aktnavn & "    " & org & vbCr
   
End With

Next ræk
Rem sidste modtager
  SendMail mail, navn, linje
End Sub

Private Sub SendMail(mail, navn, linje)


  Set objOutlook = CreateObject("Outlook.Application")
  Set objMail = objOutlook.CreateItem(0)
 
   
      With objMail
        .To = mail
        .Subject = "Registrering på forkerte aktiviteter"
        .CC = ""
        .body = "Hej" & " " & navn & vbNewLine _
        & vbNewLine & "Følgende registreringer er anset, som værende fejlregistreringer:" & vbNewLine & vbNewLine & linje
           
             
        End With
     
      objMail.display End Sub

Det jeg tænker er en erstatning af "linje", som i stedet for skrevet i tabel form gennem brug af HTML.body...

Jeg er "meget" grøn på omkring brugen af HTML, så derfor denne lidt brede forespørgsel.

Med Venlig Hilsen

Martin Sørensen