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

Comment récupérer les serveurs POP3 et SMTP d'un compte Outlook avec Redemption   



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 récupérer les serveurs POP3 et SMTP d'un compte Outlook avec Redemption
# 0000000829
ajouté le 09/07/2012 10:09:42 et modifié le 11/07/2012
consulté 4444 fois
Niveau initié

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

Description

Vous pouvez récupérer les serveurs POP3 et
SMPT des comptes Outlook en utilisant Redemption.

http://www.dimastr.com/redemption/home.htm

Code source :
clear
*/Encryption type
*cetNone = 0
*cetSSL = 1
*cetTLS =2
*cetAuto = 3
*/

Sessions = CreateObject("Redemption.RDOSession")
sessions.Logon && Logon into the accounts
Accounts = Sessions.Accounts
for each Account in Accounts
  if Account.AccountType = 0 && POP3 account
     ? replicate('-',20)
    ?"POP3 server for account " + Account.Name + ": " + Account.POP3_Server
    ? "POP3 Port" + transform(account.POP3_PORT)
    ? "POP3 UserName " + account.POP3_UserName
    ? replicate('-',20)
    ? "SMTPAddress " +account.SMTPAddress
    ? "SMTP_Server " +account.SMTP_Server
    ? "SMTP_Port" + transform(account.SMTP_Port)
    ? "SMTP_EncryptionType " +transform(account.SMTP_EncryptionType)
   endif
next
Commentaires
le 10/07/2012, JpG a écrit :
Merci Mike
JpG


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