Eudora nach Notes migrieren

Der ursprüngliche Notes 5.0 Client (sicher weiss ich es bei dem Vollpaket, also Client, Designer, Admin) sind einige Datenbanken dabei mit denen Mails aus verschiedenen Systemen direkt migriert werden können.
Warum diese Tools später entfernt wurden, würde mich auch mal interessieren. Die haben nämlich prima funktioniert.
Ich selbst habe diese für Eudora und Netscape verwendet.
Eines davon ist auch Eudora. Bei der Windows Version funktioniert das problemlos über die Datenbank, bei einem Mac-Eudora müssen da noch eine Textkonvertierung vorgenommen werden. Sollte dich aber nicht stören da du ja Windows benutzt.
Die Migration läuft dabei in zwei Schritten ab:
- Export der Mails aus einem korrekt installierten Eudora Client.
- Import in die aktuelle Mail-Datenbank von Notes
Falls dir die Installdateien fehlen, melde dich einfach mal bei mir.

Ein Trick, der auch meistens funktioniert, ist, das Notespostfach als IMAP-Konto einzubinden und die Mails dann einfach per Drag'n Drop rüberzuschieben. Mit Netscape hat das prima funktioniert, mit Eudora habe ich leider keine Erfahrung. Es sollte aber genauso gehen.
Ich glaube, die Ordnerstruktur wird so auch nicht übernommen - Du mußt es einfach mal probieren und die Ordner gegebenenfalls von Hand neu anlegen. Es ist eine gute Gelegenheit, dabei gleich mal aufzuräumen

Völlig korrekt - Du brauchst einen IMAP-fähigen Server. Ich hatte Dich so verstanden, daß Du auch einen Domino-Server hast. Der ist nämlich IMAP-fähig. Nur mit dem Client gehts leider nicht :-x

Das Dokument muss nicht verschickt werden, sondern kann nach Eintragung der benötigten Daten auch direkt ausgeführt werden.
Ursprünglich ist das natürlich zum Verschicken gedacht, aber das ist definitiv nicht notwendig.
Also Dokument mit den benötigten Daten ausfüllen, Knopf 1 zum Export drücken, Knopf 2 zum Import drücken--> Fertig

Moijn!

Eine Übersicht, wer von wo nach wo migrieren kann, gibt es hier

Zwei Tool, die einen guten Eindruck von der Beschreibung her machen, siehst du hier und hier

Ich hab mal irgendwo ein LS-Script gesehen, dass sich die Eudora .mbx Dateien schnappt und Notes-Dokumente draus macht, inkl. Anhänge. Finde ich bloß den Link nicht mehr. War zwar für Eudora 4.x, aber mit ein wenig Anpassungen sollte es wohl auch auf Eudora 5.x oder 6.x zu portieren sein...

greetz
RW

Zitat

geordi schrieb:
okay, ab sofort gehört ihr alle für mich zum club der coolen leute

so oft, wie ich das schon gehört hab... :lol:

Zitat

mit unote hat es einwandfrei geklappt, alles bestens, endlich kann ich mich von eudora verabschieden und mich voll und ganz dem notes widmen

Naja, beruflich schlage ich mich auch damit rum, aber privat schwöre ich auf Eudora. Immer noch der Beste Client IMO, jedenfalls, wenn man keinen Wert auf IMAP legt. Den Server kenne ich leider nicht. Naja, Geschmackssache eben...

ICH DANKE EUCH ALLEN!!!!

Zitat

und wünsche euch auf diesem Wege ein frohes fest und einen guten rutsch
Michael

dito! Euch allen!

greetz
RW

HA! Jetzt weiß ich, wo ich das Script gesehen hab: in der Sandbox auf Notes1/NotesWeb

Release Notes

Zitat

This code imports ".mbx" file of Eudora 4 in a Notes database. One message in .mbx becomes one document in a database with is attached files. The read and unread flags in the ".mbx" are preserved. You can include this code in an agent in your mail database. The agents asks where is the ".mbx" file is located and in which folder you want to create Notes documents.

Note that the code includes French language phrases.

Und der Agent an sich:

Zitat

'
'I hope it's help you.
'Tell me if you have best change for it.
'
'
Sub Initialize
Dim Session As New NotesSession
Dim doc As NotesDocument

Dim boite As NotesDatabase
Set boite = session.CurrentDatabase

