je suis sur un document ouvert et j'ai mis un boouton en LS.
L'objectif est d'envoyer par mail le contenue d'un document en automatique.
j'appel ma fonction de la manière suivante
Call sendMailDocFull(uidoc.Document.Interlocuteur_fap(0), uidoc.Document)
- Code : Tout sélectionner
Sub sendMailDocFull(sendTo As String, doc As NotesDocument)
REM Le CRV n'accédant pas à l'application on l'informe en y mettant le contenue du document dans le mail
REM Declare
Dim rtitem As NotesRichTextItem
Dim memo As NotesDocument
Dim db As NotesDatabase
Dim session As New NotesSession
Dim success As Variant
REM Constante
Const FYIsubject = "Veuillez trouvez une FAP qui vous est destiné"
Const BodyDeb = "Une nouvelle FAP est susseptible de vous intéressé."
Const BodyLink = "Veuillez trouver ci-dessous les informations"
Set db = session.CurrentDatabase
Set memo = New NotesDocument( db )
memo.Form = "Memo"
memo.SendTo = sendTo
memo.Subject = FYIsubject
Set rtitem = New NotesRichTextItem( memo, "Body" )
Call rtItem.AppendText(BodyDeb)
Call rtItem.AddNewline(2)
Call rtItem.AppendText(BodyLink)
Call rtItem.AddNewline(2)
success = doc.RenderToRTItem( rtitem )
Call memo.send( False )
End Sub
Pour une raison que je ne connais pas il fait une erreur sur la ligne :
success = doc.RenderToRTItem( rtitem )
Erreur : Erreur Notes : Objet Base de document spécial introuvable
Merci de votre aide.
