FlowFact - Entwicklungstools v19.881 FLOWFACT 2017 R2 - Function - ReplaceSalutationLetterTag

Platzhalter in Briefanrede ersetzen

Hinweis: siehe AD_GetName
Function ReplaceSalutationLetterTag(ByVal strSalutationLetter As String, ByVal strTitle As String, ByVal strFirstName As String, ByVal strFamilyName As String) As String


strSalutationLetter: Briefanrede
strTitle: Titel
strFirstName: Vorname
strFamilyName: Nachname
Rückgabewert: Briefanrede mit ersetzten Platzhaltern


Public Function ReplaceSalutationLetterTag(ByVal strSalutationLetter As String, ByVal strTitle As String, ByVal strFirstName As String, ByVal strFamilyName As String) As String
    Dim strResult As String

    strResult = strSalutationLetter
    strResult = Replace(strResult, "{NACHNAME}", Trim(strTitle & " " & strFamilyName))
    strResult = Replace(strResult, "{VORNAME}", Trim(strFirstName))
    strResult = Replace(strResult, "/", vbCrLf)

    ReplaceSalutationLetterTag = strResult
End Function