Lotus Notes with Access Management

[New ID]

Hello,
I am bound and send email from Outlook (and I say pout if this would interest me). But with my client, it asks me to do the same with Lotus Notes. I found how to send an email with property management. By cons, in terms of reception, nothing good has come from sustainably enlighten my horizon. How can i manage the lotus notes with the access. If you have something for me, I thank you in advance.

[WinDoWLoCuS]

Hello,
I have not much idea about how to do this, but I think you can start by adding the reference lotus notes, then launch the browser object to see something. If you do not need this then you can use directly the outlook to send the email. I think this is the best to to send the email rather than doing this. And also I think this will take a lot of time.

[New ID]

Hello,
From Access, I searched the properties of an object notes but nothing appears (unlike Outlook). That's why I'm still not identified a new mail or extract the contents.

What I am trying to do is:
1 / Identifying a new mail
2 / Extract the body and the recipient
3 / In the extract attachment
4 / Mark message as read

Nothing is really interesting me in this. if you have any other alternative for this then please do post back.

[Linux-Us]

Hello,
I think you can perform this by the following code. Just have a look at it. If you have some basic knowledge of programming then it will be easier or you.

Sun cn As Integer
Sun str As String
Sun i As Long
 
    'On Error GoTo Error
    ecritStatus "Recovery of attached files in progress ..."
    ecritLog "Start Recovery attachments."
    cn = 0
    Set iNot_Session = Nothing
    iNot_Session.Initialize "foo" 'Password prospective
    Set iNot_DBDir = iNot_Session.GetDbDirectory("")
    Set iNot_MailDB = iNot_DBDir.OpenMailDatabase
    Set iNot_ArchiveDB = iNot_Session.GetDatabase("", "LeNomCompletDeLArchive.nsf")
    str = fngGetParamString("Type", "Dir")
        
'Set iNot_ArchiveDB = iNot_DBDir.GetFirstDatabase (NOTES_DATABASE)
'While Not IsNull (iNot_ArchiveDB)
'Debug.Print iNot_ArchiveDB.FilePath
'Set iNot_ArchiveDB = iNot_DBDir.GetNextDatabase
'Wend
 
    If Not iNot_ArchiveDB.IsOpen Then
        iNot_ArchiveDB.Open
    End If
    
    If Not iNot_MailDB.IsOpen Then
        iNot_MailDB.Open
    End If
 
    Set iNot_DocCollection = iNot_MailDB.AllDocuments
    Set iNot_Document = iNot_DocCollection.GetFirstDocument
    iLng_NbDocument = iNot_DocCollection.Count
    For i = 0 To iLng_NbDocument -- 1
        If i <= iNot_DocCollection.Count Then
            If TestDocumentNotes <> 0 Then
                GoTo End
            End If
            iStr_Subject = iNot_Document.GetFirstItem("Subject").Values(0)
            'Debug.Print iStr_subject
            If iStr_Subject = "Subject1" Gold iStr_Subject = "Sujet2" Then
                'Set iNot_DocumentCopie = New NotesiNot_Documentument' (iNot_ArchiveDB)
                If ArchiveDocNotes <> 0 Then
                    GoTo BoucleNext
                End If
                'Debug.Print iNot_Document.Created & "-" & iStr_subject
                Set item = iNot_Document.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
                                iStr_NomFichier = obj.Name
                                If iStr_NomFichier <> "" Then
                                    'iStr_NomFichier = right (iStr_NomFichier, Len (iStr_NomFichier) - 3)
                                    'iStr_NomFichier = left (iStr_NomFichier, InStr (1, iStr_NomFichier, ".") +3)
                                    ecritLog "Recovered file" & IStr_NomFichier
                                    obj.ExtractFile (str & iStr_NomFichier)
                                    cn = cn + 1
                                End If
                            End If
                        Next
                    End If
                End If
                iBOL = True
            End If

End Function
 
Function ArchiveDocNotes() As Integer
    We Error GoTo Mistake
    iNot_Document.CopyToDatabase iNot_ArchiveDB
    ArchiveDocNotes = 0
    Exit Function
Error:
    ArchiveDocNotes = -1
End Function

[GlassFish]

Hello,
Yes, i think you can do this will the above code which is posted. I use some similar code like this to retrieve email attachments which the subject is subject1 or Sujet2. The messages are then archived and deleted. We must add the ref Lotus Domino Objects. It worked Lotus 5 and it works with the 6.5. Just try it and I think it will surely work for you.

[New ID]

Hello,
Thanks for the code and the replies by the other members. it helps me a lot and specially thanks for the piece of code. i do not have much knowledge about programming , but I can understand some thing in that. By cons, attention to those who would use: there is a system of functions written by our inspiration which serve to create LOG. So, you encounter compilation errors if you do not remove or does not rewrite.