VBS: как взять переменную из текстового файла.

2018-10-09T14:32:12Z

Добрый день! Имеется скрипт, создающий подпись для outlook. Внизу нужно прикрепить текстовый блок который будет содержать ссылки на товары, которые на распродаже. Суть в том что раз товары на распродаже, то периодически этот блок будет меняться и хочется автоматизировать этот процесс, чтобы каждый раз скрипт не править вручную. Идея такая: Есть txt файл, в нем
1-ая строка "Это наш супер мега товар на акции, пожалуйста купите, а то меня уволят"
2-ая строка - "http://www.PupkinTorg.ru/sales/не_увольняйте_менеджера.html"
Как скрипт, который создает подпись заставить взять значение первой строки и присвоить его переменной StrText1 и значение второй строки и присвоить переменной StrUrl1 которые в дальнейшем будут использоваться в подписи?
Сейчас это выглядит так:


objSelection.TypeText "Новинки месяца - нажмите на товар, чтобы узнать подробнее:" 
objSelection.TypeText(Chr(11))
Set hyp = objSelection.Hyperlinks.Add(objSelection.Range, strUrl1,,,"Супер средство от рептилойдов" )
 'где StrUrl1 задавалась в начале скрипта вручную типа StrUrl1 =  "http://www.PupkinTorg.ru/sales/не_увольняйте_менеджера.html" 
hyp.Range.Font.Color = RGB(89,89,89)
hyp.Range.Font.Bold = True
objSelection.TypeText CHR(11)

а нужно чтобы менеджер правил txt файл и скрипт брал из него эти данные и получалось так:


objSelection.TypeText  "Новинки месяца - нажмите на товар, чтобы узнать подробнее:" 
objSelection.TypeText(Chr(11))
Set hyp = objSelection.Hyperlinks.Add(objSelection.Range, strUrl1,,,StrText1 )

Возможно ли такое сделать? Потому что отделов много, у каждого свои распродажи, и по нескольку раз в месяц вручную править скрипты не хочется совсем, а так менеджер бы на сетевой диск выкладывал бы txt файл и скрипт сам бы из него по строчкам брал нужные значения переменных.

Серый форум — VBS: как взять переменную из текстового файла.

VBS: как взять переменную из текстового файла.