Dim sFileName As String
'sFileName = Inputbox("Veuillez saisir le chemin du fichier mbx","Importation des messages","c:\*.mbx")
sFileName = Inputbox("Veuillez saisir le chemin du fichier mbx","Importation des messages","c:\e-lorrai.mbx")
If sFileName = "" Then Exit Sub
'
' Ouverture du Fichier mbx
'
On Error Goto NoFile
Dim nFile As Integer
nFile = Freefile
Open sFilename For Input As #nFile
On Error Goto 0
'
' Récupération du nom du dossier
'
Dim nomDossier As String
'nomDossier = Inputbox("Veuillez saisir le nom du dossier récepteur","Importation des messages","($Inbox)")
nomDossier = Inputbox("Veuillez saisir le nom du dossier récepteur","Importation des messages","aaa")
If nomDossier = "" Then Exit Sub
'
' Scrutage du fichier mbx
'
Dim mLigne As String ' La ligne récupérée du fichier mbx
mLigne=""
Dim mFrom As String ' From:
mFrom=""
Dim mTo As String ' To:
mTo=""
Dim mSubject As String ' Subject:
mSubject=""
Dim mBody As String
mBody=""
Dim mCc As String ' Cc:
mCc = ""
Dim mAttach() As String ' Attachment Converted:
Dim nbrAttach As Integer 'nombre de pièces attachées
nbrAttach = 0
'mAttach=""
Dim mDate As String ' Date:
mDate=""
Dim mRead As String ' lu / non lu
mRead=""
Dim pos As Integer ' début d'un message
Dim cr As String
cr = Chr(13)
Dim rtitem As NotesRichTextItem
Dim richStyle As NotesRichTextStyle
Set richStyle = Session.CreateRichTextStyle
richStyle.PassThruHTML = True
Dim i As Single
Dim inval As String

