(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:
' Wysyłać email Konto… strBody = "Nowy wydatkowy żądanie zatwierdzać" & Request.Form ("Approver") &" dla "& TitleCase (Request.Form ("Konsultant")) &". " strBody = strBody & "Ono teraz przygotowywać dla ty pod ID " & Request.Form ("ClaimID") & "." %> <% 'Wiadomość szczegół… objMail.From = strEmail objMail.To = strAccEmail objMail.Subject = "Żądanie -" & Request.Form ("ClaimID") objMail.HTMLBody = strBody objMail.Send Ustalony objMail = Nic 'Wysyłać aktualizacja status konsultant… strBody = "Twój wydatkowy formularzowy " & Request.Form ("ClaimID") & " zatwierdzać" & Request.Form ("Approver") &" dla "& TitleCase (Request.Form ("Konsultant")) &". " strBody = strBody & "Ono być teraz z Konto dla payment." %> <% 'Wiadomość szczegół… objMail.From = strEmail objMail.To = strConsEmail objMail.Subject = "Nowy Koszt Forma Dodawać -" & Request.Form ("ClaimID") objMail.HTMLBody = strBody objMail.Send Ustalony objMail = Nic Kończyć Jeżeli