Excel创buildOutlook电子邮件，但文本不alignment

我有附加的文件，创build收据电子邮件给客户。 我试图让第二个字段在Outlook电子邮件alignment，但迄今未能find解决scheme。 已经尝试了Chr9，vbTab，只是增加了空格等解决scheme将不胜感激 – 我不认为它是一个巨大的任务来解决，但它目前certificate是难以捉摸的。

Sub GenerateEmails() Dim ce As String: ce = "[e-mail]" 'create draft emails Dim OutApp As Object, OutMail As Object Set OutApp = CreateObject("Outlook.Application") On Error GoTo cleanup If ce Like "?*@?*.?*" Then Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .TO = ce .CC = "" .Subject = "Receipt" .Body = "Payment Amount: " & "$10,000" & vbNewLine & _ "Receipt Num: " & "R645-81658" & vbNewLine & _ "Sales Rep: " & "Ben Smith" & vbNewLine & _ "Date Received: " & "05 July 2016" .Display End With On Error GoTo 0 Set OutMail = Nothing End If cleanup: Set OutApp = Nothing Application.ScreenUpdating = True End Sub 

谢谢

Answer 1

 Sub Email() Dim ol As Outlook.Application Dim olMsg As Outlook.MailItem Set ol = New Outlook.Application Set olMsg = ol.CreateItem(olMailItem) olMsg.BodyFormat = olFormatHTML olMsg.HTMLBody = "<TABLE><TR><TD>Cell 1</td><td>Value 1</td></tr>" & _ "<TR><TD>Cell 2</td><td>Value 2</td></tr>" & _ "<TR><TD>Cell 3</td><td>Value 3</td></tr></table>" olMsg.Display End Sub 

另外，您可以使用每个字符具有相同大小的字体，如Courier？ 并使用maxmimum，比如说100个空格，然后left("data to be added " & string(100," "),100)

Answer 2

我只是添加了所需的空间数量（我计算了电子邮件中需要多less空间，而我认为您已将其与代码alignment）。

  .Body = "Payment Amount: " & "$10,000" & vbNewLine & _ "Receipt Num: " & "R645-81658" & vbNewLine & _ "Sales Rep: " & "Ben Smith" & vbNewLine & _ "Date Received: " & "05 July 2016" 

这对我来说是一致的。 但它不是完美的，它可以通过@Nathan_Sav的build议和使用表。