Click or drag to resize

IAppointmentCreatedAssociate Property

The user that created the object The associate that first created the appointment

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

Property Value

Type: SOAssociate
SOAssociate - object containing the creator of the appointment.

Implements

IModelBaseCreatedAssociate
Examples

show the fullname of the associate which owns the appointment

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

VB
Dim soDB, myAppnt
Set soDB = CreateObject("SuperOfficeDB.Database")
enTableTask = 67
enTablePriority = 79 

If soDB.Login ("USERID", "PASSWORD") then

    Set myAppnt = sodb.CreateAppointment
    myAppnt.Alarm = True
    myAppnt.AlarmOffset = 10
    myAppnt.AllDayEvent = False
    myAppnt.Associate = soDB.GetAssociate(soDB.UserAssociateId)
    myAppnt.Completed = False
    myAppnt.Contact = soDB.GetContact(soDB.OwnerContactId)
    myAppnt.Description = "Strawberrys for all - summer pep talk"
    myAppnt.DoBy = #6/1/2007 12:00:00 PM#
    myAppnt.Duration = 60
    myAppnt.FreeBusy = enFreeBusyBusy
    myAppnt.Task = soDB.GetListItemByName(enTableTask, "Meeting (Internal)")
    myAppnt.Priority = soDB.GetListItemByName(enTablePriority, "1 High")
    myAppnt.Location = "Meeting room"
    myAppnt.Private = 0 'public appointment, everyone can see
    myAppnt.Project = soDB.GetProject(2)
    For Each assoc In soDB.GetAssociateList

        myAppnt.AddParticipant assoc

    Next



    If myAppnt.Sentry.AreAllRequiredFieldsFilled = True Then
        myAppnt.Save

        msg = msg & "Appointment saved with appointment_id = " & myAppnt.Identity & vbCrLf
        msg = msg & "Appointment is created by " & myAppnt.CreatedAssociate.FullName & vbCrLf
        msg = msg & "and belongs to usergroup " & myAppnt.Group.Text & vbCrLf
        If myAppnt.UpdatedDate > #1/1/1970# Then
            msg = msg & "Appointment was last updated by: " & myAppnt.UpdatedAssociate.FullName & " at " & myAppnt.UpdatedDate
        Else
            msg = msg & "Appointment has never been updated"
        End If

        MsgBox msg
    End If



Else
    MsgBox "Unable to log in"
End If

See Also