Click or drag to resize

IActivityListItemPersonName Property

Name of Person Never implemented A collection of activities. Each activity can be a sale, document or appointment A reference to the person object this activity is connected to. May be null A string representing the full name of the person (first name and last name)

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

Property Value

Type: String
SOPerson – the person this activity is connected to String – the person full name
Examples

List all activities on first contact named super%

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

VB
dim activitylistitem
set objso = CreateObject("superofficedb.database")
if objso.login("<USERNAME>", "<PASSWORD>") then
    set contacts = objso.find.contactsbyname("super")
    set contact = contacts.getfirst
    set activitylist = contact.getactivitylist(7)
    set activitylistitem = activitylist.getfirst
    while not activitylist.EOF
        If Not activitylistitem.Appointment Is Nothing Then
            msg = msg & "appointment.alarm: " & activitylistitem.appointment.alarm & vbcrlf  
        End If
        msg = msg & "associate.fullname: " &  activitylistitem.associate.fullname & vbcrlf  
        msg = msg & "associatename: " &  activitylistitem.associatename & vbcrlf  
        msg = msg & "contactname: " &  activitylistitem.contactname & vbcrlf 
        msg = msg & "date: " &  activitylistitem.date & vbcrlf 
        msg = msg & "description: " &  activitylistitem.description & vbcrlf 
        if not activitylistitem.document is nothing then
            msg = msg & "document.header: " &  activitylistitem.document.header & vbcrlf 
        end if
        msg = msg & "done: " &  activitylistitem.done & vbcrlf 
        msg = msg & "iconid: " &  activitylistitem.iconid & vbcrlf
        msg = msg & "identity: " &  activitylistitem.identity & vbcrlf 
        msg = msg & "person.firstname & person.lastname: " &  activitylistitem.person.firstname & " " &  activitylistitem.person.lastname & vbcrlf  
        msg = msg & "personname: " &  activitylistitem.personname & vbcrlf 
        msg = msg & "projectname: " &  activitylistitem.projectname & vbcrlf 
        msg = msg & "rowtype: " &  activitylistitem.rowtype & vbcrlf 
        if not activitylistitem.sale is nothing then
            msg = msg & "sale.amount: " &  activitylistitem.sale.amount & vbcrlf  
        end if
        msg = msg & "typetext: " &  activitylistitem.typetext & vbcrlf 
        msg = msg & "******************* NEXT ***********************" & vbCrLf
        set activitylistitem = activitylist.getnext
    wend
    msgbox msg,,"SuperCOM"
else
    msgbox "could not log on to superoffice", , "SuperCOM"
end if
set objso = nothing

List all activities on first contact named super%

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

VB
dim activitylistitem
set objso = CreateObject("superofficedb.database")
if objso.login("<USERNAME>", "<PASSWORD>") then
    set contacts = objso.find.contactsbyname("super")
    set contact = contacts.getfirst
    set activitylist = contact.getactivitylist(7)
    set activitylistitem = activitylist.getfirst
    while not activitylist.EOF
        If Not activitylistitem.Appointment Is Nothing Then
            msg = msg & "appointment.alarm: " & activitylistitem.appointment.alarm & vbcrlf  
        End If
        msg = msg & "associate.fullname: " &  activitylistitem.associate.fullname & vbcrlf  
        msg = msg & "associatename: " &  activitylistitem.associatename & vbcrlf  
        msg = msg & "contactname: " &  activitylistitem.contactname & vbcrlf 
        msg = msg & "date: " &  activitylistitem.date & vbcrlf 
        msg = msg & "description: " &  activitylistitem.description & vbcrlf 
        if not activitylistitem.document is nothing then
            msg = msg & "document.header: " &  activitylistitem.document.header & vbcrlf 
        end if
        msg = msg & "done: " &  activitylistitem.done & vbcrlf 
        msg = msg & "iconid: " &  activitylistitem.iconid & vbcrlf
        msg = msg & "identity: " &  activitylistitem.identity & vbcrlf 
        msg = msg & "person.firstname & person.lastname: " &  activitylistitem.person.firstname & " " &  activitylistitem.person.lastname & vbcrlf  
        msg = msg & "personname: " &  activitylistitem.personname & vbcrlf 
        msg = msg & "projectname: " &  activitylistitem.projectname & vbcrlf 
        msg = msg & "rowtype: " &  activitylistitem.rowtype & vbcrlf 
        if not activitylistitem.sale is nothing then
            msg = msg & "sale.amount: " &  activitylistitem.sale.amount & vbcrlf  
        end if
        msg = msg & "typetext: " &  activitylistitem.typetext & vbcrlf 
        msg = msg & "******************* NEXT ***********************" & vbCrLf
        set activitylistitem = activitylist.getnext
    wend
    msgbox msg,,"SuperCOM"
else
    msgbox "could not log on to superoffice", , "SuperCOM"
end if
set objso = nothing

See Also