如果用户在检查器中打开了联系人,则我要保存Set itm = Nothing
而不是关闭联系人。如果联系人未打开,那么我要保存并处置。
Dim mfFolder As MAPIFolder
Set mfFolder = GetContactsFolder 'function to get folder
Dim itm As ContactItem
Set itm = mfFolder.Items.Find("[Account] = " & Chr(34) & AcctNum & Chr(34))
'or...
Set itm = ActiveInspector.CurrentItem
'or...
Set itm = ActiveExplorer.Selection.Item(1)
如果在检查器中未打开该项目,则将其关闭:
Call itm.Close(olSave)
Set itm = Nothing
或者,如果该项目在检查器窗口中打开,那么我要保存而不关闭:
Call itm.Save
Set itm = Nothing
因此,一旦有了该物品,我如何确定它是否在检查器窗口中打开,以便我可以正确处理它?
首先,无需调用Close(olSave),您只需调用ContactItem.Save即可保存该项目而不关闭它。
其次,您可以比较代码引用的项目和Inspector.CurrentItem返回的项目的EntryID属性值。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句