Send Email Function - Githubissues

Used for Web Time off request and Approval
Takes the email address to send as parameter
Default address exist (hr.@miasfashion.com) for FROM and TO

Subject (Sick day, vacation, PTO Approval Request)

Public Function f_MakeEmailContent(asEmplCode As String) As String

'Email Content는 hrPTORequest 와 sp_HR_WebRequestStatusChange, MHRS 세군데 있으니 같이 고치기 바람. 

Dim lsMessage As String = String.Empty

lsMessage += "<html><head><style> p {margin-top:0px;margin-bottom:0px;} </style></head>"
lsMessage += "<br/><br/>"
If cEmplType = "E" Then
    If rbSickDay.Checked = True Then
        lsMessage += "You have a request for sick day "
    Else
        lsMessage += "You have a request for Vacation "

    End If
Else
    lsMessage += "You have a request for PTO "
End If
lsMessage += "in <a href='https://hr.miasfashion.com'>eMHRS</a>. The request is awaiting your approval. Thank you."""
lsMessage += "<br/><br/><br/><br/><br/><br/><span style='font-size: 8pt;color:#dddddd;'>Employee Code : " + asEmplCode + "</span>"
lsMessage += "</html>"

Return lsMessage

End Function

miasfashion / MiasHR

Send Email Function #129