FlowFact - Entwicklungstools

zurück

Sub - GetItem
Anrede abfragen

  Sub GetItem(ByVal Index As Integer, ByRef strSalutationShort As Variant, ByRef strSalutationLong As Variant, ByRef strSalutationLetter As Variant)  
 


Index: Index der Anrede in der Liste
strSalutationShort: Anredekürzel; z.B. Herr, Frau, Firma, ... oder Leerstring
strSalutationLong: Anrede
strSalutationLetter: Briefanrede


Public Sub GetItem(ByVal Index As Integer, ByRef strSalutationShort As Variant, ByRef strSalutationLong As Variant, ByRef strSalutationLetter As Variant)
    Dim strLine As String

    strLine = m_oList.Item(Index)

    strSalutationShort = help_StrList_DeleteFirst(strLine, vbTab)
    strSalutationLong = help_StrList_DeleteFirst(strLine, vbTab)
    strSalutationLetter = help_StrList_DeleteFirst(strLine, vbTab)
End Sub