如何对齐来自 excel VBA 的中心发送电子邮件

Question

我想使用 VBA 居中对齐从 excel 范围选择发送的电子邮件，但我不确定将它放在代码中的什么位置。有人建议我只在我的范围中添加一列。无论如何我可以把代码放在 VBA 中。顺便说一句，我对这种语言真的很陌生（就像一个小时前一样）。这是我的代码，我是从微软页面获取的：

Sub Send_Range()

ActiveSheet.Range("D4:L23").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
  .Item.To = "ABZ@123.com"
  .Item.Subject = "REMINDER: HELLO TEST" & " " & Format(Now, "mmmm yyyy")
  .Item.Send
End With
End Sub

成品：

Answer 1

Scott 所指的简单版本是

Sub test()

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

sEmail = "Please check your status on " & Activesheet.Range("A1").value
'ie..Range("A1").value has the formula "=today()"

With OutMail
        .to = ""
        .CC = ""
        .BCC = ""
        '.FROM = ""
        .Subject = ""
        .htmlBody = "<p align=""center"">" & sEmail & "</p>"
        .Send
End With

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

如何对齐来自 excel VBA 的中心发送电子邮件

How to align center sent email from excel VBA

excel

vba

excel-2013