This forum is closed to new posts and responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:

HCL Software Customer Support Portal for U.S. Federal Government clients
HCL Software Customer Support Portal


Oct 26, 2014, 3:59 AM
1 Posts

Move message ro folder to different email database

  • Category: Notes Client
  • Platform: Windows
  • Release: 9.0.1
  • Role: End User
  • Tags:
  • Replies: 2

I have 2 email databases. How do I move email messages and folders from one of the email databases to the other? I did this once, but I can't remember how.  THanks!!!

Oct 26, 2014, 7:55 PM
212 Posts
Move from one database to another

You canopen both databases in the Notes client.  Then select the desired items from the database and use the "Copy" command.  Then open the second databse (Target) and paste the items into the ded location on the second database.

Nov 18, 2014, 3:34 PM
16 Posts
RE: Move message ro folder to different email database

This cannot be done - you cannot move folders/databases from one database to another via the GUI.

As mentioned, you can copy documents from database to another.

As a work-a-round it is possible to create a lotus script agent to do the desired move (from one DB to another):

Sub Initialize
    Dim s As New NotesSession
    Dim w As New NotesUIWorkspace
    Dim dbSource As NotesDatabase, dbDest As NotesDatabase
    Dim source As NotesView, dest As NotesView
    Dim vc As NotesViewEntryCollection
    Dim docDest As NotesDocument
    Dim ve As NotesViewEntry
    Dim folders() As String
    Dim i As Integer
    Dim ret, rez
    
    Set dbSource = s.CurrentDatabase
    
    Forall v In dbSource.Views
        If v.IsFolder Then
            i = i + 1
            Redim Preserve folders( i - 1 ) As String
            folders( i - 1 ) = v.Name
        End If
    End Forall
    
    ret = w.Prompt( PROMPT_OKCANCELLISTMULT, "Folder selection", 
"Select one or more folders to move.", folders(0), folders )
    If Isempty( ret ) Then 
        Messagebox "User canceled", , "Folder not selected" 
        Exit Sub
    Else
        Forall f In ret    
            Set source = dbSource.GetView( f )
            Set vc = source.AllEntries
            
            rez = w.Prompt( 13, "Database selection", 
"Choose the database to move the folder to" )
            If Isempty( rez ) Then Messagebox "User canceled", , 
"Database not selected" : Exit Sub
            
            Set dbDest = s.GetDatabase( rez(0), rez(1), False )
            Call dbDest.EnableFolder( f )
            
            Set ve = vc.GetFirstEntry
            Do Until ve Is Nothing
                Set docDest = ve.Document.CopyToDatabase( dbDest )
                Call docDest.PutInFolder( f )
                Set ve = vc.GetNextEntry( ve )
            Loop
            
            Call vc.RemoveAllFromFolder( f )
            Call source.Remove
        End Forall
    End If
End Sub

 

Regards,

Paul


This forum is closed to new posts and responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:

HCL Software Customer Support Portal for U.S. Federal Government clients
HCL Software Customer Support Portal