How To Create a New Contact in Schedule Plus from Visual Basic

MORE INFORMATION

1. Start a new Standard EXE project. Form1 is added by default.
2. Add the following code to Form1's Click event procedure:

         Private Sub Form1_Click()
            Dim objSchdPlus As Object
            Dim objContact As Object
   
            Set objSchdPlus = CreateObject("SchedulePlus.Application")
            objSchdPlus.Logon
            Set objContact = objSchdPlus.ScheduleSelected.Contacts.New
            objContact.SetProperties FirstName:="Santa", _
               LastName:="Claus", PhoneBusiness:="(206)555-4321", _
               PhoneHome:="(206)555-6789"
            objSchdPlus.Logoff
            Set objContact = Nothing
            Set objSchdPlus = Nothing
          End Sub
   						

3. Start Microsoft Schedule Plus.
4. Press the F5 key to run the program. Click the form, and then view your list of contacts in Schedule Plus to see the new entry.

NOTE: If Schedule Plus is not running, the above code will result in run- time error 450: Wrong number of arguments or invalid property assignment.