VBA to MS Outlook - set paragraph 'SpaceAfter' property

[markjkubicki]

have this line of code to setup an email in outlook...

With objMail
                .To = varAddress & ""
                .Subject = Nz(varSubject, "")
                .HTMLBody = "<span style='font:calibri, font-size:11pt;'>" & Nz(varBody, "") & Format(Now) & "<\span>"
                .Body = Nz(varBody, "")
                .Save
                .Display
            End With

the nuance is that the default paragraph format for SpaceAfter and SpaceBefore is AUTO (which seems default to half of the font's point size);

-->what I been asked repeatedly is to change the spacing to be 0pt for both before and after
would you be able to direct me on how include that instruction to the above (plz) ?



as always, with thnx in advance,
m.

[June7]

The default Before and After for me is 0.

Might be able to control this with HTML tags. https://stackoverflow.com/questions/...y-line-spacing

[markjkubicki]

tried revising the line to be

.HTMLBody = "<span style='font:calibri, font-size:11pt, Paragraph.SpaceAfter = 0, Paragraph.SpaceBefore = 0;'>" & Nz(varBody, "") & Format(Now) & "<\span>"

still comes back: AUTO (which - for us... has space before and after)

also tried commenting out the line (as had been done in your link (thnx)) - same issue remained

[June7]

Searched for explanation of why my default is 0 not Auto. Possibly this is managed by NormalEmail.dotm template saved with user profile. If there is no template then I suppose Outlook has to fall back on it's general defaults.

I've found several old threads on this same question. There were no responses or none that had solution.

[markjkubicki]

well, it's always nice to know when you are not alone in the world

THNX for the effort (much appreciated)

[Welshgasman]

So have you looked at your NormalEmail template?

Here is mine.