Adding Leading Spaces (Indent) to StrBody (Outlook Email)

[LBinGA]

Hi all:

I would like to indent the bullet points and align the text under each bullet point in the following code. As you can see, I've tried several ways to do that but no matter what I try, it comes out left justified.

 Set OutApp = CreateObject("Outlook.Application")    Set OutMail = OutApp.CreateItem(0)


    strbody = "[SIZE=2][FONT=Arial]Hello " & Sheets("IRF Worksheet").Range("a703").Value & ", [/FONT][/SIZE][FONT=Arial][SIZE=2]" & _
                "Our conditional Select Renewal Quote is attached.  It is based on the insured's expiring exposure information and is conditioned upon satisfaction of the renewal criteria outlined in the quote letter. The attached Select Renewal Quote will remain valid until " & Sheets("IRF Worksheet").Range("M9").Value & "." & _
                "If you would like to bind on the basis of this Select Renewal Quote:" & _
               [B] "•" & Space(10) & "[/B]  Please confirm that all of the renewal criteria indicated on the quote letter have been met via your bind request. " & _
               [B] Space(10) & "•" & "[/B]  Bind request can be either by email OR by signing (electronically or otherwise), dating and providing the policy number, if available, in the                   designated places near the bottom of the Select Renewal Quote Letter. " & _
             [B]   "          " & "•" & "[/B]  Return to me or " & Sheets("IRF Worksheet").Range("b3").Value & ". " & _
                "Please let me know if you have any questions." & _
                "Sincerely," & _
                "Sent on behalf of " & Sheets("IRF Worksheet").Range("b3").Value & ""


    On Error Resume Next
 
 Recipient = Sheets("Select Ren").Range("a72").Value


    With OutMail
        .Display
        .To = Recipient
        .CC = ""
        .BCC = ""
        .subject = "Select Renewal QUOTE:  " & Sheets("Select Ren").Range("f11").Value
        .HTMLBody = strbody & "
" & .HTMLBody
        .Attachments.Add PDF_File
        .Save
        .Display
        
    End With[/SIZE][/FONT]

I'd like it to look like this when activated:

If you would like to bind on the basis of this Select Renewal Quote:

10 spaces • Please confirm that all of the renewal criteria indicated on the quote letter have been met via your bind request.
10 spaces • Bind request can be either by email OR by signing (electronically or otherwise), dating and providing the policy number, if available, in
13 spaces the designated places near the bottom of the Select Renewal Quote Letter.
10 spaces • Return to me or <>.

Please let me know if you have any questions.

Thank you,
LBinGA

 

[Domenic]

Since you're using the HTMLBody property, you can use HTML tags. Try building your string like this...

[Note: A space has been added after each instance of "<" to prevent the Board from interpreting it as HTML code. Therefore, remove those spaces from the code.]

        strBody = ""
        strBody = strBody & "< p>Here's a list of bulleted items:< /p>" & vbCrLf
        strBody = strBody & "< ul>" & vbCrLf
        strBody = strBody & "< li>Bullet number one< /li>" & vbCrLf
        strBody = strBody & "< li>Bullet number two< /li>" & vbCrLf
        strBody = strBody & "< li>Bullet number three< /li>" & vbCrLf
        strBody = strBody & "< /ul>" & vbCrLf
        strBody = strBody & "< p>That's the end of the list.< /p>"

Hope this helps!

 

[LBinGA]

Since you're using the HTMLBody property, you can use HTML tags. Try building your string like this...

[Note: A space has been added after each instance of "<" to prevent the Board from interpreting it as HTML code. Therefore, remove those spaces from the code.]

        strBody = ""
        strBody = strBody & "< p>Here's a list of bulleted items:< /p>" & vbCrLf
        strBody = strBody & "< ul>" & vbCrLf
        strBody = strBody & "< li>Bullet number one< /li>" & vbCrLf
        strBody = strBody & "< li>Bullet number two< /li>" & vbCrLf
        strBody = strBody & "< li>Bullet number three< /li>" & vbCrLf
        strBody = strBody & "< /ul>" & vbCrLf
        strBody = strBody & "< p>That's the end of the list.< /p>"

Hope this helps!

PERFECT! Thank you. I also removed the carriage returns as they were needed. Final result was:

strbody = ""        strbody = strbody & "Hello " & Sheets("IRF Worksheet").Range("a703").Value & ", 
"strbody = strbody & "Our conditional Select Renewal Quote is attached.  It is based on the insured's expiring exposure information and is conditioned upon satisfaction of the renewal criteria outlined in the quote letter. The attached Select Renewal Quote will remain valid until " & Sheets("IRF Worksheet").Range("M9").Value & ". "strbody = strbody & "
[LIST]"strbody = strbody & "
[*]Please confirm that all of the renewal criteria indicated on the quote letter have been met via your bind request."strbody = strbody & "
[*]Bind request can be either by email OR by signing (electronically or otherwise), dating and providing the policy number, if available, in the designated places near the bottom of the Select Renewal Quote Letter."strbody = strbody & "
[*]Return to me or " & Sheets("IRF Worksheet").Range("b3").Value & "."strbody = strbody & "
[/LIST]
"strbody = strbody & "Sincerely,"
        strbody = strbody & ""
        strbody = strbody & "Sent on behalf of " & Sheets("IRF Worksheet").Range("b3").Value & ". 
"

I've struggled with this for a couple hours. I should have asked here first!

Thanks again!
LBinGA