IActivityLinksAddDocument Method |
Namespace: SuperOffice.COM.SuperOfficeDB
AddDocument
dim db Dim msg, app, links, doc Set db = CreateObject("SuperOfficedb.Database") if db.login("<username>","<password>") then set app = db.GetAppointment(458) set links = app.ActivityLinks links.AddDocument(db.GetDocument(84)) app.Save() For Each doc In links.Documents msg = msg & doc.filename & vbCrLf Next MsgBox(msg) 'remove the documents For Each doc In links.Documents links.RemoveDocument(doc) Next app.Save() MsgBox("done") else MsgBox "Could not log on" end if Set objSO = Nothing