All,

Does anyone know how I can modify the Before and After Spacing to 0 in the spacing section on an email?

I know that if I add this <BODY style=line-height: 1;</BODY> it will give me a line spacing of Single but no matter what I try I cannot find the code to change the before and after spacing to 0

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

esubject = ActiveCell

With outmail
.Display
.Subject = esub
.HTMLBody = _
"<BODY style=Before = 0:after = 0;><p><br>All,</p>" & _
"This report lists the submarkets that degraded more than 4 standard deviations in " & Tech & _
" CQI 2015 compared to the previous 59 days, and summarizes the cause and impact of the degradation. " & _
"Markets with not enough baseline data samples were removed from the degradation check.</p>" & _
"<p>Additionally, at least 6 months of historical reports can be found at the following location: " & _
"<a href=" & Chr(34) & "https://sites/AllItems.aspx" & Chr(34) & ">Daily Degradations on Server<a> " & _
"<br>Please direct any questions or requests for follow-up information, to me</BODY></p> " & _
"<BODY style=font-size:11pt;font-family:Calibri><p><br>Regards,</p></BODY>"


End With

Regards

Robert