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

Comment envoyer des courriels à partir de differentes adresses courriels   



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 > Outlook

Comment envoyer des courriels à partir de differentes adresses courriels
# 0000000840
ajouté le 03/12/2012 12:39:03 et modifié le 03/12/2012
consulté 3759 fois
Niveau initié

Description

Comment envoyer des courriels à partir de differentes adresses courriels. Allez au panneau de configuration et cliquez sur l'icone 'Mail' et vous pouvez creer plusieurs profiles et chaque profile peut avoir une adresse courriel par defaut differente. Et pour l'utiliser il s'agit de changer de profile.

Code source :
#Define MAILITEM 0
#Define IMPORTANCENORMAL 1

oOutlookObject=Createobject('outlook.application')
oNameSpace=oOutlookObject.getNameSpace('mapi')
oNameSpace.Logon('outlook2')
oEmailItem = oOutlookObject.CreateItem(MAILITEM)
With oEmailItem
  .Recipients.Add('me@somewhere.com'&& uses the Recipients collection
  .Subject = 'Automation sample'
  .Importance = IMPORTANCENORMAL
  .Body = 'This is easy!'
  .Send
Endwith
oNameSpace.Logoff
Release oEmailItem
Release oOutlookObject

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