AD domain 环境下VBS自动生成邮件签名

使用VBS自动生成邮件签名

脚本使用环境：在AD域网络环境下，集团有上千邮件帐号，邮件签名是一比较难以管控工作内容，邮件签名内容一般包含1-问候语句，2-用户名，3-部门及职务，4-公司名称，5-固话，手机方式，6-公司Logo图片，7告警及声明等，因为各种原因工程师给用户设置好签名，用户自己也会修改邮件签名，用户修改后的签名可能不符合公司组织架构职务等。
用VBS给用户自动生成签名，通过AD域组策略在用户端执行，这样可以解决，１：IT工程师不需要再给用户手动设置签名，2：用户端自己修改了签名之后，用户重新登入之后，用户的签名又会自动更改过来

以下是一邮件签名VBS脚本模板，

On Error Resume Next
Dim objSignature
Dim userMessage
Set objSignature =CreateObject("Scripting.Dictionary")
Set userMessage =CreateObject("Scripting.Dictionary")'邮件格式
'Best Regards, 固定一行
'用户名，可以中是文也可能是英文
'职务 可能是中文也可能是英文
'公司名称
'固话，手机方式等
'公司Logo图片
'公司网址
'固定告警Function GetUser()    '从AD域获取用户信息Set objSysInfo = CreateObject("ADSystemInfo")strUser = objSysInfo.UserNameSet objUser = GetObject("LDAP://" & strUser)tmp = split(objUser.FullName,"(")                'objUser.FullName 类似:liu d.h. (刘德华)userMessage("EnName") = tmp(0)userMessage("EnTitle")       = objUser.Title userMessage("EnDepartment")  = objUser.DepartmentuserMessage("EnDepartment") = objUser.DepartmentuserMessage("EnPhone") = "Tel: " + objUser.telephoneNumber + " / Fax: " + objUser.facsimileTelephoneNumberuserMessage("EnMobile") =objUser.companyuserMessage("EnCompany") =objUser.companyuserMessage("CnCompany") =objUser.companyuserMessage("gidNumber") = objUser.gidNumberuserMessage("co") = objUser.couserMessage("initials") =objUser.initials
End FunctionFunction BaseEnSignature() '基本英文签文信息,objSignature("Regard") = "Best Regard"objSignature("Name") = userMessage("EnName") objSignature("Title")   =  userMessage("EnTitle")objSignature("Department")=userMessage("EnDepartment")objSignature("Company") =userMessage("EnCompany")objSignature("Phone") = userMessage("EnPhone")objSignature("Mobile")= userMessage("EnMobile")
End Function
Function BaseCnSignature() '中文邮件签名,有其它签名规则都可以在后面加objSignature("Regard") = "此致敬礼"
End Function
Function Signature3() '定义邮件签名规则,有其它签名规则都可以在后面加objSignature("Regard") = "此致敬礼"
End FunctionFunction NewLine(Name,Value,Color1,Color2,Color3)   '编辑字体大小颜色等参数if trim(Value) <> "" thenobjSelection.Font.Name = Name '"Calibri"objSelection.Font.Bold = FalseobjSelection.Font.Size = "11"objSelection.Font.Color = RGB(Color1,Color2,Color3)objSelection.TypeText ValueobjSelection.TypeText(Chr(13))End if
End FunctionFunction SaveSignature()Set objSelection = objDoc.Range()objSignatureEntries.Add "New Signature", objSelectionobjSignatureObject.NewMessageSignature = "New Signature"objSignatureObject.ReplyMessageSignature = "New Signature"objDoc.Saved = TrueobjWord.Quit
End FunctionFunction NewSignature():NewLine "Calibri",objSignature("Regard"),15,36,62NewLine "Calibri",objSignature("Name"),15,36,62NewLine "Calibri",objSignature("Title"),15,36,62NewLine "Calibri",objSignature("Department"),15,36,62 NewLine "Calibri",objSignature("Company"),15,36,62NewLine "Calibri",objSignature("Phone"),15,36,62NewLine "Calibri",objSignature("Mobile"),15,36,62
End FunctionSet objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.SelectionSet objEmailOptions = objWord.EmailOptions
Set objSignatureObject = objEmailOptions.EmailSignature
Set objSignatureEntries = objSignatureObject.EmailSignatureEntriesGetUser  '获取用户需要用到的签名信息if userMessage("gidNumber") = "0" then  '判断用户使用哪个签名规划  BaseEnSignature                     '组合签名字典项
end ifNewSignature
SaveSignature

AD domain 环境下VBS自动生成邮件签名相关推荐

ACT5.6 动手实验手册如何在工作组模式下对客户端进行数据收集如何在AD域环境下对...
ACT5.6 动手实验手册实验的目标这个实验的目的是: · 了解如何部署ACT5.6 · 了解如何在工作组模式下对客户端进行数据收集 · 了解如何在AD域环境下对客户端进行数据收集本次试验大约6 ...
向日葵资深产品总监技术分享：“国民远控”如何在AD域环境下应用
在大型企业进行IT建设时,AD域很早就已经成为了必选项,企业选择引入其他IT服务也往往需要该服务能够对接现有的AD域体系."国民远控"向日葵作为最具代表性的国产远程控制品牌,那么其 ...
bs模型Nd怎么用计算机算,BS模式的下试卷自动生成系统的设计与实现
B/S模式的下试卷自动生成系统的设计与实现信息与计算科学06101班马德岭指导老师:庄曰华摘要:教学评价是教学工作的一个重要环节,通常的教学评价方式多为通过试卷进行考试,因而试卷的质量将直接影响 ...
自动打包linux,Linux环境下Springboot自动打包发布功能
实现核心功能:完成Linux环境下Springboot自动打包发布功能详细功能: 自动更新Svn最新代码删除原有打包文件自动打包将打包之后的项目文件复制到其他服务器关闭本地项目进程重新启动 ...
php简单排课_基于PHP-WEB网络云环境下的自动排课系统
基于 PHP-WEB 网络云环境下的自动排课系统陈佳硕 ; 孙穆赫 ; 付兴建 ; [期刊名称] <信息与电脑:理论版> [年 ( 卷 ), 期] 2013(000)010 [摘要] 随 ...
phpstudy集成包Windows环境下数据库自动备份
phpstudy集成包Windows环境下数据库自动备份这里我们会用到Windows下的任务计划程序,Windows服务器同理,如下图所示: 接着我们还需要用到mysqldump这个工具,phpst ...
eclipse maven 搭建 SSM（Spring+SpringMVC+MyBatis）开发环境和 MyBatis 自动生成的 maven 插件配置
最近研究java web开发,首先需要配置好开发环境,查阅网上各位大神的文章后搭建完成,记录下来作为备忘. 1.安装Maven Maven下载地址:http://maven.apache.org/do ...
简单的hibernate环境搭建、自动生成model/配置/hibernate.xml配置文件
自己亲测的东西才是最有效果的,下面贴出整个编写的过程. 1 hibernate环境搭建,这个博客非常给力:http://www.111cn.net/wy/js-ajax/93142.htm 需要用到的 ...
windows server2019 AD域环境下用gpo统一员工桌面壁纸不久变黑屏
环景: Win10专业版问题描述: Win10专业版系统win server2019AD域环境下用gpo统一设置壁纸过几天员工Win10系统桌面壁纸变黑色原因分析: 域内通信问题解决方案: 1. ...

AD domain 环境下VBS自动生成邮件签名

AD domain 环境下VBS自动生成邮件签名相关推荐

最新文章

热门文章