Thor
Yes, simple, but not always so obvious
Dim stHTML As String
stHTML = "<html<body<font FACE=" & Chr(34) & "ARIAL" & Chr(34) & ""
'stHTML = Message Replace this line
stHTML = stHTML & Message ' with this line
stHTML = Replace(stHTML, Chr(10), "<br")
--
Dick Kusleika
MVP - Excel
www.dicks-clicks.com
Post all replies to the newsgroup.
"Thor" wrote in message
...
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!