Профиль = СозданиеИнтернетПрофиля();

            Почта = Новый ИнтернетПочта;

            Почта.Подключиться(Профиль, ПротоколИнтернетПочты.IMAP);

            мПисьма = Новый Массив;

            мПисьма = Почта.Выбрать(Ложь);

            //Массивы для удаления сообщений

            мСообщений = Новый Массив;

            мИД = Новый Массив; 

            Для Каждого Эл Из мПисьма Цикл      

                        мСообщений.Добавить(Эл);

                        мИД.Добавить(Эл.Идентификатор[0]);

            КонецЦикла;

            //Удаление почты

            Почта.УдалитьСообщения(мПисьма);//Достаточно так

            //Почта.УдалитьСообщения(мСообщений);

            //Почта.УдалитьСообщения(мИД);

            Почта.ОчиститьУдаленныеСообщения();//Для IMAP

            Почта.Отключиться();