While Not Eof(nFile)
i = 0
Line Input #nFile, mLigne
pos = Instr(mLigne,"From ???@???")
While (pos = 0) And (Not Eof(nFile))
If i=1 Then
Line Input #nFile, mLigne
pos = Instr(mLigne,"From ???@???")
End If
i = 1
If (Ucase(Left(mLigne,5))="FROM:") And (mFrom="") Then
mFrom=Trim(Right(mLigne,Len(mLigne)-5))
If mFrom="" Then
If Not Eof(nFile) Then
Line Input #nFile, mLigne
mFrom=Trim(mLigne)
End If
End If
If Instr(mFrom,"(")<>0 Then
mFrom = Trim(Strleft(mFrom,"("))
End If
Else
If (Ucase(Left(mLigne,3))="TO:") And (mTo="") Then
mLigne=Trim(Right(mLigne,Len(mLigne)-3))
While (Right(mLigne,1)=",") And (Not Eof(nFile))
mLigne = Trim(Left(mLigne,Len(mLigne)-1))
mTo = mTo + mLigne
Line Input #nFile, mLigne
Wend
mTo = mTo + Trim(mLigne)
Else
If (Ucase(Left(mLigne,8))="SUBJECT:") And (mSubject="") Then
mSubject = Trim(Right(mLigne,Len(mLigne)-8))
Else
If (Ucase(Left(mLigne,5))="DATE:") And (mDate="") Then
mDate=Trim(Right(mLigne,Len(mLigne)-5))
If Instr(mDate,"+") <> 0 Then
mDate=Strleft(mDate,"+")
Else
If Instr(mDate,"-") Then
mDate=Strleft(mDate,"-")
Else
If Instr(mDate,"PST") Then
mDate=Strleft(mDate,"PST")
Else
If Instr(mDate,"EST") Then
mDate=Strleft(mDate,"EST")
Else
mDate = Trim(mDate)
End If
End If
End If
End If
If Instr(mDate,",")<>0 Then
mDate=Trim(Strright(mDate,","))
Else
mDate = Trim(mDate)
End If
Else
If (Ucase(Left(mLigne,21))=Ucase("Attachment Converted:")) Then
nbrAttach = nbrAttach + 1
Redim Preserve mAttach(nbrAttach)
mAttach(nbrAttach) = Trim(Right(mLigne,Len(mLigne)-21))
mAttach(nbrAttach) = Left(mAttach(nbrAttach),Len(mAttach(nbrAttach))-1)
mAttach(nbrAttach) = Right(mAttach(nbrAttach),Len(mAttach(nbrAttach))-1)
Else
If (Ucase(Left(mLigne,3))="CC:") And (mCc="") Then
mLigne=Trim(Right(mLigne,Len(mLigne)-3))
While (Right(mLigne,1)=",") And (Not Eof(nFile))
mLigne = Trim(Left(mLigne,Len(mLigne)-1))
mCc = mCc + mLigne
Line Input #nFile, mLigne
Wend
mCc = mCc + Trim(mLigne)
Else
If (Ucase(Left(mLigne,7))="STATUS:") And (mRead="") Then
If Trim(Right(mLigne,Len(mLigne)-7))="Read" Then
mRead="1"
Else
mRead="0"
End If
Else
If pos=0 Then
inval = Ucase(Trim(Strleft(mLigne,":")))
Select Case inval
Case Ucase("Received") :
Case Ucase("Message-ID") :
Case Ucase("MIME-Version") :
Case Ucase("Content-Type") :
Case Ucase("X-Priority") :
Case Ucase("X-MSMail-Priority") :
Case Ucase("X-Mailer") :
Case Ucase("X-MimeOLE") :
Case Ucase("X-ListMember") :
Case Ucase("X-Lotus-FromDomain") :
Case Ucase("X-MSMail-Priority") :
Case Ucase("In-Reply-To") :
Case Ucase("X-MIME-Autoconverted") :
Case Ucase("Reply-To") :
Case Ucase("X-Sender") :
Case Ucase("X-ListVersion") :
Case Ucase("Content-Transfer-Encoding") :
Case Ucase("References") :
Case Ucase("Content-Disposition") :
Case Else :
mBody = mBody + mLigne +cr
End Select
End If
End If
End If
End If
End If
End If
End If
End If
Wend
If Not Eof(nFile) Then
mBody = mBody + Left(mLigne,pos-1)
End If
If i=1 Then
Set doc = New NotesDocument(boite)
doc.Form = "Memo"
doc.From = mFrom
doc.Principal = mFrom
Set rtitem = New NotesRichTextItem( doc, "Body" )
If Instr(Ucase(mBody),"<BODY") Then
mBody = Strleft(mBody,"</BODY>")
mBody= Strright(mBody,"<BODY")
mBody= Strright(mBody,">")
End If
Call rtitem.AppendStyle(richStyle) ' PassThruHTML
Call rtitem.AppendText(mBody)
doc.SendTo = mTo
doc.Subject = mSubject
doc.CopyTo = mCc
doc.PostedDate = Cdat(mDate)
doc.DeliveredDate = Cdat(mDate)
'
'fichiers attachés
'
Dim attachFile As Integer
If nbrAttach<>0 Then
For i=1 To nbrAttach
attachFile = Freefile
On Error Resume Next
Open mAttach(i) For Input As #attachFile
If Err<>0 Then
Call rtitem.AddNewLine( 1 )
Call rtitem.AppendText( "Fichier attaché inexistant sur votre machine : " + mAttach(i))
Call rtitem.AddNewLine( 1 )
Err = 0
On Error Goto 0
Else
Call rtitem.EmbedObject(EMBED_ATTACHMENT, "", mAttach(i))
End If
Close attachFile
Next i
End If
'
Call doc.ComputeWithForm( False, False )
If mRead="1" Then
Call doc.Save( True, True, True )
Else
Call doc.Save(True, True, False)
End If
Call doc.PutInFolder(nomDossier,True) ' créer le dossier s'il n'existe pas
mLigne=""
mFrom=""
mTo=""
mCc=""
mSubject=""
mBody=""
nbrAttach = 0
Redim mAttach(nbrAttach)
mDate=""
mRead=""
End If
Wend
FinProc:
Close nFile
NoFile:
End Sub

Alles anzeigen

Das ist -wie gesagt- für Eudora 4, aber das kann man sicher auf 6 portieren. Wo die Unterschiede in den Formaten liegen, weiß ich leider nicht, hab ich alles noch nicht ausprobiert...

greetz
RW

Das wundert mich aber sehr, da das wie gesagt damals mit allen benutzern funktioniert hat.
Was vielleicht noch möglich wäre, ist das die Konfiguration vom Eudora Client irgendwei defekt ist.
Auf die muss er ja beim Export zugreifen.