Outlook email - format, line spacing

[markjkubicki]

I have the below snippet of code to create an Outlook Email.


...No issues, it does what it ought to do, with one exception:
Although the code calls for 0 spaces before or after a paragraph, the result is the spacing is set to AUTO (which in this office results in a space after every line.)
-not even certain if this is a code thing -or-an Outlook thing...

any thoughts will be greatly appreciated in advance,
m.

Public Sub SendEmail(varaddress As Variant, varsubject As String, varbody As String)
    On Error Resume Next
    Dim olApp As Object
    Dim objMail As Object
    Set olApp = CreateObject("Outlook.Application")    'Create a new instance of Outlook
    'Create e-mail item
    Set objMail = olApp.CreateItem(0)
    With objMail
        'Set body format to HTML
        '        .bodyformat = 2

        Dim vTitle As String
        Dim vPrompt As String
        Dim Responce As Variant
        If IsNull(varaddress) Then
            vTitle = "MISSING ADDRESS"
            vPrompt = "Address is incorrect or missing; no email will be sent"
            Responce = MsgBox(vPrompt, vbOKOnly + vbCritical, vTitle)
            Exit Sub
        Else
            With objMail
                .To = varaddress & ""
                .Subject = Nz(varsubject, "")
                .HTMLBody = "<span style='font:calibri, font-size:11pt, Paragraph.SpaceAfter = 0, Paragraph.SpaceBefore = 0;'>" & Nz(varbody, "") & Format(Now) & "<\span>"
                .Body = Nz(varbody, "")
                .Save
                .Display
            End With
        End If
    End With
    Set olApp = Nothing
    Set objMail = Nothing

End Sub

[June7]

Use <br> tag to add lines in HTML formatted text.

I can't find any info on Paragraph other than <p> tag.

It could be an on/off toggle, not specifying a number of lines. If you don't want line space, try without.

[Micron]

Does varBody value contain line breaking characters?

[markjkubicki]

yes, it does (always)

interesting just notice...
if i comment out the line:

'      .Body = Nz(varbody, "")

of course the email has no text in its body, but the paragraph line spacing is not screwed up

[June7]

Sorry, didn't notice you had both.

I think .Body and .HTMLBody conflict.

IIRC, HTMLBody ignores CrLf characters.

[Micron]

Good catch - but the issue is that there are extra lines? So I was wondering if varbody contains them. As for the body vs htmlbody thing, should be
.HTMLBody = "<span style= ..."<\span>" & varbody ?
Not seeing the need for Nz there.

[June7]

True, explicitly declared variable can never be Null unless it is Variant. Attempt to pass Null will result in run-time error.

[markjkubicki]

to clarify, there's not extra lines; there's extra space.
this is not a problem with the text added by code (varBody); it is a problem when the user continues to type within the email (which, almost without exception happens.) The spacing in varBody is as defined in the code.

the Before and After paragraph Spacing defaults to 'AUTO', which adds unwanted points space before and after each paragraph (effectively... each line -since clicking enter at the end of a sentence to move to a new line defines a 'paragraph')

what i need to do is to set: Paragraph / Indents and Spacing / Spacing / Before and After to be '0 pt' (not 'auto'); which i had hoped the code would be doing, but it is not

[June7]

I cannot replicate issue. I type in my email and do not get extra spacing.

What is the paragraph spacing setting on the ribbon?

[markjkubicki]

0 pt, 0 pt