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 |