Добрый день, товарищи. Вот и чукча стал писателем :-)
Столкнулся с совершенно непонятным для себя. Маленькая преамбула:
Была написана некая надстройка для Excel, которая размещает 2 кнопки в ленту сверху. Кнопки в свою очередь генерируют 2 письма, которые заполняются и выводятся на экран. Все работает, все прекрасно. Надстройка с шаблоном письма лежит в сетевой папке, сама надстройка установлена интересующимся пользователям.
А вот теперь суть: появилось несколько новых пользователей, у которых не заполняется шапка письма (т.е. адресат (.To), тема (.Subject) остаются пустные), хотя если расставить брэйкпоинты - сама информация о теме и адресате есть. А тело письма заполняется.
Иными словами надстройка одна и таже, шаблон письма один и тот же, разные только компьютеры. На большинстве работает все, на некоторых только замена в теле письма.
Прошу толкнуть на путь истинный, т.к. я что-то даже не знаю куда посмотреть. На всякий случай кусок некрасивого кода прилагаю.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
Set OL_ItemMail = OL_App.CreateItemFromTemplate("Z:\Mail_generator\System\msg_1.msg")
With OL_ItemMail
If Not IsNull(Cells(ra.Row, 48)) Then
.To = Cells(ra.Row, 48)
Else: .To = "---"
End If
If Not IsNull(Cells(ra.Row, 52)) Then
.Subject = Cells(ra.Row, 52)
Else: .Subject = "---"
End If
If Not IsNull(Cells(ra.Row, 3)) Then
.HTMLBody = Replace(.HTMLBody, "BOX1", Cells(ra.Row, 3))
Else
.HTMLBody = Replace(.HTMLBody, "BOX1", "")
End If
On Error GoTo label11
GoTo label21
label11:
ActiveCell.Value = "ERROR"
.Save
label21:
.Display
ActiveCell.Value = "Сгенерировано письмо 1"
