Как получить (резолвить) группу контактов из Outlook при отправке сообщений через MAPI?

Question

[Алан Гибизов]

Пытаюсь отправлять группе контактов Outlook 2016 под именем "test1" сообщение email из скрипта python3:

from win32com.client.gencache import EnsureDispatch
from win32com.client import constants

outlook = EnsureDispatch("Outlook.Application")
newMail = outlook.CreateItem(constants.olMailItem)
newMail.Subject = "This is subject"
samplegrp = newMail.Recipients.Add("test1")
samplegrp.Type = constants.olTo
newMail.Recipients.ResolveAll()
newMail.Send()

резолвер возвращает "False" ну и метод Send() ругается на отсутствие адресов.

Если в newMail.To положить существующий в адресном списке адрес, он "резолвится" (newMail.Recipients.ResolveAll() возвращает "True") и сообщение успешно отправляется.

Мои попытки добраться до этого объекта группы контактов типа AddressEntry "test1" через API вроде успешны:

from win32com.client.gencache import EnsureDispatch
from win32com.client import constants

outlook = EnsureDispatch("Outlook.Application")
newMail = outlook.CreateItem(constants.olMailItem)
namespace = outlook.GetNamespace("MAPI")
addresslist = namespace.AddressLists

addressentries = addresslist.Item(1).AddressEntries
samplegrp = [item for item in addressentries if item.Name == 'test1'][0]
print(samplegrp.Name)

возвращает "test1", но ни "резолвить" его, ни тупо "положить" его в newMail.To и отправить на него мне не удалось. Среди методов и атрибутов этого объекта я не нашел ничего, что мне бы помогло содержимое группы "test1" как-то выковырять из outlook.

Вдогонку...

Я понимаю, что можно просто поместить в атрибут .To нужные адреса множеством разных способов (передать строку с адресами через ";" или разными другими методами), но мне хотелось бы задействовать именно группу контактов из Outlook.

Comments

[Viktor T2]

https://docs.microsoft.com/ru-ru/office/vba/excel/...

[Алан Гибизов]

Viktor T2, огромное спасибо!
Ваш коммент помог сдвинуться с места, через него я доковырялся-таки до списков рассылки (тип DistListItem) и нашел в документации MS методы и поля этого класса. Ура!
Вот мой код:

from win32com.client.gencache import EnsureDispatch

outlook = EnsureDispatch("Outlook.Application")
olNamespace = outlook.GetNamespace("MAPI")
olFolder = olNamespace.GetDefaultFolder(10)
olConItems = olFolder.Items
for olItem in olConItems:
    if "_DistListItem" in str(type(olItem)) and olItem.DLName == 'test1':
        print(olItem.DLName)

Предлагаю поместить Ваш коммент в ответы, помечу решением.

но всё же...

Удивительно, кто же проектировал MAPI? Мне кажется, даже чайник вроде меня не смог бы сделать так коряво... или я не улавливаю всю его прелесть?

[Viktor T2]

Алан Гибизов,
В ответы поместите пожалуйста сами,
я бы еще хотел упомянуть что при работе из python с ole/com
можно гуглить vba примеры, их гораздо больше и они более подробные.
vba примеры, для ole/com успешно адаптируются для работы с com в python

[Алан Гибизов]

Viktor T2, хорошо, спасибо!
К сожалению, Ваш коммент я за Вас не могу переместить, прав таких нет.

Гуглил VBA тоже, однако видимо неверно ставил вопрос, т.к. мне выпадали примеры где-то близко, но не то. А Ваш прям в точку.

[Viktor T2]

Алан Гибизов,
Вроде же можно написать ответ на свой вопрос самому-это не запрещено.
Я пишу коменты и ответы не за звездочки, а на интересные мне темы.
Или то что быстро гуглится.
Короче не за рейтинг а за научный интерес.

Answer 1

[Алан Гибизов]

Благодаря подсказке Viktor T2 доковырялся-таки до списков рассылки (тип DistListItem) и нашел в документации MS методы и поля этого класса. Ура!

код

import win32com.client as win32
from win32com.client.gencache import EnsureDispatch
 
 
 
 
def get_maillist(maillistname: str):
    """
 
    :param maillistname: str name of Group contacts at Outlook
    :return: string of addresses (del = ;) of Group contacts
    (empty if Group 'maillistname' not found)
    """
    outlook = EnsureDispatch("Outlook.Application")
    olNamespace = outlook.GetNamespace("MAPI")
    olFolder = olNamespace.GetDefaultFolder(10)
    olConItems = olFolder.Items
    mail_list = []
    for olItem in olConItems:
        if "_DistListItem" in str(type(olItem)) and olItem.DLName == maillistname:
            counter = olItem.MemberCount
            while bool(counter):
                mail_list.append(olItem.GetMember(counter).Address)
                counter -= 1
    if bool(mail_list):
        result = ';'.join(mail_list)
    else:
        result = ''
    return result
 
if __name__ == '__main__':
    outlook = win32.Dispatch('outlook.application')
    mail = outlook.CreateItem(0)
    mail.To = get_maillist('test1')
    mail.Subject = 'testmail'
    print(mail.Recipients.ResolveAll())
    print(mail.To)
    mail.Send()