Page 1 sur 1

Copie de memo

MessagePublié: 07 Juin 2011 à 10:09
par Kaly
Bonjour,

J'ai une base de document dans laquelle je fais un PickListCollection pour choisir un mail à classer dans la base de documents par copie de champ.

J'ai testé la copie en prenant seulement les champs qui m'intéressaient :
-body, subject, sendto...
Set item = docMail.GetFirstItem( "Body" )
Call docMessage.CopyItem( item, "Body" )


Dans ce cas là, j'ai un souci pour récupérer les rattachements envoyés depuis le web. Ils ne sont pas copiés car non présent dans le body ?.

J'ai donc testé la méthode copyallitems.
Call docMail.CopyAllItems(docMessage, True )


Dans ce cas là, j'ai un autre problème. La copie ne fonctionne pas systématiquement. Peut-être un problème de mime ?

Avez-vous une idée ?

MessagePublié: 07 Juin 2011 à 10:18
par nemrod93
Salut,
pourquoi ne pas copier le message vers la base cible et enlever ensuite les champs dont tu ne veux pas?

MessagePublié: 07 Juin 2011 à 10:28
par Kaly
avec un copytodatabase ?

Set docMessage = docMail.Copytodatabase(db)


Je viens de tester, cela ne fonctionne pas sur tous les messages.
Ceux ayant des pj envoyés par le webmail ne sont pas copiés

MessagePublié: 07 Juin 2011 à 10:47
par nemrod93
Que te retournes comme valeur l'utilisation de "NotesEmbeddedObject class" ?

MessagePublié: 07 Juin 2011 à 10:52
par nemrod93
tu peux voir aussi avec

EmbeddedObjects property dans le notesdocument

exemple (tiré de l'aide)
If doc.HasEmbedded Then
Forall o In doc.EmbeddedObjects
Messagebox( o.Name )
End Forall
Else
Messagebox "No embedded objects found"
End If


et aussi ajouter une colonne qui affiche le nombre de fichiers attachés (@attachments)

MessagePublié: 07 Juin 2011 à 11:09
par Kaly
nemrod93 a écrit:tu peux voir aussi avec

EmbeddedObjects property dans le notesdocument

exemple (tiré de l'aide)
If doc.HasEmbedded Then
Forall o In doc.EmbeddedObjects
Messagebox( o.Name )
End Forall
Else
Messagebox "No embedded objects found"
End If


et aussi ajouter une colonne qui affiche le nombre de fichiers attachés (@attachments)


Je viens de tester ce bout de code
J'ai une erreur de type incompatble dans la méthode ForAllInit FROMVAR trouvés...
quelque soit la provenance du message

MessagePublié: 07 Juin 2011 à 11:13
par Kaly
En fait, le copytodatabase a le même comportement que le copyallitems.
Certains des messages ne sont pas copiés.

La simple copie champ par champ copie dans tous les cas le message mais dans certains cas, les pièces jointes ne sont pas copiées.

MessagePublié: 07 Juin 2011 à 11:17
par d.bugger
Ce sont peut-être des champs Mime ? C'est mon avis aussi, il faut mieux prendre une copie du doc, pour la modifier après dans la base de documents.

MessagePublié: 07 Juin 2011 à 11:39
par Kaly
d.bugger a écrit:Ce sont peut-être des champs Mime ? C'est mon avis aussi, il faut mieux prendre une copie du doc, pour la modifier après dans la base de documents.


Après avoir testé plusieurs envois,
je m'aperçois qu'il s'agit de messages envoyés depuis dwa 7 et des pièces jointes qui sont insérées sans utiliser l'applet texte riche.

Avez-vous une idée pour que je puisse quand même copier l'ensemble du message ?