Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
MS OUTLOOK automation - Calendar/Appointment
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Versions des environnements
Visual FoxPro:
VFP 7
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Divers
Thread ID:
01080757
Message ID:
01080766
Vues:
11
Here is one way to do it using the Outlook activex.
Public oform1
oform1=createobject("form1")
oform1.Show
Return
Define Class form1 As Form
    Height = 400
    Width = 620
    DoCreate = .T.
    Caption = "Form1"
    Name = "Form1"
    Add Object cmdExit As CommandButton With ;
        Top = 330, ;
        Left = 504, ;
        Height = 27, ;
        Width = 84, ;
        Caption = "E\<xit", ;
        Name = "CmdExit"
    Add Object olecontrol1 As OleControl With ;
        Top = 12, ;
        Left = 12, ;
        Height = 306, ;
        Width = 588, ;
        Name = "Olecontrol1", ;
        OleClass = "OVCtl.OVCtl.1"
    Procedure cmdExit.Click
       Thisform.Release()
    Endproc
    Procedure olecontrol1.Init
       This.Folder = "Calendar"
    Endproc

Enddefine
>Hi,
>
>I need help how to accomplish below code to be shown in a VFP form.

>
ol = CREATEOBJECT("Outlook.Application")
>olns = ol.GetNameSpace("MAPI")
>MyTasksFolder = olns.GetDefaultFolder(9)


>The code above will invoke the MS Outlook Calendar in its own window, how can I make it appear inside a VFP form? Is it by using an Ole control? Or is it better a create a class for it.
>
>Thanks.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform