Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
OPTION EXPLICIT will save you
If strChildEmp = "No" then
strEmailMaster = "email@email.com"
'Build the message body for the Email
Dim strMessageBody, strMessageBody2, strSubject, strSubject2, fline, strReplyURL, strFormURL
strFormURL = "[URL unfurl="true"]http://cmc-childnet/ChildNet/Departments/MaterielsManagement/PrintReceivingIssueForm.asp?RequesterNumber="[/URL] & strRequesterNumber
strReplyURL = "email@email.com"
strSubject = "Receiving Issue Form Submitted by the Purchasing Staff" & vbCRLF
fline = "________________________________________________________________________________" & vbCRLF & vbCRLF
strMessageBody = strMessageBody & "" & vbCRLF & vbCRLF ' Put the body together
strMessageBody = strMessageBody & "" & vbCRLF
strMessageBody = strMessageBody & fline
strMessageBody = strMessageBody & "Date: " & Date & "" & vbCRLF
strMessageBody = strMessageBody & "A receiving request has been submitted by Purchasing staff." & vbCRLF
strMessageBody = strMessageBody & "Research for this receiving request identified that the delivery" & vbCRLF
strMessageBody = strMessageBody & "was made and signed by an individual not employed with Children's." & vbCRLF
strMessageBody = strMessageBody & "To review this request, please click the below hyperlink." & vbCRLF & vbCRLF
'Put the body together
strMessageBody = strMessageBody & strFormURL & vbCRLF & vbCRLF 'Reply URL gets added here
strSubject2 = "Receiving Issue Form Submitted - Second Email"
strMessageBody2 = strMessageBody2 & "A Receiving Issue Form has been submitted." & vbCRLF & vbCRLF 'Reply URL gets added here
'strMessageBody2 = strMessageBody2 & strFormURL & vbCRLF & vbCRLF 'Reply URL gets added here
Else
strEmailMaster = "email@email.com"
'Build the message body for the Email
Dim strMessageBody, strMessageBody2, strSubject, strSubject2, fline, strReplyURL, strFormURL
strFormURL = "[URL unfurl="true"]http://cmc-childnet/ChildNet/Departments/MaterielsManagement/PrintReceivingIssueForm.asp?RequesterNumber="[/URL] & strRequesterNumber
strReplyURL = "email@email.com"
strSubject = "Receiving Issue Form Submitted by Purchasing" & vbCRLF
fline = "________________________________________________________________________________" & vbCRLF & vbCRLF
strMessageBody = strMessageBody & "" & vbCRLF & vbCRLF ' Put the body together
strMessageBody = strMessageBody & "" & vbCRLF
strMessageBody = strMessageBody & fline
strMessageBody = strMessageBody & "Date: " & Date & "" & vbCRLF
strMessageBody = strMessageBody & "A Receiving Issue form has been submitted by Purchasing." & vbCRLF
strMessageBody = strMessageBody & "" & vbCRLF & vbCRLF
strMessageBody = strMessageBody & "Please click on the below hyperlink to complete the request." & vbCRLF
' Put the body together
strMessageBody = strMessageBody & strFormURL & vbCRLF & vbCRLF 'Reply URL gets added here
strSubject2 = "Receiving Issue Form Submitted - Second Email"
strMessageBody2 = strMessageBody2 & "A Receiving Issue Form has been submitted." & vbCRLF & vbCRLF 'Reply URL gets added here
'strMessageBody2 = strMessageBody2 & strFormURL & vbCRLF & vbCRLF 'Reply URL gets added here
End If