dpeadmin
asked on
Is there any method of "exporting" specified Notes/Domino fields
I currently use the File Export option coded behind a button to create an RTF document. The resultant document needs to be cleaned up, deleting the unecessary texts that outputs with the export. Is there any way to programmatically export only the required Notes fields within the document to a file or to the clipboard perhaps?
Of course there is, why don't you post the code.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
I'm interested in the option to output to clipboard as a preferred option , with output to Word as the 2nd choice. I attach the current code behind the Export button,
FIELD Export_File := Export_File;
T1 := @Subset(@DbLookup("" : "No Cache"; ""; "System\\Lookup by Export File"; Export_File; 3); 1);
T := @Right(T1; "@");
Temp_Next := @If(T = ""; "A"; T = "A"; "B"; T = "B"; "C"; T = "C"; "D"; T = "D"; "E"; T = "E"; "F"; T = "F"; "G"; T = "G"; "H"; T = "H"; "I"; T = "I"; "J"; T = "J"; "K"; T = "K"; "L"; T = "L"; "M"; T = "M"; "N"; T = "N"; "O"; T = "O"; "P"; T = "P"; "Q"; T = "Q"; "R"; T = "R"; "S"; T = "S"; "T"; T = "T"; "U"; T = "U"; "V"; T = "V"; "W"; T = "W"; "X"; T = "X"; "Y"; T = "Y"; "Z"; "Z");
TempPathRefNo := Path + Export_File + RTF_ext;
TempNextPathRefNo := Path + Export_File + Temp_Next + RTF_ext;
@If(@IsError(T1); @PostedCommand([MailForward]) + @PostedCommand([FileExport]; "Microsoft RTF"; TempPathRefNo) + @PostedCommand([FileCloseWindow]); @Prompt([Ok]; "FILE " + @Left(T1; "@") + @Right(T1; "@") + " ALREADY CREATED!"; "Cannot overwrite file, answer may have commenced. A new file will be exported with name " + Export_File + Temp_Next + RTF_ext + " (NOTE: you can rename this file as " + Export_File + RTF_ext + " using My Computer or Windows NT Explorer, but be careful not to overwrite the answer)") + @SetField("Export_Ext"; Temp_Next) + @PostedCommand([MailForward]) + @PostedCommand([FileExport]; "Microsoft RTF"; TempNextPathRefNo) + @PostedCommand([FileCloseWindow]));
FIELD Distributed := "Yes";
@PostedCommand([FileSave]);
@All
FIELD Export_File := Export_File;
T1 := @Subset(@DbLookup("" : "No Cache"; ""; "System\\Lookup by Export File"; Export_File; 3); 1);
T := @Right(T1; "@");
Temp_Next := @If(T = ""; "A"; T = "A"; "B"; T = "B"; "C"; T = "C"; "D"; T = "D"; "E"; T = "E"; "F"; T = "F"; "G"; T = "G"; "H"; T = "H"; "I"; T = "I"; "J"; T = "J"; "K"; T = "K"; "L"; T = "L"; "M"; T = "M"; "N"; T = "N"; "O"; T = "O"; "P"; T = "P"; "Q"; T = "Q"; "R"; T = "R"; "S"; T = "S"; "T"; T = "T"; "U"; T = "U"; "V"; T = "V"; "W"; T = "W"; "X"; T = "X"; "Y"; T = "Y"; "Z"; "Z");
TempPathRefNo := Path + Export_File + RTF_ext;
TempNextPathRefNo := Path + Export_File + Temp_Next + RTF_ext;
@If(@IsError(T1); @PostedCommand([MailForward]) + @PostedCommand([FileExport]; "Microsoft RTF"; TempPathRefNo) + @PostedCommand([FileCloseWindow]); @Prompt([Ok]; "FILE " + @Left(T1; "@") + @Right(T1; "@") + " ALREADY CREATED!"; "Cannot overwrite file, answer may have commenced. A new file will be exported with name " + Export_File + Temp_Next + RTF_ext + " (NOTE: you can rename this file as " + Export_File + RTF_ext + " using My Computer or Windows NT Explorer, but be careful not to overwrite the answer)") + @SetField("Export_Ext"; Temp_Next) + @PostedCommand([MailForward]) + @PostedCommand([FileExport]; "Microsoft RTF"; TempNextPathRefNo) + @PostedCommand([FileCloseWindow]));
FIELD Distributed := "Yes";
@PostedCommand([FileSave]);
@All
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Solutions were more convuluted than expected.
ASKER
Thanks for your responses.