Formating help with VBA

[peter_z]

Hey Guys

I need my txt to display like this:

[Opening free format]<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o> </o>
The file attached to this email contains a schedule of the policies you have placed with us which:
<o></o>
· XXXXX
· XXXXX

XXX
<o> </o>
XXX
<o> </o>
XXX
<o> </o>
[Closing free format]<o></o>

I have the following code in vba:

 aEmail.body = "[Opening free format]" _
& "The file attached to this email contains a schedule of the policies you have placed with us which: " _
& "[FONT=Calibri]XXXXX[/FONT]" _
& "[FONT=Calibri]XXXXX[/FONT] " _
& "XXX " _
& "XXX " _
& "XXX " _
& "[Closing free format]" 'Change Body Message

But it will come out like this: The file attached to this email contains a schedule of the policies you have placed with us which: XXXXX XXXX XXX XXX XXX [Closing free format]

Any help would be much appreciated.

THANKS HEAPS IN ADVANCE!

[Opening free format]

 

[Boller]

The carriage return character is : Chr(13)

 

[Dryver14]

try this

aEmail.body = "[Opening free format]" _
& "The file attached to this email contains a schedule of the policies you have placed with us which: " _
& vbLf & "XXXXX" _
& vbLf & "XXXXX " _
& vbLf & "XXX " _
& vbLf & "XXX " _
& vbLf & "XXX " _
& vbLf & "[Closing free format]" 'Change Body Message

 

[Norie]

Is it just the carraige return you want, not the bullets and other formatting?

 

[peter_z]

I was trying to get the spacing and bullets exact as well.

Cheers
Peter

 

[Norie]

Peter

You would need to use HTMLBody instead of Body, and of course the HTML code to get that formatting.

Here's how you can do the bulleted list.

Dim strHTML As String
 
    strHTML = "< ul>"
    strHTML = strHTML & "< li>XXXX"
    strHTML = strHTML & "< li>XXXX"
    strHTML = strHTML & "< /ul>
 
    strHTML = Replace(strhtml, " ", "")
...
   aEmail.HTMLBody = strHTML

Note, the only reason for the Replace is to get rid of the spaces I had to add so the HTML would appear on the board.

In HTML you can use the BR tag for line breaks.
PS You are using Outlook aren't you?

 

[peter_z]

Just fiddled around with the code a bit more works perfect.

Thanks a lot for your help Boller, Dryver14 and Norie!