DominoArea.org [Archive]

bonjour

j'ai un code qui créer un fichier doclink.ndl et qui le joint a un mail, cela fonctionne très bien mais dans ce mail je souhaiterais rajouter un lien doc aussi. Mais j'y arrive pas ??

je vous joins le code existant


Sub Click(Source As Button)

Dim S As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim CurrentUIDoc As NotesUIDocument
Dim uidoc As NotesUIDocument
Dim Doc As NotesDocument
Dim object As NotesEmbeddedObject
Dim rtItem As NotesRichTextItem
Dim dbMail As NotesDatabase
Dim objFile, objFolder, strLink, strFilePath, strDirectory
Dim sFileNum As Integer
Dim sFileName, var,var2,var3 As String


' recupere serveur mail et nom du fichier actuel
Set CurrentUIDoc = workspace.CurrentDocument
MS=S.Getenvironmentstring("MailServer",True)
MF=S.Getenvironmentstring("MailFile",True)

'mise en forme des ID
var = CurrentUIDoc.Document.ParentDatabase.ReplicaID
var = Left(var,8)&":"& Right(var,8)
var2 = CurrentUIDoc.document.UniversalID
var3="OF"&Left(var2,8)&":"&Mid(var2,9,8)&"-ON"& Mid(var2,17,8)&":"&Right(var2,8)

'creation du fichier NDL
sFileName = "C:\doclink.ndl"
nFileNum = Freefile()
Open sFileName For Output As nFileNum
Print #nFileNum, currentuidoc.Document.ParentDatabase.Title & " - " & currentuidoc.FieldGetText("Subject")
Print #nFileNum, "<NDL>"
Print #nFileNum, "<REPLICA>"
Print #nFileNum, "<NOTE>"
Print #nFileNum, "<HINT>" & S.Getenvironmentstring("MailServer",True) & "<HINT>"
Print #nFileNum, "</NDL>"
Close nFileNum


' creer un nouveau doc de type memo
Set dbMail = S.GetDatabase(MS,MF,False)
Set Doc = dbMail.CreateDocument
Call doc.ReplaceItemValue("Form","memo")
Set rtitem = New NotesRichTextItem( doc, "Body" )
'attache le fichier ndl
Set object1 = rtitem.EmbedObject ( EMBED_ATTACHMENT, "", "c:\doclink.ndl")

Set uidoc = workspace.EditDocument(True,doc,False)
'ecrit dans le body
Call uidoc.FieldSetText("subject", CurrentUIDoc.FieldGetText("Subject"))
Call uidoc.FieldAppendText("body","Bonjour, Vous trouverez en pièce jointe le fichier Lotus suivant : "+currentuidoc.FieldGetText("Subject"))
end sub

Merci pour votre aide

autre petite question : comment on fait un retour a la ligne ou mette en gras du texte..

salut

regarde à Call notesRichTextItem.AppendDocLink( linkTo, comment$ [, HotSpotText$ ] ) dasn l'aide en ligne

et pense a déclarer une vue par défaut sinon ça marche pas

J'ai essayé de rajouter ce bout de code

Call rtitem.AppendDocLink ( CurrentUIDoc.document," ")

mais cela ne rajoute rien.

ton doc as été enregistré ?

c'est a dire enregistrer le doc ?

ton CurrentUIDoc.document tu l'as enregistrer ? uidoc.save ?

j'ai remplacé par
Set doc1=CurrentUIDoc.document
Call rtitem.AppendDocLink ( doc1," ")

mais ca marche pas non plus

je me répete :

1 as tu une vue par défaut
2 ton document l'as tu enregistré

je ne sais pas faire de vue par defaut ? comment fait on ? merci

http://publib.boulder.ibm.com/infocente ... VIEWS.html

aide designer a écrit:Pour définir la vue par défaut, sélectionnez l'option "Par défaut à la première ouverture de la base" sous l'onglet Options de la boîte des propriétés de la vue