Войти

Показать полную графическую версию : [решено] Картинка-подпись генерируемая vbs для Outlook


Black_Sun
22-08-2014, 13:26
Есть vbs скрипт, который берёт из AD данные и формирует нужную подпись, но в подписи используются наши шрифты, можно как-то перевести эту подпись из текста в картинку и прикреплять её либо в disclaimer либо ещё куда что бы в подписи был такой же текст, только картинкой.
Пробовал canvas подрубать к html подписи, но не обрабатывает JS outlook.

Iska
22-08-2014, 14:11
можно как-то перевести эту подпись из текста в картинку »
Можно. Бесплатно —ImageMagick, платно — GflSDK (библиотека бесплатна только для некоммерческого применения). WIA вроде как текст рисовать не умеет, если я не ошибаюсь.

P.S. Ничего, кроме безудержного мата, бессмысленные, повторяющиеся из письма в письмо, картинки-подписи не вызывают.

Black_Sun
22-08-2014, 16:42
Iska,
:D это да, что ж делать, тогда придётся искать универсальный шрифт, который есть на всех ПК.
про ImageMagick слышал, но по моему там сложно.

Iska
22-08-2014, 18:10
про ImageMagick слышал, но по моему там сложно. »
Отнюдь. Скажем, самое простое:
With WScript.CreateObject("ImageMagickObject.MagickImage.1")
.Convert "-size", "250x50", "xc:none", "-font=C:\Windows\fonts\UNVR58C.TTF", "-pointsize=24", "-fill=yellow", "-draw=text 20,20 'Мама мыла раму'", "C:\Песочница\052\Sample.gif"
End With

http://i.imgur.com/mtQLONW.png

Iska
22-08-2014, 22:37
Black_Sun, можете выложить скриншот с образцом Вашей подписи, указать, какая её часть будет переменной, и сам шрифт. Я посмотрю, можно ли и как сие сделать.

Black_Sun
23-08-2014, 15:49
Iska, Ну идея в том что бы сделать подпись целиком картинкой, ну может кроме слов "С уважением", подпись генериться vbs с данными из AD, запускается через GPO каждый раз при входе пользователя в свою учётку.
Шрифты Modern H Medium, Modern H Light, Modern H Bold, выложить их не могу.

Black_Sun
27-08-2014, 14:32
Нашёл функцию PasteSpecial появилась идея вставить как объект, только не получается вставить, видимо параметры не знаю какие, кто знает?

Iska
27-08-2014, 15:04
Нашёл функцию PasteSpecial появилась идея вставить как объект, »
А у получателя не окажется такого объекта. И?

Black_Sun
27-08-2014, 15:06
Эм, скрипт выполняется на каждом ПК отдельно, как это не окажется?

Iska
27-08-2014, 15:32
Black_Sun, не у отправителя. У получателя.

Так что Вам мешает использовать ImageMagick?

Black_Sun
27-08-2014, 15:56
Iska, в общем сделал через

objSelection.copy
objSelection.PasteSpecial , , , , wdPasteMetafilePicture
objSelection.ShapeRange.ConvertToInlineShape
в каждом письме теперь 2 вложения (image001.emz и oledata.mso)
а ImageMagick я не знаю абсолютно, если vbs я ещё могу где-то нагуглить, где-то додумать, то тут уже просто ноль, у меня даже выше "самое простое" не получилось :(

Black_Sun
28-08-2014, 09:41
Решил проблему с вложениями конвертанув объект в PNG строчками

objSelection.copy
objSelection.PasteSpecial , , , , 14

Iska
28-08-2014, 15:42
Решил проблему с вложениями конвертанув объект в PNG строчками »
Вот это совсем замечательно.




© OSzone.net 2001-2012