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
Pointe Cla H9R 3K8
de la société Carver Technologies Inc.
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é 8028 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é ...

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