ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Comment créer un appointement avec CDO.   



L'auteur

Mike Gagnon
Canada Canada
Membre Simple
# 0000000025
enregistré le 14/10/2004

Gagnon Mike
Pte Claire Quebec - Canada
de la société MCRG Software
Fiche personnelle


Note des membres
pas de note

Contributions > 09 - Automation

Comment créer un appointement avec CDO.
# 0000000417
ajouté le 04/03/2007 17:11:32 et modifié le 04/03/2007
consulté 4319 fois
Niveau initié

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0

Description
Voici comment créer et envoyer une invitation pour un rendez-vous avec CDO. Tout comme CDO.message, CDO requiert qu'un service SMTP (ou un serveur SMTP) roule sur votre réseau.

Code source :
oApp= CREATEOBJECT("cdo.appointment")
oAPP.Attendees.Add("me@mcrgsoftware.com"&& On peut ajouter plusieurs participants
oAPP.EndTime="10/03/2007 10:30:00 AM"  && Fin de la réunion
oAPP.StartTime= "10/03/2007 10:00:00 AM"  && Début de la réunion
oAPP.Subject="Ceci est un appointment test"  &&Sujet
oAPP.TextBody = "Nous invitons tous les programmeurs Foxpro à se rencontrer au resto du coin tous les jeudis"  && Le corps du message
oREC=o.RecurrencePatterns  && Pour ajouter une fréquence
oRec2=oREC.Add("Add")
oTec2.DaysOfWeek.Add(4)  && Fréquence tous les jeudis
oRequest=o.CreateRequest()  && Créer un objet appointment
oRequest.Message.Send  && Envoyer la demande de rendez-vous

Commentaires
Aucun commentaire enregistré ...

Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2019.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3