Click or drag to resize

IAppointmentsGetFirst Method

Return First item

Namespace:  SuperOffice.COM.SuperOfficeDB
Assembly:  SuperOfficeDB.Interop (in SuperOfficeDB.Interop.dll) Version: 8.0.0.0
Syntax
SOAppointment GetFirst()

Return Value

Type: SOAppointment
SOAppointment – the first appointment in the collection
Examples

Show description

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

VB
Dim objSO
Dim Appnt
Dim Appnts
Set objSO = CreateObject("SuperOffice.Application")
If not (objSO is nothing) Then
    set Appnts = objSO.Database.Find.Appointments("140","01.11.2000","03.11.2000")
    Appnt = Appnts.GetFirst()
    While Not Appnts.EOF
        msgbox Appnt.Description
        Appnt = Appnts.GetNext()
    wend          
    msgbox "No appointments.", vbInformation, "SuperCOM"
else
    MsgBox "Unable to connect to database"
end if
Set objSO = Nothing

See Also