在 VBA 代码中创建的电子邮件的全局 HTML 正文答案

【问题标题】：Global HTML-Body of an E-Mail created in a VBA code在 VBA 代码中创建的电子邮件的全局 HTML 正文
【发布时间】：2017-10-31 01:11:57
【问题描述】：

我有以下用于电子邮件的 VBA 代码：

Sub Global_Email_Message()
Content = "<style> p {background-color: #d9d9d9} </style><p> This message should be global so I can use it in every sub for an E-Mail </p>"
        If ExitAll = False Then
            Set OApp = CreateObject("Outlook.Application")
            Set OMail = OApp.CreateItem(0)
            With OMail
            .display
            End With
            signature = OMail.HTMLBody
            With OMail
            .To = "test@test.de"
            .Subject = "test"
            .HTMLBody = Content
            End With
            Set OMail = Nothing
            Set OApp = Nothing
        Else
        End If
End Sub

这段代码完美运行。

现在，我想实现变量“Content”中的 message 和 style 是全局的，因此我可以在不同的电子邮件订阅。如何为不同的电子邮件订阅者全球化“内容”变量？

【问题讨论】：

标签： html css excel vba

【解决方案1】：

你需要在函数外用public声明内容变量：

Public content as String

Sub Global_Email_Message()
...

【讨论】：

I put: Public content As String content = "
这个消息应该是全局的，所以我可以在每个 sub对于电子邮件
”并从 Sub Global_Email_Message() 中删除了内容变量，但现在它不显示电子邮件中的任何内容。
在公开可用之前，您仍然需要在子/函数中初始化变量一次。所以我通常在代码的开头有一个 init_vars 子程序，我在应用程序的入口点调用它。只有常量可以静态声明。并且不能将字符串设置为常量。 stackoverflow.com/questions/5897832/…