comment créer un Fichier NDL

[hippo_ma]

Bonjour


J'ai un document que je souhaite passer en doc lien via un fichier NDL

Je souhaite copier comme lien/liendoc, puis copier dans un fichier txt vierge et enregistrer le fichier sous C

Merci pour votre aide

[roubech]

http://forum.dominoarea.org/creer-un-fi ... 26676.html
http://forum.dominoarea.org/creation-ma ... 26695.html

il y a une raison fonctionnelle pour envoyer ton lien doc sous forme de fichier NDL et pas directement un liendoc dans le corps du mail ?

http://publib.boulder.ibm.com/infocente ... LSEND.html
[syntax="Formula"]@MailSend(Destinataires;"";"";"Follow this link";"";"";[IncludeDocLink])[/syntax]

http://publib.boulder.ibm.com/infocente ... ETHOD.html
[syntax="LotusScript"]
Sub SendDocLink(doc as NotesDocument)
Dim s As New NotesSession
Dim db as NotesDatabase
Dim docMail As NotesDocument
Dim rtitem As NotesRichTextItem

Set db = s.CurrentDatabase
Set docMail = New NotesDocument( db )
docMail.Form = Memo
docMail.SendTo = "Mon destinataire"
docMail.Subject = "Lien vers le doc"
Set rtitem = New NotesRichTextItem( docMail, "Body" )
call rtitem.AppendText( "Vici le lien -> " )
Call rtitem.AppendDocLink( doc, "Titre du doc" )
Call docMail.Send( False)
End Sub[/syntax]

[hippo_ma]

Bonjour

je souhaite envoyer un fichier NDL car certains users utilisent la messagerie Zimbra donc ne peuvent pas ouvrir un liendoc
mais ils ont quand meme accès a lotus

[roubech]

si tu envois un mail avec un doclink via SMTP, le routeur ne transforme pas le doclink en fichier NDL ?

sinon, t'as essayé de générer un fichier texte et d'y coller les infos dedans ?
http://www.ibm.com/developerworks/lotus ... index.html
http://forum.dominoarea.org/lecture-et- ... 11973.html
http://publib.boulder.ibm.com/infocente ... NT_EX.html

ça pourrait donner un truc du genre :
[syntax="LotusScript"]Sub SendDocLink(doc as NotesDocument)
Dim s As New NotesSession
Dim db as NotesDatabase
Dim docMail As NotesDocument
Dim rtitem As NotesRichTextItem
Dim sFileNum as integer
Dim sFileName as String

sFileName = "C:\doclink.ndl"
nFileNum = FreeFile()
Open sFileName For Output As nFileNum
Print #nFileNum, doc.Subject(0)
Print #nFileNum, "<NDL>"
Print #nFileNum, "<REPLICA " & doc.ParentDatabase.ReplicaID & ">"
Print #nFileNum, "<NOTE " & doc.UniversalID & ">"
Print #nFileNum, "</NDL>"
Close nFileNum

Set db = s.CurrentDatabase
Set docMail = New NotesDocument( db )
docMail.Form = Memo
docMail.SendTo = "Mon destinataire"
docMail.Subject = "Lien vers le doc"
Set rtitem = New NotesRichTextItem( docMail, "Body" )
call rtitem.AppendText( "Vici le lien -> " )
Set object1 = rtitem.EmbedObject( EMBED_ATTACHMENT, "", sFileName)
Call docMail.Send( False)
End Sub[/syntax]

[hippo_ma]

merci pour le code

ca ma l'air pas mal sauf que le fichier est erroné impossible a ouvrir

y a t'il autre chose a faire ?

[roubech]

j'ai jamais vu de fichier NDL, c'est une idée en voyant un exemple dans la pae indiquée
le mieux c'est que tu suives la procédure manuelle pour un créer un comme du veux, tu regardes comment il est fait et tu t'inspire de mon code pour générer le fichier comme il faut


Le format des ID de réplique de la base et/ou du UNID du doc n'est peut-être pas exactement comme il faut ? Il manque peut-être un ID de vue dans le fichier NDL ? Il te faut certainement une vue par défaut dans ta base ?