Синтаксис CallByName Outlook VBA

Question

Я пишу код в MS Outlook для обработки входящих писем.

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

Затем, исходя из результата этого условного оператора, предполагается, что код должен прочитать соответствующее свойство объекта MailItem.

Я хочу использовать функцию CallByName для достижения этой цели.

x = CallByName(itm, PAN_Source, VbGet) 

Где ITM 'является объектом MailItem, переменная «PAN_Source» содержит строку, которая относится к специфическому свойству от «ITM».

Например, если входящая почта имеет вложение, то «PAN_Source» присваивается значение «Attachments.Item (1) .DisplayName». Я хочу, чтобы CallByName (itm, PAN_Source, VbGet) возвращал itm.Attachments.Item (1) .DisplayName

Outlook VBA просто прекращает выполнение на этом этапе выполнения.

Вы можете помочь в определении ошибки в коде выше?

Благодаря

Answer 1

CallByName функция принимает следующие аргументы:

• Имя объекта, на котором функция будет выполнена.
• Строковое выражение, содержащее имя свойства или метода объекта.
• Константа типа vbCallType, представляющая тип вызываемой процедуры.
• Аргументы (необязательно).

Я пытаюсь использовать следующие вместо:

Call CallByName("itm", PAN_Source, VbGet)

Вы можете найти Getting Started with VBA in Outlook 2010 статью полезной.