Совсем оборзели гейтсописцы!
В VB Script (для Outlook и ваще) нету Collection.
Приходится пользоваться массивами, блин.
С помощью массива я сэмулировал коллекцию, кому надо, наслаждайтесь:
Public Function MyCollection_Create()
Dim a(200)
a(0) = 0
MyCollection_Create = a
End Function
Public Sub MyCollection_Add(Collection, Value, Key)
For i = 1 To Collection(0)
If Collection(i * 2 - 1) = Key Then
Collection(i * 2) = Value
Exit Sub
End If
Next
Collection(0) = Collection(0) + 1
Collection(Collection(0) * 2 - 1) = Key
Collection(Collection(0) * 2) = Value
End Sub
Public Function MyCollection_Get(Collection, Key)
Set MyCollection_Get = Nothing
For i = 1 To Collection(0)
If Collection(i * 2 - 1) = Key Then
MyCollection_Get = Collection(i * 2)
Exit Function
End If
Next
End Function
А еще можно вместо Collection использовать Scripting Dictionary:
Dim d 'Create a variable
Set d = CreateObject(Scripting.Dictionary)
d.Add "a", "Athens" 'Add some keys and items
d.Add "b", "Belgrade"
d.Add "c", "Cairo"