|
PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile |
| | | | | |
| [WD75]Détacher les pièces jointes de Lotus en OLE |
| Started by chblandin, Feb., 12 2004 7:28 PM - No answer |
| |
| | | |
|
| |
| Posted on February, 12 2004 - 7:28 PM |
Bonjour,
Quelqu'un a t il reussi a detacher les pieces jointes de Lotus via des liens
OLE. A l'aide de la commande ExtractFile.
J'arrive à récuperer le reste du message (l'adresse de l'expediteur, le sujet,
le corps du message) avec le code suivant :
chNomDuServeurLotus, chNomDuFichierLotus, chTemp sont des chaînes
chNomDuFichierLotus="jussieu"
chNomDuFichierLotus="mail\cblandin.nsf"
// Lotus Notes
SI ExeLancé("nlnotes")<1 ALORS GOTO LabelFinTrtLotus
// Lecture des emails
// DECLARATION DE L'OBJET OLE NotesSession
Session est un objet OLE "Notes.NotesSession"
// DECLARATION DES OBJETS OLE DYNAMIQUES
db est un objet OLE dynamique // OBJET BASE DE MAIL
Doc est un objet OLE dynamique // OBJET DOCUMENT
MonChamp est un objet OLE dynamique
maVue est un objet OLE dynamique
datetime est un objet OLE dynamique
MonObject est un objet OLE dynamique
libérer(db) ; libérer(Doc) ; libérer(MonChamp) ; libérer(maVue)
e4NbDoc est un entier sans signe sur 4 octets
// OUVERTURE DE LA BASE DE MAIL PAR DEFAUT
db = Session>>GetDataBase(chNomDuServeurLotus,chNomDuFichierLotus)
SI db>>Isopen=OLEFaux ALORS
db>>OpenMail()
FIN
maVue = db>>GetView("($Inbox)")
//
Doc = maVue>>GetFirstDocument
TANTQUE Doc <> Null
MonChamp = Doc>>GetFirstItem( "From" )
Trace(MonChamp>>Text)
MonChamp = Doc>>GetFirstItem( "Subject" )
Trace(SansEspace(MonChamp>>Text))
Doc>>GetFirstItem( "Body" )
// PIECES JOINTES
Doc = maVue>>GetNextDocument(Doc)
FIN
libérer(db) ; libérer(Doc) ; libérer(MonChamp) ; libérer(maVue)
LabelFinTrtLotus:
Voila, si quelqu'un peut m'aider.
Merci d'avance. |
| |
| |
| | | |
|
| | | | |
| | |
| | |
| |
|
|
|