Agent Lotusscript pr envoi mail avec PJ

[hippo_ma]

Bonjour

Administratrice Lotus Notes, je dois développer un agent qui me permet de créer un nouveau mail (dans la session du user en cours) et de joindre a ce mail un fichier qui se trouve sous c: (sans envoyer le mail et sans spécifier les destinataires)

depuis 3 jours je cherche des exemples et fais des tests mais rien ne marche pour le moment j'arrive juste a ouvrir un nouveau mémo avec ce code

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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
    
    'récup du doc en cours
    Set CurrentUIDoc = workspace.CurrentDocument
    Set doc=CurrentUIDoc.document
    MS=S.Getenvironmentstring("MailServer",True)
    MF=S.Getenvironmentstring("MailFile",True)
    
    ' création d'un doc signet
    Set uidoc = workspace.ComposeDocument(MS,MF, "memo")
    uidoc.FieldAppendText(subject,"essai")
    'Mise en place du lien doc dans le body du signet
    Set Doc=uidoc.document
    Set rtitem = New NotesRichTextItem( doc, "Body" )
    Set object1 = rtitem.EmbedObject _
    ( EMBED_ATTACHMENT, "", "c:\doclink.ndl")
    
    
    
End Sub

Si quelqu'un pouvez m'aider je vous remercie

[Zabriskir]

Bonjour,

Pour faire ce genre de chose, utilisez dans la mesure du possible le langage de formule. Voici ce que cela donne dans votre cas :

Code :

1
2
3
4
5
@Command([Compose]; @MailDbName; "Memo");
@UpdateFormulaContext;
FIELD Subject := "Essai";
@Command([EditGotoField] ; "Body" );
@Command([EditInsertFileAttachment]; "c:\\doclink.ndl"; "1")

Vous pouvez également consulter ce lien pour plus d'info.

@+