Добавление нескольких CC получателей в VBScript; Recipient.Type не работает - PullRequest
Новая
       100

Добавление нескольких CC получателей в VBScript; Recipient.Type не работает

0 голосов
/ 13 июля 2020

Я работаю над jsx (проектом extendscript), в котором я вызываю фрагмент VBS с помощью app.doScript. Я не могу заставить получателей email_ cc и email_cc2 отображаться как cc; они застряли в основной отправке "Кому". Я не буду знать заранее, существуют ли они в адресной книге пользователей, поэтому я добавляю их в качестве получателей, чем пытаюсь установить их Тип. 

var vbs = 'Dim objOutl\r';
vbs += 'Set objOutl = CreateObject("Outlook.Application")\r';
vbs += 'Set objMailItem = objOutl.CreateItem(olMailItem)\r';
vbs += 'objMailItem.Display\r';
vbs += 'strEmailAddress = "' + email_address + '"\r';
vbs += 'objMailItem.Recipients.Add strEmailAddress\r';
vbs += 'strSubject = "' + the_subject + '"\r';
vbs += 'objMailItem.Subject = strSubject\r';
vbs += 'objMailItem.Body = "' + the_bodytext + '"\r';
if (email_cc && email_cc != "") {
    vbs += 'Set cc1Recipient = objMailItem.Recipients.Add ("' + email_cc + '")\r';
    if (email_cc2 && email_cc2 != "") {
        vbs += 'Set cc2Recipient = objMailItem.Recipients.Add ("' + email_cc2 + '")\r';
        vbs += 'cc1Recipient.Type = olCC\r';
        vbs += 'cc2Recipient.Type = olCC\r';            
    }
    else {
        vbs += 'cc1Recipient.Type = olCC\r';
    }

}

if (has_attachment) {
    vbs += 'objMailItem.Attachments.Add "' + pdf_file + '"\r';
}

1 Ответ

0 голосов
/ 13 июля 2020

Обратите внимание на следующие моменты:

  1. Попробуйте использовать полное имя в коде с именем перечисления, например: 
OlMailRecipientType.olCC

Используйте метод Resolve, который пытается сопоставить объект-получатель с адресной книгой. Он возвращает истину, если получатель был разрешен.

Вызовите метод Save, чтобы применить изменения, сделанные через OOM. Иногда имеет смысл закрыть элемент, переключиться на другой элемент Outlook, а затем вернуться, чтобы проверить результаты. Outlook кэширует изменения и не распространяет изменения, сделанные с помощью OOM. CC поля в Outlook программно статья.

...