带标记的简单Outlook样板VBA

我对这一点非常陌生，我正在尝试创建VBA代码，该代码将替换outlook会议样板中的令牌，但无法获得正确的代码。任何帮助都将不胜感激

这就是我目前拥有的：

Sub Kickoff()


Dim objreply As Outlook.MeetingItem
Dim strhtml As String
Dim strproject As String


Set myItem = Application.CreateItemFromTemplate("C:\Users\ttupper\AppData\Roaming\Microsoft\Templates\DAVA Kickoff.oft")
    myItem.Display
strproject = InputBox("Enter Application Name", "replace %appname%")

End Sub

---

假设您在样板文件中的某个地方有appname，您可以这样替换它

Option Explicit

Sub Kickoff()

Dim myItem As MailItem
Dim strproject As String

Set myItem = Application.CreateItemFromTemplate("C:\Users\ttupper\AppData\Roaming\Microsoft\Templates\DAVA Kickoff.oft")
myItem.Display

strproject = InputBox("Enter Application Name", "replace %appname%")
myItem.HTMLBody = Replace(myItem.HTMLBody, "appname", strproject)

End Sub

---

假设您在样板文件中的某个地方有appname，您可以这样替换它

Option Explicit

Sub Kickoff()

Dim myItem As MailItem
Dim strproject As String

Set myItem = Application.CreateItemFromTemplate("C:\Users\ttupper\AppData\Roaming\Microsoft\Templates\DAVA Kickoff.oft")
myItem.Display

strproject = InputBox("Enter Application Name", "replace %appname%")
myItem.HTMLBody = Replace(myItem.HTMLBody, "appname", strproject)

End Sub

---

欢迎来到堆栈溢出！请编辑您的问题，以准确解释您希望此程序返回的内容以及它当前返回的内容，因为问题并不完全清楚，这对于理解您的问题至关重要。欢迎使用堆栈溢出！请编辑您的问题，以准确解释您希望此程序返回的内容以及它当前返回的内容，因为问题并不完全清楚，这对于理解您的问题至关重要。