Hi

I tried with your suggestion but it resulted in a loss of the message
instead.

Here's my part of my code after your suggestion (probably I have missed
some "simple/obvious" part that I fully don't understand yet..

FrmMeddelande.Show '(Meddelande=Message)
Message = FrmMeddelande.TextBox1.Value

Dim stHTML As String
stHTML = "<html<body<font FACE=" & Chr(34) & "ARIAL" & Chr(34) & ""
stHTML = Message
stHTML = Replace(stHTML, Chr(10), "<br")

The procedure ends with the following code where stHTML is combined with
another object (never mind the swedish words...)


With olMail
.To = SändLista
.Subject = "Matchkallelse"
.HTMLBody = stHTML & vbCrLf & vbCrLf & vbCrLf &
SheetToHTML(ActiveSheet) 'ThisWorkbook.Sheets("2002"))
.Attachments.Add "C:\Bilaga.xls", olByValue, _
1, "Bilaga"
.Display

End With

Set olMail = Nothing
Set olApp = Nothing
Sheets("Tempmail").Delete
Kill "c:\bilaga.xls"
End If


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!