|
G
|
gdmacdo 8/28/2012 |
|
You could add to your dim statement bstock, bsize, bqty |
|
|
W
|
Wallaroo author 9/3/2012 |
|
Greg You could add to your dim statement bstock, bsize, bqty if dict("Beanie_Stock_Code") > 0 then bstock = "Stock Code: " & dict("Beanie_Stock_Code")& vbcrlf bsize = "Size: " & dict("Beanie_Size")& vbcrlf bqty = "Qty: " & dict("Beanie_Qty")& vbcrlf else bstock = "" bsize = "" bqty = "" end if then in 3 of your msg statements add: msg = msg & bstock msg = msg & bsize msg = msg & bqty |
|
|
G
|
gdmacdo 9/5/2012 |
|
Try this (I added * comments at the top for the 2 changes) Greg Many Thanks for your help but I can't seem to get the code below to work. The Beanie item bstock, bsie & bqty simply don't appear on the email regardless of quantity. Here is the code that I have used and as I've said, I'm relatively new to this so there is a distinct possibility that I have got it wrong! As there are many items on this email, I want to use the same concept for all as I have done with the beanie, i.e. only appear on the email if quantity is greater than 0. Here is the code that I have used:- Dim dict Set dict = values '**** Send email with new data **** ' do not forget to setup email parameters like From, SMTP server etc ' on 'Security->User login settings' dialog Dim dkeys, tmpDict, msg, n msg ="QGS Uniform Order Request" & vbcrlf msg = msg & "" & vbcrlf msg = msg & "Order ID: " & dict("OrderID")& vbcrlf msg = msg & "First Name: " & dict("Firstname")& " " & dict("Lastname")& vbcrlf msg = msg & "Staff No: " & dict("StaffNo")& vbcrlf msg = msg & "Email: " & dict("Email")& vbcrlf msg = msg & "Port: " & dict("Port")& vbcrlf msg = msg & "Department: " & dict("Department")& vbcrlf msg = msg & "" & vbcrlf msg = msg & bstock msg = msg & bsize msg = msg & bqty msg = msg & "" & vbcrlf msg = msg & "Long Sleeve Female Shirts" & vbcrlf msg = msg & "Stock Code: " & dict("LS_F_Stock_Code")& vbcrlf msg = msg & "Custom ID: " & dict("LS_F_Custom")& vbcrlf msg = msg & "Size: " & dict("LS_F_Shirt_Size")& vbcrlf msg = msg & "Qty: " & dict("LS_F_Shirt_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Short Sleeve Female Shirts" & vbcrlf msg = msg & "Stock Code: " & dict("SS_F_Stock_Code")& vbcrlf msg = msg & "Custom ID: " & dict("SS_F_Custom")& vbcrlf msg = msg & "Size: " & dict("SS_F_Shirt_Size")& vbcrlf msg = msg & "Qty: " & dict("SS_F_Shirt_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Long Sleeve Shirts" & vbcrlf msg = msg & "Stock Code: " & dict("LS_Stock_Code")& vbcrlf msg = msg & "Custom ID: " & dict("LS_Custom")& vbcrlf msg = msg & "Size: " & dict("LS_Shirt_Size")& vbcrlf msg = msg & "Qty: " & dict("LS_Shirt_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Short Sleeve Shirts" & vbcrlf msg = msg & "Stock Code: " & dict("SS_Stock_Code")& vbcrlf msg = msg & "Custom ID: " & dict("SS_Custom")& vbcrlf msg = msg & "Size: " & dict("SS_Shirt_Size")& vbcrlf msg = msg & "Qty: " & dict("SS_Shirt_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Ladies Cargo Pants" & vbcrlf msg = msg & "Stock Code: " & dict("LCP_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("LCP_Size")& vbcrlf msg = msg & "Qty: " & dict("LCP_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Cargo Pants" & vbcrlf msg = msg & "Stock Code: " & dict("CP_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("CP_Size")& vbcrlf msg = msg & "Qty: " & dict("CP_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Cargo Pants - Mid Weight" & vbcrlf msg = msg & "Stock Code: " & dict("CPM_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("CPM_Size")& vbcrlf msg = msg & "Qty: " & dict("CPM_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Ladies Cargo Shorts" & vbcrlf msg = msg & "Stock Code: " & dict("LCS_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("LCS_Size")& vbcrlf msg = msg & "Qty: " & dict("LCS_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Cargo Shorts" & vbcrlf msg = msg & "Stock Code: " & dict("CS_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("CS_Size")& vbcrlf msg = msg & "Qty: " & dict("CS_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Cargo Shorts - Mid Weight" & vbcrlf msg = msg & "Stock Code: " & dict("CSM_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("CSM_Size")& vbcrlf msg = msg & "Qty: " & dict("CSM_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Wet Weather Jacket" & vbcrlf msg = msg & "Stock Code: " & dict("WJ_Stock_Code")& vbcrlf msg = msg & "Custom ID: " & dict("WJ_Custom")& vbcrlf msg = msg & "Size: " & dict("WJ_Size")& vbcrlf msg = msg & "Qty: " & dict("WJ_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Wet Weather Trousers" & vbcrlf msg = msg & "Stock Code: " & dict("TT_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("TT_Size")& vbcrlf msg = msg & "Qty: " & dict("TT_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Cold Weather Jacket" & vbcrlf msg = msg & "Stock Code: " & dict("CJ_Stock_Code")& vbcrlf msg = msg & "Custom ID: " & dict("CJ_Custom")& vbcrlf msg = msg & "Size: " & dict("CJ_Size")& vbcrlf msg = msg & "Qty: " & dict("CJ_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Flying Jacket" & vbcrlf msg = msg & "Stock Code: " & dict("FJ_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("FJ_Size")& vbcrlf msg = msg & "Qty: " & dict("FJ_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Army Socks" & vbcrlf msg = msg & "Stock Code: " & dict("Sox_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("Sox_Size")& vbcrlf msg = msg & "Qty: " & dict("Sox_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Belt" & vbcrlf msg = msg & "Stock Code: " & dict("Belt_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("Belt_Size")& vbcrlf msg = msg & "Qty: " & dict("Belt_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Boots" & vbcrlf msg = msg & "Boot Type Male/Female: " & dict("Boot_Type")& vbcrlf msg = msg & "Stock Code: " & dict("B1_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("B1_Size")& vbcrlf msg = msg & "Qty: " & dict("B1_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Stock Code: " & dict("B2_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("B2_Size")& vbcrlf msg = msg & "Qty: " & dict("B2_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Stock Code: " & dict("B3_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("B3_Size")& vbcrlf msg = msg & "Qty: " & dict("B3_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Stock Code: " & dict("B4_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("B4_Size")& vbcrlf msg = msg & "Qty: " & dict("B4_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Stock Code: " & dict("B5_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("B5_Size")& vbcrlf msg = msg & "Qty: " & dict("B5_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Stock Code: " & dict("B6_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("B6_Size")& vbcrlf msg = msg & "Qty: " & dict("B6_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Gum Boots" & vbcrlf msg = msg & "Stock Code: " & dict("GumBoots_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("GumBoots_Size")& vbcrlf msg = msg & "Qty: " & dict("GumBoots_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Shipping Details" & vbcrlf msg = msg & "Please ship to: " & vbcrlf msg = msg & dict("BillingAddress1")& vbcrlf msg = msg & dict("BillingAddress2")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Billing Details" & vbcrlf msg = msg & "If Boots are included in this order: " & dict("Boot_Costs")& vbcrlf msg = msg & "Cost Centre: " & dict("Department_Code")& vbcrlf msg = msg & "Account Code: " & dict("Account_Code")& vbcrlf msg = msg & "Approved/Reviewed By: " & dict("Approved_By")& vbcrlf msg = msg & "Approved/Reviewed Date: " &format_shortdate(db2time(dict("Approved_Date")))& vbcrlf msg = msg & "Approver Comments: " & dict("Approver_Comments")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Should you have any queries regarding this email, please direct them to QGS Admin at qgsadmin@qgs.net.au" & vbcrlf msg = msg & "Attention Supplier - Order Receipt acknowledgements should be sent to uniforms@qgs.net.au" & vbcrlf if dict("Beanie_Qty")>0 then bstock = "Beanie Stock Code: " & dict("Beanie_Stock_Code")& vbcrlf bsize = "Beanie Size: " & dict("Beanie_Size")& vbcrlf bqty = "Beanie Qty: " & dict("Beanie_Qty")& vbcrlf else bstock = "" bsize = "" bqty = "" end if If values("Order_Status")= "Approved" then set tmpDict = CreateObject("Scripting.Dictionary") tmpDict("to")="wallaroo@westnet.com.au" tmpDict("cc")=dict("Email") tmpDict("cc")= tmpDict("cc") & ";" & dict("ManagerEmail") tmpDict("cc")= tmpDict("cc") & ";" & "admin@qgs.net.au" tmpDict("subject")="QGS Uniform Order for " & dict("Firstname")& " " & dict("Lastname") & " - Approved" tmpDict("body")=msg set ret=runner_mail(tmpDict) message="An email has been sent to the Employee & the Uniform Supplier" ElseIf values("Order_Status")= "Declined" then set tmpDict = CreateObject("Scripting.Dictionary") tmpDict("to")=dict("Email") tmpDict("cc")=dict("ManagerEmail") tmpDict("cc")= tmpDict("cc") & ";" & "admin@qgs.net.au" tmpDict("subject")="QGS Uniform Order for " & dict("Firstname")& " " & dict("Lastname") & " - Declined" tmpDict("body")=msg set ret=runner_mail(tmpDict) message="An email has been sent to the Employee" if not ret("mailed") then response.write ret("message") end if end if ** Again, all help is greatly appreciated! |
|
|
G
|
gdmacdo 9/5/2012 |
|
Try this (I added * comments at the top for the 2 changes) Greg Many Thanks for your help but I can't seem to get the code below to work. The Beanie item bstock, bsie & bqty simply don't appear on the email regardless of quantity. Here is the code that I have used and as I've said, I'm relatively new to this so there is a distinct possibility that I have got it wrong! As there are many items on this email, I want to use the same concept for all as I have done with the beanie, i.e. only appear on the email if quantity is greater than 0. Here is the code that I have used:- Dim dict Set dict = values '**** Send email with new data **** ' do not forget to setup email parameters like From, SMTP server etc ' on 'Security->User login settings' dialog Dim dkeys, tmpDict, msg, n msg ="QGS Uniform Order Request" & vbcrlf msg = msg & "" & vbcrlf msg = msg & "Order ID: " & dict("OrderID")& vbcrlf msg = msg & "First Name: " & dict("Firstname")& " " & dict("Lastname")& vbcrlf msg = msg & "Staff No: " & dict("StaffNo")& vbcrlf msg = msg & "Email: " & dict("Email")& vbcrlf msg = msg & "Port: " & dict("Port")& vbcrlf msg = msg & "Department: " & dict("Department")& vbcrlf msg = msg & "" & vbcrlf msg = msg & bstock msg = msg & bsize msg = msg & bqty msg = msg & "" & vbcrlf msg = msg & "Long Sleeve Female Shirts" & vbcrlf msg = msg & "Stock Code: " & dict("LS_F_Stock_Code")& vbcrlf msg = msg & "Custom ID: " & dict("LS_F_Custom")& vbcrlf msg = msg & "Size: " & dict("LS_F_Shirt_Size")& vbcrlf msg = msg & "Qty: " & dict("LS_F_Shirt_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Short Sleeve Female Shirts" & vbcrlf msg = msg & "Stock Code: " & dict("SS_F_Stock_Code")& vbcrlf msg = msg & "Custom ID: " & dict("SS_F_Custom")& vbcrlf msg = msg & "Size: " & dict("SS_F_Shirt_Size")& vbcrlf msg = msg & "Qty: " & dict("SS_F_Shirt_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Long Sleeve Shirts" & vbcrlf msg = msg & "Stock Code: " & dict("LS_Stock_Code")& vbcrlf msg = msg & "Custom ID: " & dict("LS_Custom")& vbcrlf msg = msg & "Size: " & dict("LS_Shirt_Size")& vbcrlf msg = msg & "Qty: " & dict("LS_Shirt_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Short Sleeve Shirts" & vbcrlf msg = msg & "Stock Code: " & dict("SS_Stock_Code")& vbcrlf msg = msg & "Custom ID: " & dict("SS_Custom")& vbcrlf msg = msg & "Size: " & dict("SS_Shirt_Size")& vbcrlf msg = msg & "Qty: " & dict("SS_Shirt_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Ladies Cargo Pants" & vbcrlf msg = msg & "Stock Code: " & dict("LCP_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("LCP_Size")& vbcrlf msg = msg & "Qty: " & dict("LCP_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Cargo Pants" & vbcrlf msg = msg & "Stock Code: " & dict("CP_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("CP_Size")& vbcrlf msg = msg & "Qty: " & dict("CP_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Cargo Pants - Mid Weight" & vbcrlf msg = msg & "Stock Code: " & dict("CPM_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("CPM_Size")& vbcrlf msg = msg & "Qty: " & dict("CPM_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Ladies Cargo Shorts" & vbcrlf msg = msg & "Stock Code: " & dict("LCS_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("LCS_Size")& vbcrlf msg = msg & "Qty: " & dict("LCS_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Cargo Shorts" & vbcrlf msg = msg & "Stock Code: " & dict("CS_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("CS_Size")& vbcrlf msg = msg & "Qty: " & dict("CS_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Cargo Shorts - Mid Weight" & vbcrlf msg = msg & "Stock Code: " & dict("CSM_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("CSM_Size")& vbcrlf msg = msg & "Qty: " & dict("CSM_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Wet Weather Jacket" & vbcrlf msg = msg & "Stock Code: " & dict("WJ_Stock_Code")& vbcrlf msg = msg & "Custom ID: " & dict("WJ_Custom")& vbcrlf msg = msg & "Size: " & dict("WJ_Size")& vbcrlf msg = msg & "Qty: " & dict("WJ_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Wet Weather Trousers" & vbcrlf msg = msg & "Stock Code: " & dict("TT_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("TT_Size")& vbcrlf msg = msg & "Qty: " & dict("TT_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Cold Weather Jacket" & vbcrlf msg = msg & "Stock Code: " & dict("CJ_Stock_Code")& vbcrlf msg = msg & "Custom ID: " & dict("CJ_Custom")& vbcrlf msg = msg & "Size: " & dict("CJ_Size")& vbcrlf msg = msg & "Qty: " & dict("CJ_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Flying Jacket" & vbcrlf msg = msg & "Stock Code: " & dict("FJ_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("FJ_Size")& vbcrlf msg = msg & "Qty: " & dict("FJ_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Army Socks" & vbcrlf msg = msg & "Stock Code: " & dict("Sox_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("Sox_Size")& vbcrlf msg = msg & "Qty: " & dict("Sox_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Belt" & vbcrlf msg = msg & "Stock Code: " & dict("Belt_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("Belt_Size")& vbcrlf msg = msg & "Qty: " & dict("Belt_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Boots" & vbcrlf msg = msg & "Boot Type Male/Female: " & dict("Boot_Type")& vbcrlf msg = msg & "Stock Code: " & dict("B1_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("B1_Size")& vbcrlf msg = msg & "Qty: " & dict("B1_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Stock Code: " & dict("B2_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("B2_Size")& vbcrlf msg = msg & "Qty: " & dict("B2_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Stock Code: " & dict("B3_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("B3_Size")& vbcrlf msg = msg & "Qty: " & dict("B3_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Stock Code: " & dict("B4_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("B4_Size")& vbcrlf msg = msg & "Qty: " & dict("B4_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Stock Code: " & dict("B5_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("B5_Size")& vbcrlf msg = msg & "Qty: " & dict("B5_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Stock Code: " & dict("B6_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("B6_Size")& vbcrlf msg = msg & "Qty: " & dict("B6_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Gum Boots" & vbcrlf msg = msg & "Stock Code: " & dict("GumBoots_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("GumBoots_Size")& vbcrlf msg = msg & "Qty: " & dict("GumBoots_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Shipping Details" & vbcrlf msg = msg & "Please ship to: " & vbcrlf msg = msg & dict("BillingAddress1")& vbcrlf msg = msg & dict("BillingAddress2")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Billing Details" & vbcrlf msg = msg & "If Boots are included in this order: " & dict("Boot_Costs")& vbcrlf msg = msg & "Cost Centre: " & dict("Department_Code")& vbcrlf msg = msg & "Account Code: " & dict("Account_Code")& vbcrlf msg = msg & "Approved/Reviewed By: " & dict("Approved_By")& vbcrlf msg = msg & "Approved/Reviewed Date: " &format_shortdate(db2time(dict("Approved_Date")))& vbcrlf msg = msg & "Approver Comments: " & dict("Approver_Comments")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Should you have any queries regarding this email, please direct them to QGS Admin at qgsadmin@qgs.net.au" & vbcrlf msg = msg & "Attention Supplier - Order Receipt acknowledgements should be sent to uniforms@qgs.net.au" & vbcrlf if dict("Beanie_Qty")>0 then bstock = "Beanie Stock Code: " & dict("Beanie_Stock_Code")& vbcrlf bsize = "Beanie Size: " & dict("Beanie_Size")& vbcrlf bqty = "Beanie Qty: " & dict("Beanie_Qty")& vbcrlf else bstock = "" bsize = "" bqty = "" end if If values("Order_Status")= "Approved" then set tmpDict = CreateObject("Scripting.Dictionary") tmpDict("to")="wallaroo@westnet.com.au" tmpDict("cc")=dict("Email") tmpDict("cc")= tmpDict("cc") & ";" & dict("ManagerEmail") tmpDict("cc")= tmpDict("cc") & ";" & "admin@qgs.net.au" tmpDict("subject")="QGS Uniform Order for " & dict("Firstname")& " " & dict("Lastname") & " - Approved" tmpDict("body")=msg set ret=runner_mail(tmpDict) message="An email has been sent to the Employee & the Uniform Supplier" ElseIf values("Order_Status")= "Declined" then set tmpDict = CreateObject("Scripting.Dictionary") tmpDict("to")=dict("Email") tmpDict("cc")=dict("ManagerEmail") tmpDict("cc")= tmpDict("cc") & ";" & "admin@qgs.net.au" tmpDict("subject")="QGS Uniform Order for " & dict("Firstname")& " " & dict("Lastname") & " - Declined" tmpDict("body")=msg set ret=runner_mail(tmpDict) message="An email has been sent to the Employee" if not ret("mailed") then response.write ret("message") end if end if ** Again, all help is greatly appreciated! |
|
|
G
|
gdmacdo 9/5/2012 |
|
Try this (I added * comments at the top for the 2 changes) Greg Many Thanks for your help but I can't seem to get the code below to work. The Beanie item bstock, bsie & bqty simply don't appear on the email regardless of quantity. Here is the code that I have used and as I've said, I'm relatively new to this so there is a distinct possibility that I have got it wrong! As there are many items on this email, I want to use the same concept for all as I have done with the beanie, i.e. only appear on the email if quantity is greater than 0. Here is the code that I have used:- Dim dict Set dict = values '**** Send email with new data **** ' do not forget to setup email parameters like From, SMTP server etc ' on 'Security->User login settings' dialog Dim dkeys, tmpDict, msg, n msg ="QGS Uniform Order Request" & vbcrlf msg = msg & "" & vbcrlf msg = msg & "Order ID: " & dict("OrderID")& vbcrlf msg = msg & "First Name: " & dict("Firstname")& " " & dict("Lastname")& vbcrlf msg = msg & "Staff No: " & dict("StaffNo")& vbcrlf msg = msg & "Email: " & dict("Email")& vbcrlf msg = msg & "Port: " & dict("Port")& vbcrlf msg = msg & "Department: " & dict("Department")& vbcrlf msg = msg & "" & vbcrlf msg = msg & bstock msg = msg & bsize msg = msg & bqty msg = msg & "" & vbcrlf msg = msg & "Long Sleeve Female Shirts" & vbcrlf msg = msg & "Stock Code: " & dict("LS_F_Stock_Code")& vbcrlf msg = msg & "Custom ID: " & dict("LS_F_Custom")& vbcrlf msg = msg & "Size: " & dict("LS_F_Shirt_Size")& vbcrlf msg = msg & "Qty: " & dict("LS_F_Shirt_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Short Sleeve Female Shirts" & vbcrlf msg = msg & "Stock Code: " & dict("SS_F_Stock_Code")& vbcrlf msg = msg & "Custom ID: " & dict("SS_F_Custom")& vbcrlf msg = msg & "Size: " & dict("SS_F_Shirt_Size")& vbcrlf msg = msg & "Qty: " & dict("SS_F_Shirt_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Long Sleeve Shirts" & vbcrlf msg = msg & "Stock Code: " & dict("LS_Stock_Code")& vbcrlf msg = msg & "Custom ID: " & dict("LS_Custom")& vbcrlf msg = msg & "Size: " & dict("LS_Shirt_Size")& vbcrlf msg = msg & "Qty: " & dict("LS_Shirt_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Short Sleeve Shirts" & vbcrlf msg = msg & "Stock Code: " & dict("SS_Stock_Code")& vbcrlf msg = msg & "Custom ID: " & dict("SS_Custom")& vbcrlf msg = msg & "Size: " & dict("SS_Shirt_Size")& vbcrlf msg = msg & "Qty: " & dict("SS_Shirt_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Ladies Cargo Pants" & vbcrlf msg = msg & "Stock Code: " & dict("LCP_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("LCP_Size")& vbcrlf msg = msg & "Qty: " & dict("LCP_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Cargo Pants" & vbcrlf msg = msg & "Stock Code: " & dict("CP_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("CP_Size")& vbcrlf msg = msg & "Qty: " & dict("CP_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Cargo Pants - Mid Weight" & vbcrlf msg = msg & "Stock Code: " & dict("CPM_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("CPM_Size")& vbcrlf msg = msg & "Qty: " & dict("CPM_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Ladies Cargo Shorts" & vbcrlf msg = msg & "Stock Code: " & dict("LCS_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("LCS_Size")& vbcrlf msg = msg & "Qty: " & dict("LCS_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Cargo Shorts" & vbcrlf msg = msg & "Stock Code: " & dict("CS_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("CS_Size")& vbcrlf msg = msg & "Qty: " & dict("CS_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Cargo Shorts - Mid Weight" & vbcrlf msg = msg & "Stock Code: " & dict("CSM_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("CSM_Size")& vbcrlf msg = msg & "Qty: " & dict("CSM_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Wet Weather Jacket" & vbcrlf msg = msg & "Stock Code: " & dict("WJ_Stock_Code")& vbcrlf msg = msg & "Custom ID: " & dict("WJ_Custom")& vbcrlf msg = msg & "Size: " & dict("WJ_Size")& vbcrlf msg = msg & "Qty: " & dict("WJ_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Wet Weather Trousers" & vbcrlf msg = msg & "Stock Code: " & dict("TT_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("TT_Size")& vbcrlf msg = msg & "Qty: " & dict("TT_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Cold Weather Jacket" & vbcrlf msg = msg & "Stock Code: " & dict("CJ_Stock_Code")& vbcrlf msg = msg & "Custom ID: " & dict("CJ_Custom")& vbcrlf msg = msg & "Size: " & dict("CJ_Size")& vbcrlf msg = msg & "Qty: " & dict("CJ_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Flying Jacket" & vbcrlf msg = msg & "Stock Code: " & dict("FJ_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("FJ_Size")& vbcrlf msg = msg & "Qty: " & dict("FJ_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Army Socks" & vbcrlf msg = msg & "Stock Code: " & dict("Sox_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("Sox_Size")& vbcrlf msg = msg & "Qty: " & dict("Sox_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Belt" & vbcrlf msg = msg & "Stock Code: " & dict("Belt_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("Belt_Size")& vbcrlf msg = msg & "Qty: " & dict("Belt_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Boots" & vbcrlf msg = msg & "Boot Type Male/Female: " & dict("Boot_Type")& vbcrlf msg = msg & "Stock Code: " & dict("B1_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("B1_Size")& vbcrlf msg = msg & "Qty: " & dict("B1_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Stock Code: " & dict("B2_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("B2_Size")& vbcrlf msg = msg & "Qty: " & dict("B2_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Stock Code: " & dict("B3_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("B3_Size")& vbcrlf msg = msg & "Qty: " & dict("B3_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Stock Code: " & dict("B4_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("B4_Size")& vbcrlf msg = msg & "Qty: " & dict("B4_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Stock Code: " & dict("B5_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("B5_Size")& vbcrlf msg = msg & "Qty: " & dict("B5_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Stock Code: " & dict("B6_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("B6_Size")& vbcrlf msg = msg & "Qty: " & dict("B6_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Gum Boots" & vbcrlf msg = msg & "Stock Code: " & dict("GumBoots_Stock_Code")& vbcrlf msg = msg & "Size: " & dict("GumBoots_Size")& vbcrlf msg = msg & "Qty: " & dict("GumBoots_Qty")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Shipping Details" & vbcrlf msg = msg & "Please ship to: " & vbcrlf msg = msg & dict("BillingAddress1")& vbcrlf msg = msg & dict("BillingAddress2")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Billing Details" & vbcrlf msg = msg & "If Boots are included in this order: " & dict("Boot_Costs")& vbcrlf msg = msg & "Cost Centre: " & dict("Department_Code")& vbcrlf msg = msg & "Account Code: " & dict("Account_Code")& vbcrlf msg = msg & "Approved/Reviewed By: " & dict("Approved_By")& vbcrlf msg = msg & "Approved/Reviewed Date: " &format_shortdate(db2time(dict("Approved_Date")))& vbcrlf msg = msg & "Approver Comments: " & dict("Approver_Comments")& vbcrlf msg = msg & "" & vbcrlf msg = msg & "Should you have any queries regarding this email, please direct them to QGS Admin at qgsadmin@qgs.net.au" & vbcrlf msg = msg & "Attention Supplier - Order Receipt acknowledgements should be sent to uniforms@qgs.net.au" & vbcrlf if dict("Beanie_Qty")>0 then bstock = "Beanie Stock Code: " & dict("Beanie_Stock_Code")& vbcrlf bsize = "Beanie Size: " & dict("Beanie_Size")& vbcrlf bqty = "Beanie Qty: " & dict("Beanie_Qty")& vbcrlf else bstock = "" bsize = "" bqty = "" end if If values("Order_Status")= "Approved" then set tmpDict = CreateObject("Scripting.Dictionary") tmpDict("to")="wallaroo@westnet.com.au" tmpDict("cc")=dict("Email") tmpDict("cc")= tmpDict("cc") & ";" & dict("ManagerEmail") tmpDict("cc")= tmpDict("cc") & ";" & "admin@qgs.net.au" tmpDict("subject")="QGS Uniform Order for " & dict("Firstname")& " " & dict("Lastname") & " - Approved" tmpDict("body")=msg set ret=runner_mail(tmpDict) message="An email has been sent to the Employee & the Uniform Supplier" ElseIf values("Order_Status")= "Declined" then set tmpDict = CreateObject("Scripting.Dictionary") tmpDict("to")=dict("Email") tmpDict("cc")=dict("ManagerEmail") tmpDict("cc")= tmpDict("cc") & ";" & "admin@qgs.net.au" tmpDict("subject")="QGS Uniform Order for " & dict("Firstname")& " " & dict("Lastname") & " - Declined" tmpDict("body")=msg set ret=runner_mail(tmpDict) message="An email has been sent to the Employee" if not ret("mailed") then response.write ret("message") end if end if ** Again, all help is greatly appreciated! |
|