also ... ich hab mir jetzt arbeitsbedingt notes auf den rechner gemacht und möchte meine mails nun alle aus eudora dort importieren ... das geht anscheinend nur über den umweg von outlook bzw. einem pst-file ... nur dummerweise sind da nie die anhänge dabei, die mails sind zwar alle da, aber nicht die anhänge ... das passiert aber schon beim schritt von eudora nach outlook
kennt das wer oder hat da wer ne lösung für mich parat? wär echt super, denn ich verzweifel langsam und ich hab keine lust wegen der alten mails mein eudora ewig zu behalten und so manche mails will ich halt mit anhang behalten wegen dem zusammenhang bzw dem sinn der ohne anhang eventuell verloren geht
Eudora nach Notes migrieren
- geordi
- Erledigt
-
-
ich hab jetzt den eudora mailbox cleaner gefunden, der macht das, der exportiert die eudora-files und hängt die anhänge wieder an die mails ran, leider aber macht der das nach mail.app, is also mac und ich hab halt windows ... hat sowas schon mal einer für windows gefunden?
-
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 -
wie soll das gehen mit dem imap? da kann ihc mir so gar nichts drunter vorstellen, gibts da irgendwo en howto? brauch ich dafür en imap-fähigen server? weil den hab ich nicht ... aufgeräumt ist mein eudora eigentlich
die db vom taurec habe ich, aber das funzt net ... da muss ich ein dokument mit den migrations-einstellungen an meine mail-addy schicken, aber da kommt nur ne exe an, eigentlich sollte es aber so ein richtiges notes-dokument sein mit zwei buttons und so
-
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 -
ich werd die tools mal testen und berichten ... solltest du aber noch mal über das script stolpern dann sag bescheid
-
okay, ab sofort gehört ihr alle für mich zum club der coolen leute
mit unote hat es einwandfrei geklappt, alles bestens, endlich kann ich mich von eudora verabschieden und mich voll und ganz dem notes widmenICH DANKE EUCH ALLEN!!!!
und wünsche euch auf diesem Wege ein frohes fest und einen guten rutsch
Michael
-
Zitat
geordi schrieb:
okay, ab sofort gehört ihr alle für mich zum club der coolen leuteso 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 widmenNaja, 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
Michaeldito! 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 SubDas 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.