script pour lire

[nat]

BonjourPouvez vous me dire comment lire un mail avec du lotus script et de récuperer le premier mot de la deuxieme ligne du mail.Merci encoreNat

[oguruma]

simple mais ça fonctionneSub Click(Source As Button) Dim w As New notesuiworkspace Dim uidoc As notesuidocument Dim doc As notesdocument Dim p1 As Integer Dim p2 As Integer Dim item As notesitem Set uidoc=w.currentdocument Set doc=uidoc.document Set item=doc.getfirstitem("Body") Msgbox returnWord(item.text)End SubFunction returnWord(s As String) As String p1=Instr(s,Chr$(13)) if p1> 0 then p2=Instr(p1,s," ") if p2>0 then returnWord= Mid$(s, p1+1,p2-p1)End Function

[oguruma]

pour être plus propre et plus cohérent...Sub Click(Source As Button)Dim w As New notesuiworkspaceDim uidoc As notesuidocumentDim doc As notesdocumentDim item As notesitemSet uidoc=w.currentdocumentSet doc=uidoc.documentSet item=doc.getfirstitem("Body") Msgbox returnWord(item.text)End SubFunction returnWord(s As String) As String Dim p1 As IntegerDim p2 As Integerp1=Instr(s,Chr$(13))if p1> 0 then p2=Instr(p1,s," ") if p2>0 then returnWord= Mid$(s, p1+1,p2-p1)End Function

[nat]

Merci beaucoup pour la réponse..je vais pouvoir me debrouiller avec votre script.A bientôtNAt