Хочешь недоделанную ВК Curl1с?
Ну... она у меня с егаис работает год считай, подтекает, на доделать времени нет ;(
Curl все умеет...
Но парсить список сообщений вручную придется.

Ну, она не в том смысле не доделанная, что не работает.
Получает/отсылает все. Даже через тор-прокси работает...
Я застрял на оформлении апи 1с`овской части ;(
У 8ки объектов навалом, а у curl все через хидеры делается.
Ну вот сделал объекты Источник, Получатель, УстановитьПараметр (установка хидера) и Выполнить... и застрял ;(
Для отправки/получения чего угодно этого достаточно, а вот стоит ли обертывать ftp/http и т.п. в отдельные процедуры или проще обернуть в класс я вот как то засомневался, вот и считаю ее поэтому недоделанной.
Ну и с сокетами (ssh клиент внутри 1с) вообще непонятно как быть, не дошел до решения этого вопроса.

P.S. делал для ускорения обмена всяких интеграций под Linux. ssl в wine вообще не работает, а эта штука работает и работает раз в 10 быстрее консольного curl на большом количестве файлов. Правда 1.3мб, но в нее openssl и zlib вшиты...

Небольшой КОП:

//#класс ПочтаIMAP = КОП_ПочтаIMAP.ert
//#{
//#}

//Автор: Трапезников Дмитрий, trad
//2016 год

//Класс реализует минимальный интерфейс для получения сообщений с IMAP сервера
//Для взаимодействия с сервером используется утилита curl (https://curl.haxx.se/)
//Для десериализации MIME сообщений используется  CDO.Message (https://msdn.microsoft.com/en-us/library/ms526453(v=exchg.10).aspx)

Перем Сервер Экспорт;
Перем Пользователь Экспорт;
Перем Пароль Экспорт;
Перем Папка Экспорт;

Перем ПутьКурл Экспорт;
Перем мВывод;


//*** ПолучитьВывод
Функция ПолучитьВывод()
	Перем Данные;

	Если ФС.СуществуетФайл(мВывод)=1 Тогда
		Данные="";
		Текст = СоздатьОбъект("Текст");
		Текст.Открыть(мВывод);
		Для Тек = 1 По Текст.КоличествоСтрок() Цикл
			Стр = Текст.ПолучитьСтроку(Тек);
			Данные = Данные + Стр + РазделительСтрок;
		КонецЦикла;
		ФС.УдалитьФайл(мВывод);
	КонецЕсли;

	Возврат Данные;
КонецФункции


//*** ВыполнитьЗапрос
Функция ВыполнитьЗапрос(Запрос="", ИД="") //LIST by default
	Если ФС.СуществуетФайл(мВывод)=1 Тогда
		ФС.УдалитьФайл(мВывод);
	КонецЕсли;

	УРЛ = "imap://"+СокрЛП(Сервер)+"/"+СокрЛП(Папка);
	Если ПустаяСтрока(ИД)=0 Тогда
		УРЛ = УРЛ + ";UID="+ИД;
	КонецЕсли;

	Команда = ПутьКурл;
	Команда = Команда + " --url """+УРЛ+"""";
	Команда = Команда + " --user """+СокрЛП(Пользователь)+":"+СокрЛП(Пароль)+"""";
	Команда = Команда + " --output """+мВывод+"""";
	Если ПустаяСтрока(Запрос)=0 Тогда
		Команда = Команда + " --request """+Запрос+"""";
	КонецЕсли;

	КомандаСистемы(Команда);

КонецФункции


//*** ПолучитьСообщение
Функция ПолучитьСообщение(НомерСообщения)
	Перем Сообщение;

	ВыполнитьЗапрос(, НомерСообщения);

	Если ФС.СуществуетФайл(мВывод)=1 Тогда
		Сообщение = СоздатьОбъект("CDO.Message");
		Stream = Сообщение.GetStream();
		Stream.LoadFromFile(мВывод);
		Stream.Flush();
		ФС.УдалитьФайл(мВывод);
	КонецЕсли;

	Возврат Сообщение;
КонецФункции


//*** ПолучитьСФильтром
Функция ПолучитьСФильтром(Фильтр) Экспорт
	//после вызова не прочитанные сообщения становятся прочитанными
	Сп = СоздатьОбъект("СписокЗначений");

	ВыполнитьЗапрос("SEARCH "+Фильтр);
	Результат = ПолучитьВывод();

	Если Лев(Результат, 8) = "* SEARCH" Тогда
		Результат = СокрЛП(Сред(Результат, 9));
		Пока ПустаяСтрока(Результат)=0 Цикл

			Поз = Найти(Результат, " ");
			Если Поз=0 Тогда
				НомерСообщения = Результат;
				Результат = "";
			Иначе
				НомерСообщения = Лев(Результат, Поз-1);
				Результат = СокрЛ(Сред(Результат, Поз+1));
			КонецЕсли;

			Сообщение = ПолучитьСообщение(НомерСообщения);
			Сп.ДобавитьЗначение(Сообщение);

		КонецЦикла;
	КонецЕсли;

	Возврат Сп;
КонецФункции


//*** ПолучитьНовые
Функция ПолучитьНовые() Экспорт

	Возврат ПолучитьСФильтром("NEW");

КонецФункции


//*** ПолучитьНеПрочитанные
Функция ПолучитьНеПрочитанные() Экспорт

	Возврат ПолучитьСФильтром("UNSEEN");

КонецФункции


//*** ПолучитьНеПрочитанные
Функция ПолучитьВсе() Экспорт

	Возврат ПолучитьСФильтром("ALL");

КонецФункции


//*** Конструктор
Процедура Конструктор()
	мВывод = КаталогВременныхФайлов()+"imap_via_curl_output.txt";
КонецПроцедуры
 

Используем объект mailbee http://www.afterlogic.com/mailbee/objects

Он платный.