home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 April A / Pcwk4a98.iso / Lotus / Domino46 / LOTUS017.DSK / NNTPPOST.NTF (.txt) < prev    next >
Encoding:
Lotus Notes Storage Facility  |  1997-09-15  |  58.5 KB  |  217 lines
  1. NNTP Cross-Post
  2. #1StdR46NNTPPostBox
  3. nV$DesignVersion$Version$Formula$FormulaClass$Collation$UpdatedBy$Flags$FlagsNoRefresh$TITLEIconBitmap$ACLDigest$Signature$AssistType$AssistLastRun$AssistDocCount$AssistFlags$AssistTrigger$AssistInfo$AssistQuery$AssistAction$AssistAction_Ex$AssistRunInfo$AssistVersion$ReplVersion$ReplSrcServers$ReplClassMasks$ReplFormula$ReplView$ReplPrivateFolder$ReplFields$Index$ViewFormat$Comment$Info$$ScriptName$Body$$XMB$$XMB_2$$XMB_3$Licensee
  4. CN=Lotus Notes Template Development/O=Lotus Notes
  5. $Modified
  6.     1S2S3S
  7. $TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O
  8. $Flags
  9.     0SL1S4S5S3724
  10. $TITLE
  11. CN=Ryan Jansen/O=Iris######################################
  12. NNTP Cross-Post
  13. #1StdR46NNTPPostBox
  14. CN=Ryan Jansen/O=Iris
  15. ################
  16. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notess
  17. CrossPost Articles
  18. 1SfL3
  19. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################################################
  20. 30719
  21. CN=Ryan Jansen/O=Iris#################################################
  22. CrossPost|($CrossPost)*
  23. Subject$Conflict
  24. Subject&
  25. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############
  26. (Default)DefaultCDB3714272CEA322E6D1E395DD2D5C44E4
  27. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesB3714272CEA322E6D1E395DD2D5C44E467843E4301C6054E658E2C2D65E5AC9DCN=Lotus Notes Template Development/O=Lotus Notes#########################################
  28. ##########################################################
  29. ##########################################################
  30. ##########################################################
  31. ##########################################################
  32. ##########################################################
  33. ##########################################################
  34. ##########################################################
  35. ##########################################################
  36. ##########################################################
  37. ##########################################################
  38. ##########################################################
  39. ##########################################################
  40. ##########################################################
  41. ##########################################################
  42. ##########################################################
  43. ##########################################################
  44. O=Lotus Notes
  45. O=Lotus Notes
  46. PURSAFO
  47. |.:#U
  48. O=Lotus Notes
  49. CN=Lotus Notes Template Development/O=Lotus Notes
  50. PURSAFO
  51. Fde!f^^
  52. $ACLDigest
  53. '++LotusScript Development Environment:2:5:(Options):0:74
  54. Option Public
  55. Option Explicit
  56. '++LotusScript Development Environment:2:5:(Forward):0:1
  57. Declare Sub Initialize
  58. Declare Sub CrossPostArticle(note As NotesDocument)
  59. Declare Sub CopyArticleToNewsGroup(note As NotesDocument, dbPost As NotesDatabase)
  60. '++LotusScript Development Environment:2:5:(Declarations):0:10
  61. Const NEWSGROUP_ITEM_NAME = "Newsgroups"
  62. '++LotusScript Development Environment:2:2:Initialize:1:10
  63. Sub Initialize
  64.      
  65.         Dim session As NotesSession
  66.         Dim dbThis As NotesDatabase
  67.         Dim articles As NotesDocumentCollection
  68.         Dim note As NotesDocument
  69.      Dim notetemp As NotesDocument
  70.      Dim x As Integer
  71.         
  72.     ' Initialize objects
  73.         Set session = New NotesSession
  74.         Set dbThis = session.CurrentDatabase
  75.      Set articles = dbThis.UnprocessedDocuments
  76.      
  77.         If (articles.Count = 0) Then Exit Sub
  78.      
  79.     ' Enumerate the collection of documents
  80.      Set note = articles.GetFirstDocument
  81.      
  82.      While Not(note Is Nothing)
  83.           Call CrossPostArticle(note)
  84.           Set notetemp = articles.GetNextDocument(note)          
  85.           Call note.Remove(True)
  86.           Set note = notetemp
  87.      Wend
  88. End Sub
  89. '++LotusScript Development Environment:2:2:CrossPostArticle:1:8
  90. Sub CrossPostArticle(note As NotesDocument)
  91.     Enumerates the newsgroup item and posts this document to each
  92.     newsgroup database
  93. %ENDREM
  94.            
  95.         Dim vNewsgroups As Variant
  96.         Dim x As Integer
  97.         Dim session As NotesSession
  98.         Dim sNewsGroupPath As String
  99.         Dim dbPost As NotesDatabase
  100.      Dim sSourceNewsGroup As String
  101.      
  102.         If (note Is Nothing) Then Exit Sub
  103.      
  104.         If Not(note.hasitem(NEWSGROUP_ITEM_NAME)) Then Exit Sub
  105.      
  106.         Set session = New NotesSession
  107.         
  108.         vNewsgroups = note.GetItemValue(NEWSGROUP_ITEM_NAME)
  109.      sSourceNewsGroup = note.SourceNewsGroup(0)
  110.      
  111.         For x = 0 To Ubound(vNewsgroups)
  112.                 If (vNewsgroups(x) <> "") Then
  113.                sNewsGroupPath = session.GetNewsGroupPath(vNewsgroups(x))
  114.                If (sNewsGroupPath <> "" And Lcase(sSourceNewsGroup) <> Lcase(vNewsgroups(x))) Then
  115.                                 Set dbPost = New NotesDatabase("",sNewsGroupPath)
  116.                                 If (dbPost.IsOpen) Then
  117.                                         Call CopyArticleToNewsGroup(note, dbPost)
  118.                                         dbPost.Close
  119.                                 End If
  120.                         End If
  121.                 End If
  122.         Next                
  123.      
  124. End Sub
  125. '++LotusScript Development Environment:2:2:CopyArticleToNewsGroup:1:8
  126. Sub CopyArticleToNewsGroup(note As NotesDocument, dbPost As NotesDatabase)
  127.      
  128.         Dim responses As NotesDocumentCollection
  129.         Dim child As NotesDocument
  130.      
  131.     ' We need to copy each of the response documents
  132.      
  133.         If (note Is Nothing) Then Exit Sub
  134.      
  135.         If (dbPost Is Nothing) Then Exit Sub
  136.      
  137.         Set responses = note.Responses
  138.      
  139.         Set child = responses.GetFirstDocument
  140.      
  141.         While Not(child Is Nothing)
  142.                 Call CopyArticleToNewsgroup(child, dbPost)
  143.                 Set child = responses.GetNextDocument(child)
  144.         Wend
  145.      
  146.         On Error Resume Next
  147.         Call note.CopyToDatabase(dbPost)    
  148. End Sub
  149. O=Lotus Notes
  150. O=Lotus Notes
  151. PURSAFO
  152. |.:#U
  153. O=Lotus Notes
  154. CN=Lotus Notes Template Development/O=Lotus Notes
  155. PURSAFO
  156. Fde!f^^
  157. Mm$Rn
  158. $TITLE
  159. $AssistType
  160. $AssistLastRun
  161. $AssistDocCount
  162. $AssistFlags
  163. $AssistTrigger
  164. $AssistInfo
  165. $AssistQuery
  166. $AssistAction
  167. $AssistAction_Ex
  168. O=Lotus Notes
  169. O=Lotus Notes
  170. PURSAFO
  171. |.:#U
  172. O=Lotus Notes
  173. CN=Lotus Notes Template Development/O=Lotus Notes
  174. PURSAFO
  175. Fde!f^^
  176. $TITLE
  177. $Index
  178. $Formula
  179. $FormulaClass
  180. $ViewFormat
  181. $Comment
  182.  Default
  183. O=Lotus Notes
  184. O=Lotus Notes
  185. PURSAFO
  186. |.:#U
  187. O=Lotus Notes
  188. CN=Lotus Notes Template Development/O=Lotus Notes
  189. PURSAFO
  190. Fde!f^^
  191. $TITLE
  192. $Info
  193. $$ScriptName
  194. $Body
  195. 08/22/97 02:02:14 PM Ryan Jansen/Iris updated LocalDomainServers
  196. 08/22/97 02:01:59 PM Ryan Jansen/Iris updated [-Default-]
  197. 08/22/97 12:13:06 PM Ryan Jansen/Iris updated [OtherDomainServers]
  198. 08/22/97 12:12:52 PM Ryan Jansen/Iris added [OtherDomainServers]
  199. 08/22/97 12:12:45 PM Ryan Jansen/Iris updated [LocalDomainServers]
  200. 08/22/97 12:12:34 PM Ryan Jansen/Iris updated [LocalDomainServers]
  201. 08/22/97 12:12:22 PM Ryan Jansen/Iris added [LocalDomainServers]
  202. 08/22/97 12:12:17 PM Ryan Jansen/Iris updated [-Default-]
  203. 08/22/97 12:12:06 PM Ryan Jansen/Iris added [-Default-]
  204. 08/13/97 01:04:20 PM Ryan Jansen/Iris deleted Ryan Jansen/Iris
  205. 08/13/97 01:04:18 PM Ryan Jansen/Iris updated -Default-
  206. 08/13/97 01:04:12 PM Ryan Jansen/Iris updated OtherDomainServers
  207. 07/09/97 05:45:35 PM Ryan Jansen/Iris added OtherDomainServers
  208. 07/09/97 05:45:35 PM Ryan Jansen/Iris added LocalDomainServers
  209. 07/09/97 05:45:35 PM Ryan Jansen/Iris updated Ryan Jansen/Iris
  210. 07/09/97 05:45:35 PM Ryan Jansen/Iris added Ryan Jansen/Iris
  211. -Default-
  212. LocalDomainServers
  213. OtherDomainServers
  214. [-Default-]
  215. [LocalDomainServers]
  216. [OtherDomainServers]
  217.