Lotus Notes / Domino Sonstiges > Tools & Downloads

Yet Another Document Library

<< < (8/13) > >>

y20frank:
Auch ich habe im alten Jahr mir die Schablone angeschaut ... und bin fast blind geworden! Absolut wahnsinnig tolles Tool das Ding! Glückwunsch dem Schöpfer! 
So und nun beginnt die mentale Vorbereitung auf 2005 - guten Rutsch allen! ;D
Gruß
Frank

-Michael-:
Hi,

Danke Frank und Hape für Euer Feedback  :)


--- Zitat von: HaPe am 31.12.04 - 00:38:06 ---P.s.: Wenn du nich Lust und Zeit hast .. wie wäre es mit einem Web part nur zum Betrachten der Daten ....
--- Ende Zitat ---

Das stimmt, das wäre noch eine sinnvolle Erweiterung. Mal sehen wann ich dazu komme.

Grüße,
Michael

HaPe:

--- Zitat von: -Michael- am 05.01.05 - 22:05:12 ---

--- Zitat von: HaPe am 31.12.04 - 00:38:06 ---P.s.: Wenn du nich Lust und Zeit hast .. wie wäre es mit einem Web part nur zum Betrachten der Daten ....
--- Ende Zitat ---

Das stimmt, das wäre noch eine sinnvolle Erweiterung. Mal sehen wann ich dazu komme.

--- Ende Zitat ---

Supi, dann bin ich gespannt.

Noch eine Frage Michael. Hast du einen fertigen Knopf für die Inbox um von dort aus einen Mail zu übernehmen?

Immer DB öffenen, neues dokument erstellen und dann Import ist mir zu umständlich.

Wenn nicht würde ich anbieten den code zu erstellen und hier zu posten.

.... Man muss sich die Arbeit ja nicht doppelt mache  ::) ...

Gruß Hape

HaPe:
Hi Michael,

hier der Code für ein Smarticon um belibige Dokumente in dein DL zu übernehmen:


--- Code: ---FromTmp:=@Name([Abbreviate];From);
SubjectTmp:=Subject;
QuelleTmp:=@DbTitle+" ("+@Name([Abbreviate];@DbName[1])+":"+@DbName[2]+")";
LinkTmp:="notes://"+@Name([CN];@DbName[1])+"/"+@ReplaceSubstring(@DbName[2];"\\";"/")+"/$DefaultView/"+@Text(@DocumentUniqueID);
@Command([EditCopy]);
REM {@Command([FileOpenDatabase];"":"HaPe's Library.nsf")};
@Command([Compose];"":"HaPe's Library.nsf";"Documentation");
@Command([EditGotoField];"Title");
@Command([EditInsertText];SubjectTmp+@If(FromTmp="";"";" [From:"+@Name([Abbreviate];From)+"]"));
@Command([EditGotoField];"Source");
@Command([EditInsertText];QuelleTmp);
@Command([EditGotoField];"Content");
@Command([EditInsertText];"Link: "+LinkTmp+@NewLine);
@Command([EditPaste]);
@Command([EditGotoField];"Category")
--- Ende Code ---

Es muss nur im  [Compose] Command der Pfad zu DB angepasst werden.

MFG
   HaPe

-Michael-:
Hi Hape,

prima, danke  :D

Ich hab das ganze noch ein wenig kommentiert etc. und werde es bei der nächsten Aktualisierung mit in die DB aufnehmen ins "Using this Database" - Dokument.


--- Code: ---REM {===========================================================================};
REM {Purpose:};
REM {Copies the current document into a new YA doc library - document.};
REM {You can use this formula in a smarticon.};
REM {-----------------------------------------------------------------------------------------------------------------------------------};
REM {Date Author Changes};
REM {14. Jan 2004 Hanspeter Jochmann New};
REM {14. Jan 2004 Michael Woehrer Minor changes"};
REM {===========================================================================};

REM {--------------------------------------  SETUP Start  --------------------------------------};
REM {Enter here the server where the YA doc library is located. Leave it empty if the db is local.};
_TargetServer := "";
REM {Enter here the full path, e.g. 'doc/yadl.nsf' };
_TargetPath := "doc/yadl.nsf";
REM {--------------------------------------  SETUP End  --------------------------------------};


REM {Values of current document};
_SourceFrom := @Name([Abbreviate];From); REM {Get the content of the field From -- usually from an email};
_SourceSubject := Subject; REM {Get the content of the Subject -- usually from an email};
_SourceSource:= @DbTitle+ " (" + @Name([Abbreviate];@DbName[1]) + ":" + @DbName[2] + ")"; REM {Build the string for the target field 'Source' };
_SourceLink  := "notes://" + @Name([CN];@DbName[1]) + "/" + @ReplaceSubstring(@DbName[2];"\\";"/") + "/$DefaultView/" + @Text(@DocumentUniqueID);

REM {Copies the current document content};
@Command([EditCopy]);

REM {Create new YA Doc Lib - document and insert the values};
@Command([Compose]; _TargetServer : _TargetPath; "Documentation");

@Command([EditGotoField]; "Title");
@Command([EditInsertText]; _SourceSubject + @If(_SourceFrom = "";"";" [From:" + _SourceFrom + "]") );

@Command([EditGotoField];"Source");
@Command([EditInsertText];_SourceSource);

@Command([EditGotoField];"Content");
@Command([EditInsertText];"Link: " + _SourceLink + @NewLine);
@Command([EditPaste]);

@Command([EditGotoField];"Category")
--- Ende Code ---


Als nächstes kommt noch eine Archivierungsfunktionalität in die DB, da ich das brauche  ;)

Ciao,
Michael

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete