Outlook Textbox Value更新而不是替换

时间:2013-12-19 12:26:08

标签: vba vbscript outlook-2010 outlook-vba

我在Outlook中使用自定义表单作为任务管理。我想问一下如何解决我遇到的以下问题。

当有人打开新任务时,我有一个带有To字段的自定义表单来添加用户并分配任务。

我的问题是,当任务的所有者打开任务时,我希望To字段为空,并将分配的字段保留在另一个字段中(作为Textbox)。因此,当用户需要将同一任务分配给第二个用户以在To中添加新用户时,以及在更新Textbox时执行任务并且不使用新值替换旧值。这是我创建的代码。我使用一个按钮,当点击时在Textbox中添加To字段中的值,但唯一要做的就是将旧值替换为新值。

Sub  add_click ()

 Set objPage = Item.GetInspector.ModifiedFormPages("Assign Task")
 Set objControl = objPage.Controls("ListBox1")
 Set objassigncheck = objPage.Controls("CheckBox1")
 Set objsend = objPage.Controls("sendtask")
 Set objTo = objPage.Controls("To")
 Set objtest = objPage.Controls("TextBox4")
 Set objcombo1 = objPage.Controls("ComboBox1")

  For i=1 to Item.Recipients.Count
    objtest.Value=Join(Array(Recipients.Item(i)),"; ")
  Next
End Sub

有人可以提出建议吗?

1 个答案:

答案 0 :(得分:0)

objtest.Value = objtest.Value & Recipients.Item(i) & "; "?

  

取自PatricK comment的问题。