DOCUMENT:Q161343  15-SEP-1997  [vbwin]
TITLE   :HOWTO: Create a New Contact in Schedule Plus from Visual Basic
PRODUCT :Microsoft Visual Basic for Windows
PROD/VER:WINDOWS:5.0
OPER/SYS:WINDOWS
KEYWORDS:vb5all vb5howto VBKBAutomation GnrlVb kbprg

======================================================================
--------------------------------------------------------------------------
The information in this article applies to:

 - Microsoft Visual Basic Learning, Professional, and Enterprise Editions,
   for Windows, version 5.0
--------------------------------------------------------------------------

SUMMARY
=======

This article demonstrates how to use Visual Basic to add a contact to
Schedule Plus.

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

4. Start Microsoft Schedule Plus.

5. 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.

Additional query words: OLE
======================================================================
Keywords          : vb5all vb5howto VBKBAutomation GnrlVb kbprg
Technology        : kbole
Version           : WINDOWS:5.0
Platform          : WINDOWS
Issue type        : kbhowto

=============================================================================

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS
PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND.  MICROSOFT DISCLAIMS
ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  IN NO
EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR
ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL,
CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF
MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.  SOME STATES DO NOT ALLOW THE EXCLUSION
OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES
SO THE FOREGOING LIMITATION MAY NOT APPLY.

Copyright Microsoft Corporation 1997.