urdearboy
urdearboy

Reputation: 14580

VBA Email HTML Body add Page Sperator

Is there a way to add a page break / page separator in outlook email? I am currently cheating just using "------------------------------" but this tends to fall short on aesthetic as far as formatting goes.

Ideally I would have something similar to adding 3 dashes in Stack Overflow which adds a page break. When looking this up, I wrongly keep finding details on line breaks (<br>)

below this


above this

With OutMail
        .SentOnBehalfOfName = "[email protected]"
        .to = Target.Offset(0, 2)
        .cc = Target.Offset(0, 3)
        .Subject = "Check Out This Email"
        .HTMLBody = "<p style = 'font-family:arial' >" _
                    & "Hi " & Target.Offset(0, 1) & ", " _
                    & "<br>" _
                    & EmailBody & "</p>" _
                    & RangetoHTML(EmailTable) _
                    & "<br>" & "<br>" _
                    & "---------------------------------------------------------------"
                    & "<p style = 'font-family:arial' >"

        'Change to .Send to actually send emails
        .Display
       Target.Offset(, -1) = "Sent" 
End With

Upvotes: 1

Views: 422

Answers (1)

hod
hod

Reputation: 761

Have you tried using <hr> tag?

With OutMail
            .SentOnBehalfOfName = "[email protected]"
            .to = Target.Offset(0, 2)
            .cc = Target.Offset(0, 3)
            .Subject = "Check Out This Email"
            .HTMLBody = "<p style = 'font-family:arial' >" _
                        & "Hi " & Target.Offset(0, 1) & ", " _
                        & "<br>" _
                        & EmailBody & "</p>" _
                        & RangetoHTML(EmailTable) _
                        & "<br>" & "<br>" _
                        & "<hr>" _
                        & "<p style = 'font-family:arial' >"

            'Change to .Send to actually send emails
            .Display
           Target.Offset(, -1) = "Sent" 
    End With

Hope this helps!

Upvotes: 2

Related Questions