VBScript: назначение массива (2) через createobject

Question

VBScript: назначение массива (2) через createobject

У меня возникла проблема с преобразованием этого кода VB6 в VBScript. Я вызываю объект COM, чтобы создать массив в виде EmailAddressType. Вот рабочий код VB6:

'Assign TO: addresses

Dim toAdresses(2) As New EmailAddressType

toAdresses(0).EmailAddress = "[email protected]"

toAdresses(0).RoutingType = "SMTP"

toAdresses(1).EmailAddress = "[email protected]"

toAdresses(1).RoutingType = "SMTP"

email.ToRecipients = toAdresses

Я, кажется, не могу понять, как преобразовать это в VBScript. Я пробовал следующее, Но просто получаю ошибку несоответствия типа, как только я получаю по электронной почте.ToRecipients = toAdresses

  'Assign TO: addresses

   dim toAdresses(2)

   set toAdresses(0) = createobject("EWS.EWSWebSvc.EmailAddressType")

   set toAdresses(1) = createobject("EWS.EWSWebSvc.EmailAddressType")

    toAdresses(0).EmailAddress = "[email protected]"

    toAdresses(0).RoutingType = "SMTP"

    toAdresses(1).EmailAddress = "[email protected]"

    toAdresses(1).RoutingType = "SMTP"

    email.ToRecipients = toAdresses

Кстати, это COM-оболочка веб-служб Exchange, если это поможет.

362 2

vb6 vbscript exchangewebservices

2 ответов:

Comments

Ничего не найдено.

Bob77 · Accepted Answer · 2012-06-05 21:15:47

Я думаю, что проблема в том, что .Свойство ToRecipients требуетмассив EmailAddressType , в то время как все, что вы можете легко получить в VBScript, - это вариант или массив вариантов.

Похоже, что этот API просто не был построен, чтобы быть сценарием.

Как ни странно, есть подтекст, что его можно использовать из JScript, хотя: MessageType.Свойство ToRecipients

Я подозреваю, что они переписывают историю, постепенно редактируя любое упоминание VBScript на MSDN в эти дни хотя.

peter · Accepted Answer · 2012-06-05 22:04:33

Просто предположение, попробуйте это
toAdresses.EmailAddress = "[email protected];[email protected]"
toAdresses.RoutingType = "SMTP"
email.ToRecipients = toAdresses
Если это не работает с ; Попробуйте,