将单元格值放入 VBA 并移动到 Outlook 时，如何在单元格中保持换行间距？

Question

最近怎么样，

我正在尝试制作一个超级简单的自动电子邮件脚本，用于发送有关项目状态的快速更新电子邮件。为了不死循环，我将所有更新注释放在一个单元格中，每个点都有一个换行符 char(10)。例子：

当我尝试将其转换为 VBA 时，我丢失了 Char(10):

下面是我遇到困难的部分

             strUpdateNotes = Range("D" & i).Text
                    olNewMail.HTMLBody = "Happy Friday!" & _
                                        "<br />" & _
                                        "<br />" & _
                                        "Weekly Project Update!" & _
                                        "<br />" & _
                                        "<br />" & _
                                        "Current Comments on the project:" & _
                                        "<br />" & _
                                        strUpdateNotes & _
                                        "<br />" & _
                                        "<br />" & _
                                        "Let me know if you have any questions. Have a fantastic weekend!"

有没有办法在单元格中保留换行符 char(10) 以帮助提高电子邮件的可读性？

谢谢！

Answer 1

假设它实际上只是一个 Chr(10) 那么

strUpdateNotes = Replace(Range("D" & i).Text, vbLf, "<br />")

其他可能性：

strUpdateNotes = Replace(Range("D" & i).Text, vbCr, "<br />")

或

strUpdateNotes = Replace(Range("D" & i).Text, vbCrLf, "<br />")

将单元格值放入 VBA 并移动到 Outlook 时，如何在单元格中保持换行间距？

How do I keep newline spacing in a cell when putting cell value into VBA and moving to Outlook?

excel

outlook

vba

newline