par Droad » 17 Juil 2003 à 16:38
Veuillez pardonnez mon incruste !Puisque la référence au serveur est inutile dans le contexte sus-mentionné, j'ai simplifié mon agent auparavant posté.Rappel: "Exécuter une fois", "Acces web - Executer en tant qu'utilisateur Web".Dans la page: <a href="NomAgent?openagent">Mail</a> Ptéte que ça marchera mieux.Sub Initialize On Error Goto handle_error Dim session As New NotesSession Dim username As String, nname As NotesName Set nname = New NotesName(session.EffectiveUsername) username = nname.Abbreviated Dim personDoc As NotesDocument, serverDoc As NotesDocument Dim view As NotesView Dim books As Variant, book As NotesDatabase '-- recupérer le doc Person de l'utilisateur books = session.AddressBooks Forall b1 In books Set book = b1 If book.IsPublicAddressBook Then If Not book.IsOpen Then Call book.Open("","") Set view = book.GetView("($NamesFieldLookup)") If Not view Is Nothing Then Set personDoc = view.GetDocumentByKey(username,True) If Not(personDoc Is Nothing) Then Exit Forall End If End If End Forall If personDoc Is Nothing Then Error "8001", username & " n'est référencé dans aucun carnet d'adresse" End If Dim mailfile As String mailfile = personDoc.mailFile(0) '-- remplacer les espaces et les antislashes dans le chemin d'accés à la base Dim i As Integer For i=1 To Len(mailfile) Select Case Mid$(mailfile,i,1) Case " " Mid$(mailfile,i)= "+" Case "\" Mid$(mailfile,i)= "/" End Select Next If Instr(mailfile,".")=0 Then mailfile = mailfile + ".nsf" Dim mailurl As String mailurl = "/"+mailfile Print "Location: " & mailurl Exit Sub handle_error: Print "<font color='red'>" & Error$ & " (ligne " & Erl & ")</font>" Resume donedone:End Sub[%sig%]