Отправить на почту получателя vbscript больше не работает - PullRequest
Новая
       41

Отправить на почту получателя vbscript больше не работает

0 голосов
/ 25 февраля 2019

Раньше я использовал VBscript для отправки файлов по почте в виде вложений, чтобы иметь возможность добавить свою подпись в сообщении электронной почты.

Примерно через две недели VBscript выдает ошибку каждый раз, когда я пытаюсьотправить файл.Я попытался использовать обычные «Отправить получателю», и он работает нормально.Вы бы посоветовали, как это можно решить?

Код: 

Option Explicit
Dim objArgs, OutApp, oNameSpace, oInbox, oEmailItem, olMailItem
Dim a, oAttachments, subjectStr, olFormatHTML
olMailItem = 0
olFormatHTML = 2
Set objArgs = WScript.Arguments 'gets paths of selected files
Set OutApp = CreateObject("Outlook.Application") 'opens Outlook
Set oEmailItem = OutApp.CreateItem(olMailItem) 'opens new email
For a = 0 to objArgs.Count - 1
    Set oAttachments = oEmailItem.Attachments.Add(objArgs(a))
    subjectStr = subjectStr & Right(objArgs(a),Len(objArgs(a))-(InStrRev(objArgs(a),"\"))) & ", " 'recreates the default Subject e.g. Emailing: file1.doc, file2.xls
Next
If subjectStr = "" then subjectStr = "No Subject "
oEmailItem.Subject = "Emailing: " & Left(subjectStr, (Len(subjectStr)-2))
oEmailItem.BodyFormat = olFormatHTML
oEmailItem.Display

Сообщение об ошибке:

Невозможно выполнить - список аргументов слишком длинный

...