здравейте...

имам страхотен проблем. надявам се да можете да ми помогнете. не съм много на ти с ВБА, сега се уча един вид и не мога да разбера какъв е проблема в това което съм написал. значи оптвам се да си сортирам по име контактите в Оутлоока, обаче все нещо не излиза... реди си ги както той си иска или според мен по реда в които са въведени, но никога pravilno. пробвах да пастна от хелпа примера за сорт, но там няма декларация на променливите. а аз имам чувството, че точно това е проблема, че нещо не ги декларирам като хората. забравих да кажа, че става въпрос за Outlook 2000. та това е примера от хелпа:

Set myOlApp = CreateObject("Outlook.Application")
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myFolder = _
myNameSpace.GetDefaultFolder(olFolderContacts)
Set myItems = myFolder.Items
myItems.Sort "[CompanyName]", False
For Each myItem in myItems
MsgBox myItem.CompanyName
Next myItem

ако можете да кажете как да декларирам myItem, за да тръгне, ще съм ви много благодарен


поздрави!

Нямам Оутлоок за да пробвам, но защо не пробваш вместо:

"For Each myItem in myItems
MsgBox myItem.CompanyName
Next myItem"

Да напишеш:

For lngL=1 To myItems.Count

   MsgBox myItems.Item(lngL).CompanyName

Next 'lngL

или

вместо
Set myItems=myFodler.Items
myItems.Sort "[CompanyName]", False

това:
myFolder.Items.Sort "[CompanyName]",False

и после пак да ги изкарваш с MsgBox чрез For Each...Next или For...Next

благодаря мноого! ще пробвам да видя как ще е!

"...казват, че съдбата закриля смелите и тези, които могат да се поучат от грешките си..."

:)
Трябваше първо да пробваш, и ако става, тогава да благодариш ако има за какво :)
И аз не знам дали ще стане, просто нямам Outlook 2000 за да пробвам :)

и двата варианта ги пробвах и в двата се получават различни неща . не мога да разбера какъв му е проблема. въобще не може да подреди буквите от а до з... направо съм съкрушен ...

"...казват, че съдбата закриля смелите и тези, които могат да се поучат от грешките си..."

В отговор на:

---

въобще не може да подреди буквите от а до з...

---

А ти сигурен ли си, че в регионалните настройки си указал коректо всичко (т.е. локала (locale) да ти е Bulgarian, както и от езиците по подразбиране Cyrillic да е Default), защото то и това гледа при сортирането; ако не е от това, то значе повече с нищо не мога да помогна, съжалявам.

и за това се сетих... ама аз ги пиша нещата на латиница, така че не би трябвало да има проблеми...

"...казват, че съдбата закриля смелите и тези, които могат да се поучат от грешките си..."

Я виж това тогава: [линк]:

В отговор на:

---

SYMPTOMS
You use the Sort method example in the Microsoft Outlook Visual Basic Reference (Vbaoutl.hlp) and items do not appear to be sorted in the collection.

CAUSE
While the example in the Help file does actually sort the collection, it then refetches the collection and therefore the items do not appear to be sorted.

---

и причината (май?) е малко по-надолу: "' MyFolder.Items causes Outlook to re-fetch the collection."

Izpolzvai edin ListView i nabluskai vsi4ki imena tam.Posle izpolzvai funkciata na ListView - to za da gi sortirash! Nadiavam se da ti svurshi rabota! Uspeh

блгодаря много за помощта... успях да открия къде е проблема. тъпото е че офиcа и windowса са на немски и в този ред:

myItems.Sort "[FirstName]", False

аз пиша стринга на немски, щото заглавията на полетата са преведени. малко тъпичко от моя страна, можех да го съобразя по-рано, ама нали сега се уча, надявам се да ми е простено

поздрави и още веднъж мерси


"...казват, че съдбата закриля смелите и тези, които могат да се поучат от грешките си..."

мерси много. успях да намеря къде е проблема


поздрави!

"...казват, че съдбата закриля смелите и тези, които могат да се поучат от грешките си..."