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:
' emite o email aos clientes… strBody = “uma reivindicação nova da despesa foi aprovada por” & Request.Form (“Approver”) &” para “& TitleCase (Request.Form (o “consultante”)) &”. " strBody = strBody & “ele estão agora pronto para que você pague sob o da identificação” & Request.Form (“ClaimID”) & “.” %> <% 'Detalhes da mensagem… objMail.From = strEmail objMail.To = strAccEmail objMail.Subject = “reivindicação como aprovada -” & Request.Form (“ClaimID”) objMail.HTMLBody = strBody objMail.Send Ajustar o objMail = nada 'Emitir a atualização do status ao consultante… strBody = “seu do formulário da despesa” & Request.Form (“ClaimID”) & “ foram aprovados por” & Request.Form (“Approver”) &” para “& TitleCase (Request.Form (o “consultante”)) &”. " strBody = strBody & “ele está agora com esclarece payment.” %> <% 'Detalhes da mensagem… objMail.From = strEmail objMail.To = strConsEmail objMail.Subject = “formulário novo da despesa adicionado -” & Request.Form (“ClaimID”) objMail.HTMLBody = strBody objMail.Send Ajustar o objMail = nada Terminar se