Click or drag to resize

IChecklistItemTypeText Property

TypeText Collection of diary checklist items for a particular user. Each item corresponds to an incomplete appointment, document, sale. The Checklist items text type. Seen in the activity dialog as “Type”

Namespace:  SuperOffice.COM.SuperOfficeDB
Assembly:  SuperOfficeDB.Interop (in SuperOfficeDB.Interop.dll) Version: 8.0.0.0
Syntax
string TypeText { get; }

Property Value

Type: String
String
Examples

TypeText

This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information

VB
dim objchecklists
set  objso = CreateObject("superofficedb.database")
enalistall  = 15 

a =  objso.login("<userid>","<password>")
if a then
    set objchecklists =  objso.getchecklist(0, enalistall)
    ownername = objchecklists.getownername
    msgbox "owner (full name) of this checklist is: "  & ownername, vbinformation, "supercom"
    set objchecklist =  objchecklists.getfirst
    while not objchecklists.eof
        for each item in objchecklists
            msg = msg & "contactid:  " & item.contactid
            msg = msg & chr(13)  & chr(10)
            msg = msg & "contact name: " & item.contactname 
            msg = msg & chr(13)  & chr(10)
            msg = msg & "contact department: " & item.contactdepartment
            msg = msg & chr(13)  & chr(10)
            msg = msg & "datecomplete: " & item.datecomplete 
            msg = msg & chr(13)  & chr(10)    
            msg = msg & "typetext: " & item.typetext 
            msg = msg & chr(13) & chr(10)
            msg = msg & "prioritytext: " & item.prioritytext 
            msg = msg & chr(13)  & chr(10)
            msg = msg & "done:  " & item.done 
            msg = msg & chr(13)  & chr(10)
            msg = msg & "prioritytext: " & item.prioritytext 
            msg = msg & chr(13)  & chr(10)
            msg = msg & "rowtype: " & item.rowtype 
            msg = msg & chr(13)  & chr(10)
            msg = msg & "tableid: " & item.tableid
            msg = msg & chr(13) & chr(10)
            msg = msg & "description: " & item.description
            msgbox msg
            msg  = ""
        next
    wend
    msgbox "no more checklist items  in this checklist.", vbinformation, "supercom"
else
    msgbox "unable to connect to  database"
end if
set objso = nothing

See Also