Copyallitems from mail memo into new doc in mail in db

Sub Querysend(Source As Notesuidocument, Continue As Variant)
	
	Dim sess As New NotesSession
	Dim ws As New NotesUIWorkspace
	Dim db As NotesDatabase, jobcorDB As NotesDatabase
	Dim doc As NotesDocument, memo As NotesDocument
	Dim customerJob As Variant, sentBy As Variant, recipients As Variant
	Dim subject As String, customerName As String, jobNumber As String, h As String, mailSort As String
	Dim itema As NotesItem
	Dim body As String
	Dim id As String
	
	' validate form
	Set db = sess.CurrentDatabase
	Set doc = Source.Document
	customerJob = doc.GetItemValue("CustomerJob")
	If (customerJob(0) = "To file please select a job here") Then
		Continue = False
		Exit Sub
	End If
	
		' parse customer job to get new job numbers
	Forall vi In customerJob
		h = Strtoken(vi, " | ", 1)
		If (jobNumber <> "") Then jobNumber = jobNumber + ";"
		jobNumber = jobNumber + Strtoken(h, ":", 2)
	End Forall
	
	'modify subject line
	Call source.FieldAppendText("Subject"," [" & jobNumber & "]")	
	doc.subject = Subject + " [" + jobNumber + "]"
	customerName = Trim(Strleft(customerJob(0), "-"))
	doc.Customer = customerName
	
	'Call doc.Save(False, False)
	
	Call source.save
	
	id= doc.UniversalID
	Set doc= Nothing
	Set doc= db.GetDocumentByUNID(id)
	
	' compose new memo in jobcor db
	Set jobcorDB = New NotesDatabase("domino1/dalinalaw","jobcor2.nsf")
	Set memo = New NotesDocument(jobcorDB)
	Set itema = doc.getfirstitem("Body")	
	Call doc.CopyAllItems(memo, True)
	Call itema.CopyItemToDocument(memo, "Body")
	memo.body = body
	memo.Company = customerName
	memo.Form = "Memo" 
	If (doc.GetItemValue("Principal")(0) = "") Then sentBy = doc.GetItemValue("From") Else sentBy = doc.GetItemValue("Principal")
	recipients = Arrayappend(doc.GetItemValue("SendTo"), doc.GetItemValue("CopyTo"))
	recipients = Arrayappend(recipients, sentBy)
	mailSort = "Internal"
	Forall c In recipients
		If (Instr(c, "dalinalaw") = 0) Then
			mailSort = "Client"
			Exit Forall
		End If
	End Forall
	memo.MailSort = mailSort
	Call memo.RemoveItem("$REF")
	Call memo.Save(True, False)
	
	'update Filed status on current doc
	doc.Filed = "Yes"
	Call doc.Save(True, False)
'End If
	
End Sub

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:

If source.Document.HasItem("ActionInProgress") Then
		source.Document.RemoveItem("ActionInProgress")
	End If
	If source.Document.CustomerJob(0) = "To file please select a job here" Then
	Else	
		'Messagebox "Modify Subject"
		CustomerName$ = Trim(Strleft(source.Document.customerjob(0),"-"))
		v= source.Document.customerjob 
		JobNumber$= ""
		Forall vi In v
			h$= Strtoken(vi, " | ", 1)
			If JobNumber$<>"" Then JobNumber$= JobNumber$ + ";" ' 
			JobNumber$= JobNumber$ + Strtoken(h$, ":", 2)
		End Forall  
		If Instr(source.Document.subject(0)," [" & JobNumber$ & "]") = 0 Then
			Call source.FieldAppendText("Subject"," [" & JobNumber$ & "]")
		End If
		If Instr(source.Document.EnterBlindCopyTo(0),"jobcorrespondence@mail.com]") = 0 Then
			Call source.FieldAppendText("EnterBlindCopyTo",",JobCorrespondence@mail.com")
		End If
		Call Source.FieldSetText("Customer",CustomerName$)
		Call source.Document.ReplaceItemValue("Filed", "Yes")
		Call source.Document.Save(True, False)
		
	End If

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25: