Utiliser Outlook

L'exemple qui suit permet d'envoyer un mail dans un réseau local.

Methode "MAIL_OUTLOOK"

// Se connecter à Outlook :

CreerContexteComposantCom "Outlook.Application","MON_OUTLOOK"

ConnecterComposantCom "MON_OUTLOOK"

// Créer un objet du type mail et l'associer au contexte « myItem » :

AppliquerMethodeComposantCom "MON_OUTLOOK"."CreateItem"

("myItem", ValeurCom("MON_OUTLOOK", "olMailItem"))

// Indiquer le nom du destinataire :

AppliquerMethodeComposantCom "myItem"."Recipients.Add"("myRecipient",

"CHRISTOPHE")

// Remplir le corps du mail :

AppliquerMethodeComposantComSet "myItem"."Body"

("Ceci est un mail envoyé depuis Oxygene++ grâce au client COM!")

// Envoyer le mail :

AppliquerMethodeComposantCom "myItem"."Send"

// Déconnecter tous les contextes :

DeconnecterComposantCom "myItem"

DeconnecterComposantCom "myRecipient"

DeconnecterComposantCom "MON_OUTLOOK"

BoiteMessage "Mail Outlook envoyé !"

FinMethode

Le deuxième exemple avec Outlook permet d'ajouter un “contact“, c'est à dire les coordonnées d'une personne que l'on connaît.

Methode "CONTACT_OUTLOOK"

VARIABLES : Date maDate = "01/10/1998"

// Se connecter à Outlook :

CreerContexteComposantCom "Outlook.Application","MON_OUTLOOK"

ConnecterComposantCom "MON_OUTLOOK"

// Créer un objet du type Contact :

AppliquerMethodeComposantCom "MON_OUTLOOK"."CreateItem"

("myItem", ValeurCom("MON_OUTLOOK", "olContactItem"))

// Donner des informations sur ce contact :

AppliquerMethodeComposantComSet "myItem"."FullName"("Christophe")

AppliquerMethodeComposantComSet "myItem"."Birthday"(maDate)

AppliquerMethodeComposantComSet "myItem"."Spouse"("Julie")

AppliquerMethodeComposantComSet "myItem"."CompanyName"("Memsoft")