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 |