Question

我必须每天生成一封电子邮件，我必须将excel单元格复制到电子邮件中（只有两列但很多行）。我正在使用这个功能：

str = "<table>"
str = str & "<head><style>table, th, td {border: 1px solid black; border-collapse:" &  "collapse;}</style></head><body>"
getdata = str

我正在以这种方式生成电子邮件：

With emailpod
    .BodyFormat = 3
    .display
    .To = Sheets("email").Range("H1").Value
    .cc = Sheets("email").Range("H2").Value
    .Subject = Sheets("email").Range("H3").Value & Sheets("email").Range("H6")
    .HTMLBody = Sheets("email").Range("H4") & "<br><br>" & Sheets("email").Range("H5") & "<br><br>" & _
        getdata & "<br>" & "Regards" & .HTMLBody & "</body>"

End With

我有细胞边界，但我还需要将细胞对齐到边界内部。谁知道怎么做？

Answer 1

将此添加到您的样式（CSS）

td {text-align:right;}

所以它看起来像这样：

str = str & "<head><style>table, th, td {border: 1px solid black; border-collapse:collapse;} td {text-align:right;} </style></head><body>"

vba中的单元格对齐创建了html outlook消息

1 个答案: