FORUMS PROFESSIONNELS
WINDEV
,
WEBDEV
et
WINDEV Mobile
Accueil
|
Messages récents
|
Connexion
|
Déconnexion
|
Français
Accueil
→
WINDEV 2024
→
Adresse Lotus Notes
Adresse Lotus Notes
Débuté par Francis, 08 nov. 2006 14:58 - 2 réponses
Connectez-vous…
Francis
#1
Posté le 08 novembre 2006 - 14:58
Depuis mon appli windev, j'arrive facilement à envoyer des mails via Lotus Notes.
Par contre , j'aimerai lorsque je saisis un nom d'utilisateur pouvoir récupérer son adresse mail figurant dans Lotus.
Quelqu'un a t-il une idée ou un exemple sur le traitement à effectuer ?
Merci d'avance
Signaler
0
0
Jean-Pierre Bloch
#2
Posté le 08 novembre 2006 - 19:41
Attendre les fonctions du W-Langage de Windev XI...
Signaler
0
0
Eric M
#3
Posté le 20 novembre 2006 - 18:33
Bonsoir,
Ci-joint extrait de code que j'ai utilisé en test pour extraire les valeurs de champs d'un message Notes:
J'espère que la version 11 va simplifier la procédure et la syntaxe!
Session est un objet OLE "Notes.NotesSession"
// DECLARATION DES OBJETS OLE DYNAMIQUES
db est un objet OLE dynamique // OBJET BASE DE MAIL
MailDoc est un objet OLE dynamique // OBJET DOCUMENT
MonChamp est un objet OLE dynamique //Nom du champ à lire
maVue est un objet OLE dynamique
datetime est un objet OLE dynamique
MonObject est un objet OLE dynamique
champ est un objet OLE dynamique
Piecedet est un tableau de 100 caractères // Tableau contenant le nom de la piece jointe
item est un objet OLE dynamique // item du document
// OUVERTURE DE LA BASE DE MAIL PAR DEFAUT
Message("Ouverture de la base...")
db = Session>>GetDataBase("","")
SI db>>Isopen=OLEFaux ALORS
db>>OpenMail()
FIN
//Selecteur de choix des documents à lire
SELON SEL_QuoiLire
CAS 1 //documents recus
maVue = db>>GetView("($Inbox)")
CAS 2 //Documents Emis et reçus
maVue = db>>GetView("($All)")
FIN
//Lecture du premier Mail
MailDoc = maVue>>GetFirstDocument
//Lecture des suivants utiliser la commande pour lire les messages séquentiellement
//MailDoc = maVue>>GetNextDocument(MailDoc)
Message("Lecture document...")
//Nature du document lu
MonChamp=MailDoc>>GetFirstItem( "Form" )
sFormeDoc=Majuscule(MonChamp>>Text)
SELON sFormeDoc
CAS "MEMO","REPLY","REPLY WITH HISTORY"
nCpt=1
Message("Lecture Entete...")
//Adresse Email Emetteur
MonChamp = MailDoc>>GetFirstItem( "INetFrom" )
ZSTExped=(MonChamp>>Text)
//Objet du document
MonChamp = MailDoc>>GetFirstItem( "Subject" )
SI MonChamp<>Null ALORS
ZSTSujet=(SansEspace(MonChamp>>Text))
SINON
ZSTSujet=""
FIN
//date émission
MonChamp = MailDoc>>GetFirstItem( "PostedDate" )
SI MonChamp<>Null ALORS
ZST_DatePosted=(SansEspace(MonChamp>>Text))
SINON
ZST_DatePosted=""
FIN
//Adresse Email copie
MonChamp = MailDoc>>GetFirstItem( "INetCopyTo" )
SI MonChamp<>Null ALORS
ZSTCopie=(SansEspace(MonChamp>>Text))
SI Gauche(ZSTCopie,1)="." ALORS
//Lecture de l'adresse format interne notes
MonChamp = MailDoc>>GetFirstItem( "CopyTo" )
ZSTCopie=(SansEspace(MonChamp>>Text))
FIN
SINON
MonChamp = MailDoc>>GetFirstItem( "CopyTo" )
SI MonChamp<>Null ALORS
ZSTCopie=(SansEspace(MonChamp>>Text))
FIN
FIN
Message("Lecture Corps du texte...")
MonChamp=MailDoc>>GetFirstItem( "Body" )
SI MonChamp<>Null ALORS ZSTBody=(SansEspace(MonChamp>>Text)) SINON ZSTBody=""
//Lecture des pièces attachées
SI ITRLectPA[1]=Vrai ALORS
nCptPA=0
TANTQUE MailDoc>>hasitem("$FILE")
nCptPA++
Message("Lecture Piece attachée...N°"+nCptPA)
// recherche la premiere
item = MailDoc>>GetFirstItem("$FILE")
// recupere le nom
Piecedet = item>>values
ListeAjoute(LSTFichier,Piecedet[1])
Multitâche(-1)
// selectionne la piece jointe
champ = MailDoc>>getattachment(Piecedet[1])
// detache le piece jointe
champ>>extractfile(gfsDossierDetache+Piecedet[1])
// supprime la piece jointe sinon impossible de recuperer les suivantes
//( si pas de sauvegarde ne modifie pas definitivement le message)
champ>>Remove
FIN
FIN
CAS "RETURN RECEIPT"
Message("Lecture AR...")
SELTypDoc=2
MonChamp = MailDoc>>GetFirstItem( "From" )
ZSTExped=(MonChamp>>Text)
MonChamp = MailDoc>>GetFirstItem( "Subject" )
ZSTSujet=(SansEspace(MonChamp>>Text))
MonChamp = MailDoc>>GetFirstItem( "INetSendTo" )
SI MonChamp<>Null ALORS
ZSTDest=(SansEspace(MonChamp>>Text))
SI Gauche(ZSTDest,1)="." ALORS
MonChamp = MailDoc>>GetFirstItem( "SendTo" )
ZSTDest=(SansEspace(MonChamp>>Text))
FIN
SINON
MonChamp = MailDoc>>GetFirstItem( "SendTo" )
SI MonChamp<>Null ALORS
ZSTDest=(SansEspace(MonChamp>>Text))
FIN
FIN
MonChamp=MailDoc>>GetFirstItem( "Body" )
SI MonChamp<>Null ALORS ZSTBody=(SansEspace(MonChamp>>Text)) SINON ZSTBody=""
AUTRE CAS
Info(sFormeDoc)
FIN
Message("")
libérer(db)
libérer(mailDoc)
libérer(MonChamp)
libérer(maVue)
Signaler
0
0
→ Revenir à WINDEV 2024
WINDEV 2024
WINDEV 2024
WEBDEV 2024
WEBDEV 2024
WINDEV Mobile 2024
WINDEV Mobile 2024
WINDEV (précédentes versions)
WINDEV (précédentes versions)
WEBDEV (précédentes versions)
WEBDEV (précédentes versions)
WINDEV Mobile (précédentes versions)
WINDEV Mobile (précédentes versions)
Etats & Requêtes
Etats & Requêtes
Hors-sujet
Hors-sujet
Outils
Outils
WINDEV 26
WINDEV 2024
WINDEV 2024
WINDEV 25
WEBDEV 2024
WEBDEV 2024
WINDEV Mobile 2024
WINDEV (précédentes versions)
Français
English
Español
Portuguesa
Fermer cette fenêtre
Type de recherche
Uniquement les sujets
Tous les messages
Période de recherche
Date indifférente
Moins d'une heure
Moins de 24 heures
Moins d'une semaine
Moins d'un mois
Moins d'un an
Annuler
Aperçu de votre message
Ajouter une image
Importer une image depuis une URL
Envoyer une image depuis un fichier de votre disque
Déposez ici un fichier ou cliquez sur "Parcourir..."
ou
Annuler
0%
WLangage
SQL
XML, HTML
JAVA, Javascript
Texte