2013-02-26 97 views
0

他是一個小問題,但令我困惑。我正在自動執行一個電子郵件從Excel發送。下面的代碼,因爲某些原因,使得最後一行比正常間距更大:VBA - Outlook Email.HTMLBody行距?

Sub emailspacing() 
Dim OutApp As Object 
Dim OutMail As Object 
Set OutApp = CreateObject("Outlook.Application") 
Set OutMail = OutApp.CreateItem(0) 
With OutMail 
    .HTMLBody = "<p style='font-family:calibri;font-size:14.5'>Thanks for your help</p>" 
    .display 
End With 

然而,當我刪除了P型系列的一部分,電子郵件與完美的行距產生???

Sub emailspacing() 
Dim OutApp As Object 
Dim OutMail As Object 
Set OutApp = CreateObject("Outlook.Application") 
Set OutMail = OutApp.CreateItem(0) 
With OutMail 
    .HTMLBody = "Thanks for your help" 
    .display 
End With 

有沒有人知道一種方式來結合風格化的HTML文本與正常的行間距?

+0

「間距」是什麼意思?我在最後一行之後沒有間距(因爲它是最後一行),兩行之間的間距對我來說是一致的(Outlook 2010)。 – 2013-02-26 23:20:43

+0

當底線突出顯示時更清晰。當我這樣做時,線條大約是正常尺寸的150%。我通過rangetohtml向底部添加了額外的部分,增加的差距看起來不正確 – Kirbtheman 2013-02-26 23:58:25

回答

0

破解它!這需要添加到p樣式中:

margin-bottom:.0001pt;