Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db=session.CurrentDatabase
Set doc=db.GetProfileDocument("CalendarProfile")
Call doc.remove(True)
If doc Is Nothing Then
MsgBox "Profile Document Was Successfully Removed"
Else
MsgBox "Profile Document WAS NOT Removed",48
End if
另外可以利用公式,直接用現有id也是可以的(但注意該使用者需要對資料庫有權限修改)
@SetProfileField("CalendarProfile"; "Owner"; @Prompt([OkCancelEdit]; "Enter the user name"; "Enter the FULL CANONICAL NAME of the user you wish to add"; @UserName))
🧠 本文章與所附圖片部分內容為 AI 生成或 AI 輔助產製。文中提及之商標、品牌名稱、產品圖片及相關標識,
其著作權與商標權均屬原權利人所有,本網站僅作為資訊呈現與示意使用