1) Er det et ITF CRM system? 2) Jeg har en løsning, der hiver alle attachments ud og lægger dem i en separat Notes database, hvorfra dit CRM system kan åbne dem. Det gør CRM basen meget mindre og meget hurtigere, og du kører stadig i Notes. Løsningen er ikke gratis(!). Lad mig vide om du er interesseret.
OK - fair nok. Stadig - Er det et ITF CRM system? Uanset skal du blot lave en agent der looper gennem alle dokumenter, tjekker om der er et 8eller flere) atachments og så detache disse. For hver kunde kan du angive et separat bibliotek at lægge filerne under. Hvis du ikke er en Notes haj så...... ;-) (få nogen til at hjælpe dig on-site!) Rent nysgerrighed: hvorfor og til hvad skal I migrere?
Dine Dokumenter kan ligge som bilag og som OLE-objekter. Bilag er meget nemmere. Kan du se hvordan filerne er placeret i systemet? ->cdelicht: Har du specialiseret dig i migrering fra ITF, eftersom du har et værktøj til det :-) //Jörg
Cdelicht, det er egen udvilket til organisationen så det er det ikke.
Jeg sidder i søster selskabet uden notes erfarring, men nu har jeg databasen og installetet en domino server. Jeg har fået hevet alle kunde information ud og lign.
Jogii: Jeg aner ikke om det er et OLE objekter eller ej, jeg ved bare at det er helt alm. word dokumenter som er blevet vedhæftet under det som bliver kaldt correspondance under hver kunde. Det kan også være mails og mails med vedhæftede filer.
Cdelicht: et script der hiver dokumenter ud pr kunde i hvert sit bibliotek er min ønske tanke. men kan da vel ikke være så svært vel :) bare sig hvordan :)
"et script der hiver dokumenter ud pr kunde i hvert sit bibliotek"
Nedenstående er sakset fra hjælpen:
This script detaches and removes all the file attachments in a document's Body item that are larger than 100,000 bytes. The first file attachment that's found gets detached to c:\reports\newfile1, the second attachment that's found gets detached to c:\reports\newfile2, and so on. Dim doc As NotesDocument Dim rtitem As Variant Dim fileCount As Integer Const MAX = 100000 fileCount = 0 '...set value of doc... Set rtitem = doc.GetFirstItem( "Body" ) If ( rtitem.Type = RICHTEXT ) Then Forall o In rtitem.EmbeddedObjects If ( o.Type = EMBED_ATTACHMENT ) _ And ( o.FileSize > MAX ) Then fileCount = fileCount + 1 Call o.ExtractFile _ ( "c:\reports\newfile" & Cstr(fileCount) ) Call o.Remove Call doc.Save( True, True ) End If End Forall End If
og som du skriver "kan da vel ikke være så svært vel :)"
Du skal jo nok lige foretage dig lidt begavet omkring navngivningen ligesom kontrollen af størrelsen på dokumentet skal fjernes.
At hive mails ud af Notes og bevare deres formatering bliver derimod nok ikke så lige til. Men hvis du benytter R6 (seneste version) til at foretage eksporten, så er du da noget hjulpet. Med tidligere version må du nok indstille dig på at formateringen af mails'ne forsvinder.
Fint med det script der, jeg har lige forsøgt mig at sætte det ind, men hvilken type script er det, jeg har prøvet som lotusscript, formula og de siger alle fejl. Så jeg kan ikke gemme min agent.
Den pågældende kode er lavet til at håndtere ét dokument. Du skal have noget mere kode på for at håndtere alle (eller nogle) dokumenter, f.eks. nedenstående:
dim session as new notessession dim coll as notesdocumentcollection dim doc as notesnocument dim tmpdoc as notesdocument
set coll = session.CurentDatabase.AllDocuments
set doc = coll.GetFirstDocument do while not doc is nothing set tmpdoc = coll.GetNextDocument(doc)
'her kommer din kode for at håndtere det enkelte dokument
set doc = tmpdoc loop
Denne agent kører på alle dokumenter i databasen, uafhængig af hvilken "scope" agenten har. Hvis du vil have at agenten skal køre på et subset af dokumenter, skal dette angives ved en kombination af "scope" og set coll = session.CurrentDatabase.UnprocessedDocuments
Eller hvis du vil lave en søgning i databasen (uafhængig af "scope"): search$ = "her kommer dine kriterier, programmeret i @formel-sprog" set coll = session.CurrentDatabase.Search( search$, Nothing, 0)
Vi har næsten fået alle dokumenter ud nu. og mange tak for jeres indput. Sorry jeg har været lidt "AFK" på det sidste men bare haft travlt.
Begge script gav ideer så i dele pointene.
Borsk
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.