Hi there - I am not a Lotusscript expert but have the following Lotusscript agent code to send Purchase Order emails to vendors. I need to modify the script to set a field [field = PO_Approval_Vendor_Email] to flag that the email has been sent to the Vendor.
Would appreciate if someone would be so kind as to advise what needs to be added to change/set the field value from “0” to “1”. Realise this is probably dead easy but have been struggling to sort.
Thanks . . Murray
Agent code below:
%REM
Agent PO-email
Created April 20, 2010 by Murray Croft/Oakmont
Description: Comments for Agent
%END REM
Option Public
Option Declare
Sub Initialize
Dim Session As New NotesSession
Dim db As NotesDatabase
Dim item As NotesItem
Dim curdoc As NotesDocument
Dim maildoc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim DBmbox As New NotesDatabase(“Oakmont4/Oakmont”, “mail.box”)
'Dim DBmbox As New NotesDatabase(“Oakmont5/Oakmont”, “mail.box”)
'Dim DBmbox As New NotesDatabase(“OakServer1/Oakmont”, “mail.box”)
Dim PurchaseOrder As String
Dim tc(1 To 50) As String
Set db = Session.currentdatabase
Set curdoc = Session.documentcontext
Set maildoc = New NotesDocument(DBmbox)
tc(1)= + Chr(10) + Chr(13)+ Chr(10) + Chr(13)
tc(2)="Purchase Order : " + curdoc.PO_Ref(0)+curdoc.PO_RevisionStatusEmail(0)+ Chr(13)
tc(3)="PO Date : " + curdoc.PO_Date(0)+Chr(13)
tc(4)="Requisitioner : " + curdoc.PO_Requisitioner(0)+Chr(13)
tc(5)="Requisitioner Email : " + curdoc.PO_RequisitionerEmail(0)+Chr(13)
tc(6)=Chr(13)+“Vendor-Supplier Details :”+Chr(13)
tc(7)=+curdoc.PO_VendorName(0)+Chr(13)
tc(8)=+curdoc.PO_VendorCompanyName(0)+Chr(13)
tc(9)=+curdoc.PO_VendorStreet(0)+Chr(13)
tc(10)=+curdoc.PO_VendorCity(0)+Chr(13)
tc(11)=+curdoc.PO_VendorPostCode(0)+ " "+curdoc.PO_VendorCountry(0)+ Chr(13)
tc(12)="Telephone : "+curdoc.PO_VendorTelephone(0)+ Chr(13)
tc(13)="Email : "+curdoc.PO_VendorEmailAddressAll(0)+ Chr(13)
tc(14)=Chr(13)+“Shipping Details & Supply Terms :”+ Chr(13)
tc(15)=+curdoc.PO_ShipToCompanyName(0)+ Chr(13)
tc(16)=+curdoc.PO_ShipToStreet(0)+ Chr(13)
tc(17)=+curdoc.PO_ShipToCity(0)+ " " +curdoc.PO_ShipToPostCode(0)+ Chr(13)
tc(18)=+curdoc.PO_ShipToCountry(0)+ Chr(13)
tc(19)="Telephone : "+curdoc.PO_ShipToTelephone(0)+ Chr(13)
tc(20)="Shipping Method : "+curdoc.PO_ShipMethod(0)+ Chr(13)+ "Shipping Terms : "+curdoc.PO_ShipTerms(0)+ Chr(13)
tc(21)="Payment Terms : "+curdoc.PO_PaymentTerms(0)+ Chr(13)
tc(22)="Delivery Required By : "+curdoc.PO_DeliveryRequiredBy(0)+ Chr(13)
tc(23)=+Chr(13)+"Special Instructions : " +curdoc.PO_Comment(0)+ Chr(13)
tc(24)=Chr(13)+"Order Details : "+ Chr(13)
tc(25)=+curdoc.PO_Ref(0)+" - "+"Total Order Value Exclusive of VAT : " +curdoc.PO_TotalValue_txt(0)+ Chr(13)+ Chr(13)
tc(26)=+curdoc.PO_ProdQuant_txt1(0)+curdoc.PO_ProdDescription1(0)+curdoc.PO_Spacer(0)+curdoc.PO_ProdRef1(0)+curdoc.PO_Spacer(0)+curdoc.PO_ProdUnitPrice_txt1(0)+curdoc.PO_ProdTotal_txt1(0)+ Chr(13)
tc(27)=+curdoc.PO_ProdQuant_txt2(0)+curdoc.PO_ProdDescription2(0)+curdoc.PO_Spacer(0)+curdoc.PO_ProdRef2(0)+curdoc.PO_Spacer(0)+curdoc.PO_ProdUnitPrice_txt2(0)+curdoc.PO_ProdTotal_txt2(0)+ Chr(13)
tc(28)=+curdoc.PO_ProdQuant_txt3(0)+curdoc.PO_ProdDescription3(0)+curdoc.PO_Spacer(0)+curdoc.PO_ProdRef3(0)+curdoc.PO_Spacer(0)+curdoc.PO_ProdUnitPrice_txt3(0)+curdoc.PO_ProdTotal_txt3(0)+ Chr(13)
tc(29)=+curdoc.PO_ProdQuant_txt4(0)+curdoc.PO_ProdDescription4(0)+curdoc.PO_Spacer(0)+curdoc.PO_ProdRef4(0)+curdoc.PO_Spacer(0)+curdoc.PO_ProdUnitPrice_txt4(0)+curdoc.PO_ProdTotal_txt4(0)+ Chr(13)
tc(30)=+curdoc.PO_ProdQuant_txt5(0)+curdoc.PO_ProdDescription5(0)+curdoc.PO_Spacer(0)+curdoc.PO_ProdRef5(0)+curdoc.PO_Spacer(0)+curdoc.PO_ProdUnitPrice_txt5(0)+curdoc.PO_ProdTotal_txt5(0)+ Chr(13)
tc(31)=+curdoc.PO_ProdQuant_txt6(0)+curdoc.PO_ProdDescription6(0)+curdoc.PO_Spacer(0)+curdoc.PO_ProdRef6(0)+curdoc.PO_Spacer(0)+curdoc.PO_ProdUnitPrice_txt6(0)+curdoc.PO_ProdTotal_txt6(0)+ Chr(13)
tc(32)=+curdoc.PO_ProdQuant_txt7(0)+curdoc.PO_ProdDescription7(0)+curdoc.PO_Spacer(0)+curdoc.PO_ProdRef7(0)+curdoc.PO_Spacer(0)+curdoc.PO_ProdUnitPrice_txt7(0)+curdoc.PO_ProdTotal_txt7(0)+ Chr(13)
tc(33)=+curdoc.PO_ProdQuant_txt8(0)+curdoc.PO_ProdDescription8(0)+curdoc.PO_Spacer(0)+curdoc.PO_ProdRef8(0)+curdoc.PO_Spacer(0)+curdoc.PO_ProdUnitPrice_txt8(0)+curdoc.PO_ProdTotal_txt8(0)+ Chr(13)
tc(34)=+curdoc.PO_ProdQuant_txt9(0)+curdoc.PO_ProdDescription9(0)+curdoc.PO_Spacer(0)+curdoc.PO_ProdRef9(0)+curdoc.PO_Spacer(0)+curdoc.PO_ProdUnitPrice_txt9(0)+curdoc.PO_ProdTotal_txt9(0)+ Chr(13)
tc(35)=+curdoc.PO_ProdQuant_txt10(0)+curdoc.PO_ProdDescription10(0)+curdoc.PO_Spacer(0)+curdoc.PO_ProdRef10(0)+curdoc.PO_Spacer(0)+curdoc.PO_ProdUnitPrice_txt10(0)+curdoc.PO_ProdTotal_txt10(0)+ Chr(13)
tc(36)=Chr(13)+“Charge & Bill To :”+ Chr(13)
tc(37)=+curdoc.PO_CompanyName(0)+ Chr(13)
tc(38)=+curdoc.PO_CompanyStreet(0)+ Chr(13)
tc(39)=+curdoc.PO_CompanyCity(0)+ " " +curdoc.PO_CompanyPostCode(0)+Chr(13)
tc(40)=+curdoc.PO_CompanyCountry(0)+Chr(13)
Set rtitem = New NotesRichTextItem (maildoc, “Body”)
maildoc.Form = “Memo”
maildoc.SendTo = curdoc.PO_VendorEmailAddress
maildoc.SendTo = curdoc.PO_VendorEmailAddress2
maildoc.CopyTo = curdoc.PO_RequisitionerEmail
maildoc.SentFrom = curdoc.PO_Request_SentFrom
maildoc.Subject = CStr(tc(2))
PurchaseOrder$ = CStr(tc(3))+CStr(tc(4))+CStr(tc(6))+CStr(tc(8))+CStr(tc(9))+CStr(tc(10))+CStr(tc(11))+CStr(tc(12))+CStr(tc(13))+CStr(tc(36))+CStr(tc(37))+CStr(tc(38))+CStr(tc(39))+CStr(tc(40))+CStr(tc(41))+CStr(tc(14))+CStr(tc(15))+CStr(tc(16))+CStr(tc(17))+CStr(tc(18))+CStr(tc(19))+CStr(tc(20))+CStr(tc(21))+CStr(tc(22))+CStr(tc(23))+CStr(tc(24))+CStr(tc(25))+CStr(tc(26))+CStr(tc(27))+CStr(tc(28))+CStr(tc(29))+CStr(tc(30))+CStr(tc(31))+CStr(tc(32))+CStr(tc(33))+CStr(tc(34))+CStr(tc(35))
Call rtitem.appendtext(PurchaseOrder$)
maildoc.Send(False)
End Sub