Comment faire pour envoyer un message par programmation à l'aide de contrôle OLE de MSMAPI

Traductions disponibles Traductions disponibles
Numéro d'article: 136638 - Voir les produits auxquels s'applique cet article
Cet article a été archivé. Il est proposé « en l'état » et ne sera plus mis à jour.
Agrandir tout | Réduire tout

Sommaire

Résumé

Cet article montre par exemple comment peut accéder aux contrôles OLE MSMAPI par programme à l'aide de la fonction CREATEOBJECT() pour créer une instance d'un formulaire et la méthode AddObject pour créer une instance des contrôles. Vous pouvez ensuite travailler avec les méthodes et propriétés des contrôles par programme. Notez que bien que le contrôle .ocx doit être placé sur un formulaire, le formulaire lui-même ne doit être visible comme c'est le cas dans l'exemple donné dans cet article.

Plus d'informations

Exemple de code

   * Create an instance of a form, and then add the MSMAPI.MAPISession and
   * MSMAPI.MAPIMessages OLE controls to that form:

   oform = CreateObject("form")
   oform.addobject("Session1","olecontrol","MSMAPI.mapiSession")
   oform.addobject("Message1","olecontrol","MSMAPI.mapiMessages")

   * Call the Signon method of the MAPISession control. If the user is not
   * logged into mail, this will prompt the user to sign on. This also sets
   * the SessionId property for the MAPIsession control:

   oform.Session1.signon

   * Set the SessionId of the MAPIMessage control to the SessionId of the
   * MAPISession control, which was just obtained:

   oform.Message1.sessionid = oform.Session1.sessionid

   * Compose an e-mail message and set the subject line and Message text:

   oform.Message1.compose
   oform.Message1.msgsubject = "Memo from my FoxPro app"
   oform.Message1.msgnotetext = "This works"

   * Sends the e-mail message. The (1) is required to send the message.

   oform.Message1.send(1)

   * Optionally, sign off from mail:

   oform.Session1.signoff

   * Optionally, release the objects if they are no longer needed:

   release oform
				
Remarque : Les contrôles de session et les messages continuent d'exister dans la mesure où les variables oSession et Omessage sont dans la portée. Ces variables peuvent être déclarées comme publics pour vous assurer que les contrôles sont disponibles dans toute l'application.

Propriétés

Numéro d'article: 136638 - Dernière mise à jour: samedi 1 mars 2014 - Version: 2.2
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Visual FoxPro 3.0 Édition Standard
  • Microsoft Visual FoxPro 5.0 Édition standard
  • Microsoft Visual FoxPro 6.0 Édition Professionnelle
Mots-clés : 
kbnosurvey kbarchive kbmt kbcode kbhowto KB136638 KbMtfr
Traduction automatique
IMPORTANT : Cet article est issu du système de traduction automatique mis au point par Microsoft (http://support.microsoft.com/gp/mtdetails). Un certain nombre d?articles obtenus par traduction automatique sont en effet mis à votre disposition en complément des articles traduits en langue française par des traducteurs professionnels. Cela vous permet d?avoir accès, dans votre propre langue, à l?ensemble des articles de la base de connaissances rédigés originellement en langue anglaise. Les articles traduits automatiquement ne sont pas toujours parfaits et peuvent comporter des erreurs de vocabulaire, de syntaxe ou de grammaire (probablement semblables aux erreurs que ferait une personne étrangère s?exprimant dans votre langue !). Néanmoins, mis à part ces imperfections, ces articles devraient suffire à vous orienter et à vous aider à résoudre votre problème. Microsoft s?efforce aussi continuellement de faire évoluer son système de traduction automatique.
La version anglaise de cet article est la suivante: 136638
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com