Lotus Notes - extraction de fichier

Question

Bonjour,

J'effectue une extraction des fichiers attachés des mails reçus par l'intérmédiaire de Lotus Notes. Mais j'aimerai juste me limiter au dossier "Courrier en arrivée". Comment je peux le faire?
Mon disque dur risque de ne pas apprécier...

Merci.

: > ) Bonne journée

djam21 · Answer

Public Sub ReceivedNotesMail()
Dim Session As Object 'The notes session
Dim UserName As String 'The current users notes name
Dim Maildb As Object 'The mail database
Dim MailDbName As String 'THe current users notes mail database name
Dim MailDoc As Object 'The mail document itself
Dim MailFile As Object


Dim item As Object
Dim obj As Variant
Dim Compteur As Integer
  
Compteur = 0


    Set Session = CreateObject("Notes.NotesSession")
    UserName = Session.UserName
    MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
    'Open the mail database in notes
    Set Maildb = Session.GetDatabase("", MailDbName)
    
    
    If Maildb.IsOpen = True Then
         'Already open for mail
    Else
        Maildb.OPENMAIL
    End If
    
    
    
  'Set Dir = Sess.GetDbDirectory("")
  'Set DB = Dir.OpenMailDatabase




Set MailFile = Maildb.AllDocuments
Set MailDoc = MailFile.GetFirstDocument




Do While Not (MailDoc Is Nothing)
Set item = MailDoc.GetFirstItem("Body")
    If (item.Type = RICHTEXT) Then
        If Not IsEmpty(item.EmbeddedObjects) Then
            For Each obj In item.EmbeddedObjects
                If (obj.Type = EMBED_ATTACHMENT) Then
                    Call obj.ExtractFile("P:\Documents\ESSAI" + Format(Compteur, "00000_") + obj.Name)
                    Compteur = Compteur + 1
                End If
            Next
        End If
    End If
    
    Set MailDoc = MailFile.GetNextDocument(MailDoc)
Loop


    Set item = Nothing
    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set AttachME = Nothing
    Set Session = Nothing
    Set EmbedObj = Nothing


End Sub

La solution doit se trouver dans cette ligne ( Set MailFile = Maildb.AllDocuments ) , mais je ne connais pas la commande qui me permet de le faire...

Et au cas où, comment supprimer un mail dans Lotus???

coin16 · Answer

SAlut,

Moi je cherche comment extraire une pièce jointe ;-)

Voici comment je me limite à la boîte de réception :

Public view As Object      'NOTESVIEW

Set maildb = dir.OpenDatabase("fichier.nsf")

'Connexion sur la vue de boîte de réception
Set view = maildb.GetView("($INBOX)")



'Se placer sur le premier document
Set maildoc = view.GetFirstDocument



Puis je classe le mail, pour éviter de le traiter 2 fois :

moveToFolder maildb, maildoc, "MonRepertoire"

@+.

Coin.

coin16 · Answer

Oups.... 

J'ai oublié de mettre la fonction Movetofolder....

Function moveToFolder(dbMailbox As NotesDatabase, docMailbox As NotesDocument, folderName As String) As Boolean
  Dim docMailBoxCopy As NotesDocument
    On Error GoTo handleError
      Set docMailBoxCopy = docMailbox.CopyToDatabase(dbMailbox)
      docMailBoxCopy.PutInFolder folderName, True
      docMailbox.Remove True
    On Error GoTo 0
    moveToFolder = True
    Exit Function
handleError:
  MsgBox "Error # " & Err & " : " & Error$ & " - line " & Erl, 16, "DEMOA Notes Error - moveToFolder"
End Function

Lotus Notes - extraction de fichier

3 réponses

Votre réponse

Discussions similaires