[LotusScript] 用代理程式建立通訊錄文件

Sub CreateNamesDocument(doc As NotesDocument, FullName As String, LastName As String, HTTPPassword As String, MailAddress As String, MailSystem As String)

'員工Notes的ID帳號
doc.FullName=FullName

'員工名稱
doc.LastName=LastName

doc.HTTPPassword = session.hashPassword(HTTPPassword) '密碼需要加密 session.hashPassword()

doc.MailAddress=MailAddress

doc.InternetAddress=InternetAddress

doc.MailSystem=5

Call doc.Save(True,false)

End Sub