| Agent Code to Attach Files info Domino Documents. Includes Find nth Number Character in a String to Label Attachments |
Mindwatering Incorporated
Tripp W Black on 07/08/2003 at 06:04 PM |
Category: Notes Developer Tips
Agents, LotusScript
|
Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim filename As String
Dim Attachment As NotesRichTextItem
Dim object As NotesEmbeddedObject
Dim sizeInBytes As Long
Dim d As String
Dim compare As String
Dim positionOfChar As Long
Dim LowerLimit As Integer
Dim UpperLimit As Integer
Dim n As Integer
Dim x As Integer
Dim Numerics As Integer
Set db = s.CurrentDatabase
LowerLimit = 48
UpperLimit = 57
d = "c:\temp\gis\"
' source location of files to be attached to new docs
filename = Dir$(d & "*.*")
Do While filename$ <> ""
' set up new doc
Set doc = db.CreateDocument
doc.Form = "Document"
Set Attachment = doc.CreateRichTextItem("Attachment")
' attach filename
Set object = Attachment.EmbedObject(EMBED_ATTACHMENT, "", d & filename)
doc.Filename = filename
Call doc.Save(True, False)
doc.FileSize = object.FileSize
' get position 4 character index number to create the index field for view categorization
Numerics = 0
x = 0
n = 0
'x is just an integer pointer
For x = 1 To Len(filename)
n = Asc(Mid$(filename,x,1))
If n =>LowerLimit And n <= UpperLimit Then
Numerics = Numerics + 1
If Numerics = 4 Then Goto FoundNum
Else
Numerics=0
End If
Next x
' Since Numerics never made it to 4 set doc.Index to null & continue with save.
docIndex=""
ReturnedTrue:
Call doc.Save(True, False)
filename = Dir$()
Loop
Exit Sub
FoundNum:
doc.Index = Mid$(filename, x-3, 4)
Goto ReturnedTrue
End Sub
previous page
|