{"id":155,"date":"2019-08-29T11:06:29","date_gmt":"2019-08-29T10:06:29","guid":{"rendered":"https:\/\/www.syslab.network\/?page_id=155"},"modified":"2019-09-14T18:55:59","modified_gmt":"2019-09-14T17:55:59","slug":"ad-automatic-outlook-signature","status":"publish","type":"page","link":"https:\/\/www.syslab.network\/index.php\/vbscripts\/ad-automatic-outlook-signature\/","title":{"rendered":"Active Directory Automatic Outlook Signature"},"content":{"rendered":"
\n

One of the most used services in a business environment is email.<\/p>\n\n\n\n

Companies need to ensure that their image maintains the standard they choose, in both internal and external communications.<\/p>\n\n\n\n

Then let\u2019s use a VBScript to do a standard SIG and get the information from each user in Active Directory(AD). <\/p>\n\n\n\n

\"\"
Example of a Signature<\/figcaption><\/figure><\/div>\n\n\n\n

This is an example of a Signature with the fields Full Name, Phone number, Email and Job Title from Active Directory.<\/p>\n\n\n\n

\"\"<\/figure><\/div>\n\n\n\n
\"\"<\/figure><\/div>\n\n\n\n

So, how does the whole thing work? In the script we are going to create a word document and then \u201cattach\u201d to Outlook signature.<\/p>\n\n\n\n

I have two setups for the color and size of the text. <\/p>\n\n\n\n

On Error Resume Next\n\t\tFunction orange(objSelection)\n\t\t\tWith objSelection\n\t\t\t\tWith .Font\n\t\t\t\t\t.Name = "Helvetica"\n\t\t\t\t\t.Size = 11\n\t\t\t\t\t.Bold = False\n\t\t\t\t\t.Color = RGB(256,140,0)\n\t\t\t\t\t.Italic = False\n\t\t\t\t\t.Underline = False\n\t\t\n\t\t\t\tEnd With\n\t\t\tEnd With\n\t\n\t\tEnd Function\n\t\n\t\tFunction black(objSelection)\n\t\t\tWith objSelection\n\t\t\t\tWith .Font\n\t\t\t\t\t\t.Name = "Helvetica"\n\t\t\t\t\t\t.Size = 10\n\t\t\t\t\t\t.Bold = True\n\t\t\t\t\t\t.Color = RGB(0,0,0)\n\t\t\t\t\t\t.Italic = False\n\t\t\t\t\t\t.Underline = False\n\t\t\t\tEnd With\n\t\t\tEnd With\n\t\t\t\n\t\tEnd Function<\/pre><\/div>\n\n\n\n
Now, get the information from AD and pass it into variables.<\/p>\n\n\n\n
Set objSysInfo = CreateObject("ADSystemInfo")\n\t\tstrUser = objSysInfo.UserName\n\tSet objUser = GetObject("LDAP:\/\/" & strUser)\n\n\tWith objUser\n  \n\t\tstrName = .FullName\n\t\tstrTitle = .Title\n\t\tstradr = .streetAddress\n\t\tstrpostal = .postalCode\n\t\tstrl = .l\n\t\tstrco = .co\n\t\tstrcomp = .company\n\t\tstrhome = .homePhone\n\t\tstrIpPhone = .ipPhone\n\t\tstrMobile = .Mobile\n\t\tstrPhone = .TelephoneNumber\n\t\tstrMail = .mail\n\t\n\n\tEnd With<\/pre><\/div>\n\n\n\n
Creating the word document.<\/p>\n\n\n\n
 In the full name field I used different font settings, which only happened in this field, so I inserted the settings manually instead of creating a function. <\/p>\n\n\n\n
Set objword = CreateObject("Word.Application")\n\tWith objword\n\t\tSet objDoc = .Documents.Add()\n\t\tSet objSelection = .Selection\n\t\tSet objEmailOptions = .EmailOptions\n\tEnd With\n\nSet objSignatureObject = objEmailOptions.EmailSignature\nSet objSignatureEntries = objSignatureObject.EmailSignatureEntries\nWith objSelection\n\n\n\n\t\t.ParagraphFormat.Alignment = wdAlignParagraphLeft\n\t\t.ParagraphFormat.SpaceAfter = 0\n\t\t.ParagraphFormat.SpaceBefore = 0\n\t\t\n\t\t\n\t\t'NAME\n\t\t With .Font\n\t\t\t\t.Name = "Helvetica"\n\t\t\t\t.Size = 14\n\t\t\t\t.weight = 1000\n\t\t\t\t.Bold = True\n\t\t\t\t.Color = RGB(0,0,0)\n\t\t\t\t.Italic = False\n\t\t\t\t.Underline = False\n\t\tEnd With\n\t\t.TypeText strName \n\t\t.TypeText Chr(11) & Chr(6)\n\t\t\n\t\t...<\/pre><\/div>\n\n\n\n
In the second field we first call the function with the settings we want, in this case the orange.<\/p>\n\n\n\n
...\n\t\t'JOB TITLE\n\t\t\n\t\torange(objSelection)\n\t\t.TypeText strTitle & Chr(32) & Chr(11) & Chr(11)\n\t\t \n\t\t...<\/pre><\/div>\n\n\n\n
The first two fields are inserted.
Now let’s insert the image. We have to wrap it so that we can insert the text in front of it.<\/p>\n\n\n\n
...\n\t\t.InlineShapes.AddPicture "\\\\SYSPDC\\wider\\sig.png", True, True\n\t\tobjDoc.InlineShapes(1).ConvertToShape\n\t\t\tobjDoc.Shapes(1).WrapFormat.Type = 0 'Abaixo\n\t\t\tobjDoc.Shapes(1).WrapFormat.Type = 0 'Ao Lado\n\t\t\t...<\/pre><\/div>\n\n\n\n
 To create the Social Banner we first insert the images and then the links. <\/p>\n\n\n\n
.\t...\t\n\t'SOCIAL BANNER\n\t\n\t\t.TypeText   Chr(32)& Chr(32) & Chr(11)\t& Chr(11) & Chr(11)\n\t\t\n\t\t.InlineShapes.AddPicture "\\\\192.168.2.11\\shares_W\\Sig\\Social_Banner\\linkedin.png", True, True\n\t\t.TypeText Chr (9)\n\t\t.InlineShapes.AddPicture "\\\\192.168.2.11\\shares_W\\Sig\\Social_Banner\\email.png", True, True\n\t\t.TypeText Chr (9)\n\t\t.InlineShapes.AddPicture "\\\\192.168.2.11\\shares_W\\Sig\\Social_Banner\\wiki.png", True, True\n\t\t.TypeText Chr (9)\n\t\t.InlineShapes.AddPicture "\\\\192.168.2.11\\shares_W\\Sig\\Social_Banner\\social.png", True, True\n\t\t.TypeText Chr (9)\n\t\t\nEnd With\n\n\tobjDoc.Hyperlinks.Add objDoc.InlineShapes.Item(1),"https:\/\/www.linkedin.com\/in\/carlos-lobao"\n\tobjDoc.Hyperlinks.Add objDoc.InlineShapes.Item(2),"mailto:blog@syslab.network"\n\tobjDoc.Hyperlinks.Add objDoc.InlineShapes.Item(3),"https:\/\/wiki.syslab.network"\n\tobjDoc.Hyperlinks.Add objDoc.InlineShapes.Item(4),"https:\/\/www.syslab.network"\n\t...<\/pre><\/div>\n\n\n\n
Lastly, we insert our signature in Outlook.<\/p>\n\n\n\n
...\nSet objSelection = objDoc.Range()\n\nobjSignatureEntries.Add "AD Signature", objSelection\nobjSignatureObject.NewMessageSignature = "AD Signature"\nobjSignatureObject.ReplyMessageSignature = "AD Signature"\nobjDoc.Saved = True\nobjword.Quit<\/pre><\/div>\n\n\n\n
Script<\/h3>\n\n\n\n
On Error Resume Next\n\t\tFunction orange(objSelection)\n\t\t\tWith objSelection\n\t\t\t\tWith .Font\n\t\t\t\t\t.Name = "Helvetica"\n\t\t\t\t\t.Size = 11\n\t\t\t\t\t.Bold = False\n\t\t\t\t\t.Color = RGB(256,140,0)\n\t\t\t\t\t.Italic = False\n\t\t\t\t\t.Underline = False\n\t\t\n\t\t\t\tEnd With\n\t\t\tEnd With\n\t\n\t\tEnd Function\n\t\n\t\tFunction black(objSelection)\n\t\t\tWith objSelection\n\t\t\t\tWith .Font\n\t\t\t\t\t\t.Name = "Helvetica"\n\t\t\t\t\t\t.Size = 10\n\t\t\t\t\t\t.Bold = True\n\t\t\t\t\t\t.Color = RGB(0,0,0)\n\t\t\t\t\t\t.Italic = False\n\t\t\t\t\t\t.Underline = False\n\t\t\t\tEnd With\n\t\t\tEnd With\n\t\t\t\n\t\tEnd Function\n\tSet objSysInfo = CreateObject("ADSystemInfo")\n\t\tstrUser = objSysInfo.UserName\n\tSet objUser = GetObject("LDAP:\/\/" & strUser)\n\n\tWith objUser\n  \n\t\tstrName = .FullName\n\t\tstrTitle = .Title\n\t\tstradr = .streetAddress\n\t\tstrpostal = .postalCode\n\t\tstrl = .l\n\t\tstrco = .co\n\t\tstrcomp = .company\n\t\tstrhome = .homePhone\n\t\tstrIpPhone = .ipPhone\n\t\tstrMobile = .Mobile\n\t\tstrPhone = .TelephoneNumber\n\t\tstrMail = .mail\n\t\n\n\tEnd With\n\n\nSet objword = CreateObject("Word.Application")\n\tWith objword\n\t\tSet objDoc = .Documents.Add()\n\t\tSet objSelection = .Selection\n\t\tSet objEmailOptions = .EmailOptions\n\tEnd With\n\nSet objSignatureObject = objEmailOptions.EmailSignature\nSet objSignatureEntries = objSignatureObject.EmailSignatureEntries\nWith objSelection\n\n\n\n\t\t.ParagraphFormat.Alignment = wdAlignParagraphLeft\n\t\t.ParagraphFormat.SpaceAfter = 0\n\t\t.ParagraphFormat.SpaceBefore = 0\n\t\t\n\t\t\n\t\t'NAME\n\t\t With .Font\n\t\t\t\t.Name = "Helvetica"\n\t\t\t\t.Size = 14\n\t\t\t\t.weight = 1000\n\t\t\t\t.Bold = True\n\t\t\t\t.Color = RGB(0,0,0)\n\t\t\t\t.Italic = False\n\t\t\t\t.Underline = False\n\t\tEnd With\n\t\t.TypeText strName \n\t\t.TypeText Chr(11) & Chr(6)\n\t\t\n\t\t\n\t\t'JOB TITLE\n\t\t\n\t\torange(objSelection)\n\t\t.TypeText strTitle & Chr(32) & Chr(11) & Chr(11)\n\t\t \n\t\t\n\t\t.InlineShapes.AddPicture "\\\\SYSPDC\\wider\\sig.png", True, True\n\t\tobjDoc.InlineShapes(1).ConvertToShape\n\t\t\tobjDoc.Shapes(1).WrapFormat.Type = 0 'Abaixo\n\t\t\tobjDoc.Shapes(1).WrapFormat.Type = 0 'Ao Lado\n\t\t'main\n\t\tblack(objSelection)\n\t\t.TypeText ("SysLab:  ")\n\t\torange(objSelection)\n\t\t.TypeText ("Projecto pessoal de Sistemas Inform\u00e1ticos") \n\t\t.TypeText Chr(11)\n\t\t\n\t\t\n\t\t'mobile\n\t\t\n\t\tIf (strMobile = Empty) Then\n\t\t\t.TypeText  Chr(32)\n\t\tElse\n\t\t\tblack(objSelection)\n\t\t\t.TypeText ("Tel: ")\n\t\t\t'Mobilephone\n\t\t\torange(objSelection)\n\t\t\t.TypeText   Chr(32)& strMobile & Chr(11) \n\t\tEnd If\n\t\t\n\t\t'Email\n\t\tblack(objSelection)\n\t\t.TypeText ("Email: ")\n\t\torange(objSelection)\n\t\t.TypeText  strMail & Chr(32) & Chr(11) & Chr(6) \n\t\t\n\t\t'General Phone\n\t\tIf (strhome <> Empty) Then\n\t\t\tblack(objSelection)\n\t\t\t.TypeText ("Main: ") & Chr(32)& Chr(32) \n\t\t\torange(objSelection)\n\t\t\t.TypeText  strhome & Chr(32)& Chr(32)\n\t\t\n\t\tEnd If\n\t\t\n\t\t'Direct Phone\n\t\tIf (strIpPhone <> Empty) Then\n\t\t\tblack(objSelection)\n\t\t\t.TypeText ("Direct: ") & Chr(32)& Chr(32) \n\t\t\torange(objSelection)\n\t\t\t.TypeText  strIpPhone \n\t\tEnd If\n\t\t\n\t\t\n\t\t\n\t'SOCIAL BANNER\n\t\n\t\t.TypeText   Chr(32)& Chr(32) & Chr(11)\t& Chr(11) & Chr(11)\n\t\t\n\t\t.InlineShapes.AddPicture "\\\\192.168.2.11\\shares_W\\Sig\\Social_Banner\\linkedin.png", True, True\n\t\t.TypeText Chr (9)\n\t\t.InlineShapes.AddPicture "\\\\192.168.2.11\\shares_W\\Sig\\Social_Banner\\email.png", True, True\n\t\t.TypeText Chr (9)\n\t\t.InlineShapes.AddPicture "\\\\192.168.2.11\\shares_W\\Sig\\Social_Banner\\wiki.png", True, True\n\t\t.TypeText Chr (9)\n\t\t.InlineShapes.AddPicture "\\\\192.168.2.11\\shares_W\\Sig\\Social_Banner\\social.png", True, True\n\t\t.TypeText Chr (9)\n\t\t\nEnd With\n\n\tobjDoc.Hyperlinks.Add objDoc.InlineShapes.Item(1),"https:\/\/www.linkedin.com\/in\/carlos-lobao"\n\tobjDoc.Hyperlinks.Add objDoc.InlineShapes.Item(2),"mailto:blog@syslab.network"\n\tobjDoc.Hyperlinks.Add objDoc.InlineShapes.Item(3),"https:\/\/wiki.syslab.network"\n\tobjDoc.Hyperlinks.Add objDoc.InlineShapes.Item(4),"https:\/\/www.syslab.network"\n\t\nSet objSelection = objDoc.Range()\n\nobjSignatureEntries.Add "AD Signature", objSelection\nobjSignatureObject.NewMessageSignature = "AD Signature"\nobjSignatureObject.ReplyMessageSignature = "AD Signature"\nobjDoc.Saved = True\nobjword.Quit<\/pre><\/div>\n\n\n\n
Troubleshooting<\/h3>\n\n\n\n
If there are users connected to the network via VPN, verify if their communication with the AD is correct.  Communication with AD does not work correctly, only through IP is the DNS required. <\/p>\n\n\n\n
If you run the script and the changes don’t happen run in CMD<\/p>\n\n\n\n
gpupdate<\/pre><\/div>\n\n\n\n
 Finally, delete the files from C:\\Users\\USER\\AppData\\Roaming\\Microsoft\\Signatures and run the script again. <\/p>\n\n\n\n
\"\"<\/figure><\/div>\n\n\n\n
<\/p>\n\n\n\n
The script is available in the Download menu.<\/p>\n\n\n\n
<\/p>\n<\/div>","protected":false},"excerpt":{"rendered":"
One of the most used services in a business environmentRead More<\/i><\/a><\/p>\n","protected":false},"author":1,"featured_media":177,"parent":54,"menu_order":0,"comment_status":"open","ping_status":"open","template":"","meta":{"_mi_skip_tracking":false,"_exactmetrics_sitenote_active":false,"_exactmetrics_sitenote_note":"","_exactmetrics_sitenote_category":0},"_links":{"self":[{"href":"https:\/\/www.syslab.network\/index.php\/wp-json\/wp\/v2\/pages\/155"}],"collection":[{"href":"https:\/\/www.syslab.network\/index.php\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/www.syslab.network\/index.php\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/www.syslab.network\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.syslab.network\/index.php\/wp-json\/wp\/v2\/comments?post=155"}],"version-history":[{"count":10,"href":"https:\/\/www.syslab.network\/index.php\/wp-json\/wp\/v2\/pages\/155\/revisions"}],"predecessor-version":[{"id":220,"href":"https:\/\/www.syslab.network\/index.php\/wp-json\/wp\/v2\/pages\/155\/revisions\/220"}],"up":[{"embeddable":true,"href":"https:\/\/www.syslab.network\/index.php\/wp-json\/wp\/v2\/pages\/54"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.syslab.network\/index.php\/wp-json\/wp\/v2\/media\/177"}],"wp:attachment":[{"href":"https:\/\/www.syslab.network\/index.php\/wp-json\/wp\/v2\/media?parent=155"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}