"benb" <b***@discussions.microsoft.com> wrote in message news:CA6A43E7-3483-4904-81B8-922E88C0956D@microsoft.com...
> Hi,
>
> In this months TechNet magazine, there is a couple of pages on scripting
> signatures in outlook. One of the sample scripts is a vbscript that queries
> active directory, pulls out the user info and then inserts it as a signature.
> However the article doesn't say how to set this script up in outlook. I've
> tried just adding the script to a signature, but when you insert the
> signature it just displays the script as text. How do I assign the script to
> the signature so that it will work correctly?
>

"benb" <b***@discussions.microsoft.com> wrote in message
news:CA6A43E7-3483-4904-81B8-922E88C0956D@microsoft.com...
> Hi,
>
> In this months TechNet magazine, there is a couple of pages on scripting
> signatures in outlook. One of the sample scripts is a vbscript that
> queries
> active directory, pulls out the user info and then inserts it as a
> signature.
> However the article doesn't say how to set this script up in outlook. I've
> tried just adding the script to a signature, but when you insert the
> signature it just displays the script as text. How do I assign the script
> to
> the signature so that it will work correctly?
>

"benb" <benblackmore@nospam.postalias> wrote in message news:e9pOWSL4GHA.1256@TK2MSFTNGP02.phx.gbl...
> Hi Sue,
>
> That worked great, thank you!
>
> I've managed to get it to pull additional info like email address, and
> mobile number, and add formatting using objSelection.Font.Name = "Arial" &
> objSelection.Font.Size = "10".
> However, I was wondering if you knew of a way to insert just a line break,
> rather than a whole new paragraph? The trouble is that using
> "objSelection.TypeParagraph" the signature comes out with:
>
> ===============
> Joe Bloggs
>
> IT Department
>
> My Company
>
> Tel: (1234) 123456
> ==================
> I'd like to format it like this:
> ==================
> Joe Bloggs
> IT Department
> My Company
> Tel: (1234) 123456
> ==================
>
> Thanks for you're help.
>
> Ben
>
> "Sue Mosher [MVP-Outlook]" <sue***@outlookcode.com> wrote in message
> news:eMtSsvJ4GHA.1300@TK2MSFTNGP05.phx.gbl...
> The script doesn't need to be set up in Outlook. As designed, it needs to be
> run once, as from a login script. It seems to have a few errors, though. Try
> this version instead:
>
> On Error Resume Next
>
> Set objSysInfo = CreateObject("ADSystemInfo")
> strUser = objSysInfo.UserName
> Set objUser = GetObject("LDAP://" & strUser)
>
> strName = objUser.FullName
> strTitle = objUser.Title
> strDepartment = objUser.Department
> strCompany = objUser.Company
> strPhone = objUser.TelephoneNumber
>
> Set objWord = GetObject(, "Word.Application")
> If objWord Is Nothing Then
>    Set objWord = CreateObject("Word.Application")
>    blnWeOpenedWord = True
> End If
> Set objDoc = objWord.Documents.Add()
> Set objSelection = objWord.Selection
>
> Set objEmailOptions = objWord.EmailOptions
> Set objSignatureObjects = objWord.EmailOptions.EmailSignature
>
> Set objSignatureEntries = objSignatureObjects.EmailSignatureEntries
>
> objSelection.TypeText strName & ", " & strTitle
> objSelection.TypeParagraph
> objSelection.TypeText strDepartment
> objSelection.TypeParagraph
> objSelection.TypeText strCompany
> objSelection.TypeParagraph
> objSelection.TypeText strPhone
>
> Set objSelection = objDoc.Range()
>
> objSignatureEntries.Add "AD Signature", objSelection
> objSignatureObjects.NewMessageSignature = "AD Signature"
> objSignatureObjects.ReplyMessageSignature = "AD Signature"
>
> objDoc.Close 0
> If blnWeOpenedWord Then
>    objWord.Quit
> End If
>
> "benb" <b***@discussions.microsoft.com> wrote in message
> news:CA6A43E7-3483-4904-81B8-922E88C0956D@microsoft.com...
>> Hi,
>>
>> In this months TechNet magazine, there is a couple of pages on scripting
>> signatures in outlook. One of the sample scripts is a vbscript that
>> queries
>> active directory, pulls out the user info and then inserts it as a
>> signature.
>> However the article doesn't say how to set this script up in outlook. I've
>> tried just adding the script to a signature, but when you insert the
>> signature it just displays the script as text. How do I assign the script
>> to
>> the signature so that it will work correctly?
>>
>
>

news:1159208512.637705.187180@e3g2000cwe.googlegroups.com...
> This script didn't work for me!!!
>
> I am trying to get it to work and I cant, it opens word, adds the text,
> but doesnt' add the signature :(
>
>
> On Error Resume Next
>
> Set objSysInfo = CreateObject("ADSystemInfo")
>
> strUser = objSysInfo.Username
> Set objUser = GetObject("LDAP://" & strUser)
>
> strName = ObjUser.FullName
>
>
>
> Set objWord = CreateObject("Word.Application")
> objWord.Visible = True
>
> Set objDoc = objWord.Documents.Add()
> Set objSelection = objWord.Selection
> objSelection.TypeText strName
> objSelection.TypeParagraph()
>
> objDoc.Select
>
> Set objEmailSign = objWord.EmailOptions.EmailSignature
>
> Set objRange = objDoc.Paragraphs(1).Range
>
> objEmailSign.EmailSignatureEntries.Add "AD Signature", objRange
>
> With objEmailSign
>    .NewMessageSignature = "AD Signature"
>    .ReplyMessageSignature = "AD Signature"
> End With
>
>
> objDoc.Saved = True
>
> rem objWord.Quit
>

"benb" <benblackmore@nospam.postalias> wrote in message
news:e9pOWSL4GHA.1256@TK2MSFTNGP02.phx.gbl...
> Hi Sue,
>
> That worked great, thank you!
>
> I've managed to get it to pull additional info like email address, and
> mobile number, and add formatting using objSelection.Font.Name = "Arial" &
> objSelection.Font.Size = "10".
> However, I was wondering if you knew of a way to insert just a line break,
> rather than a whole new paragraph? The trouble is that using
> "objSelection.TypeParagraph" the signature comes out with:
>
> ===============
> Joe Bloggs
>
> IT Department
>
> My Company
>
> Tel: (1234) 123456
> ==================
> I'd like to format it like this:
> ==================
> Joe Bloggs
> IT Department
> My Company
> Tel: (1234) 123456
> ==================
>
> Thanks for you're help.
>
> Ben
>
> "Sue Mosher [MVP-Outlook]" <sue***@outlookcode.com> wrote in message
> news:eMtSsvJ4GHA.1300@TK2MSFTNGP05.phx.gbl...
> The script doesn't need to be set up in Outlook. As designed, it needs to
> be
> run once, as from a login script. It seems to have a few errors, though.
> Try
> this version instead:
>
> On Error Resume Next
>
> Set objSysInfo = CreateObject("ADSystemInfo")
> strUser = objSysInfo.UserName
> Set objUser = GetObject("LDAP://" & strUser)
>
> strName = objUser.FullName
> strTitle = objUser.Title
> strDepartment = objUser.Department
> strCompany = objUser.Company
> strPhone = objUser.TelephoneNumber
>
> Set objWord = GetObject(, "Word.Application")
> If objWord Is Nothing Then
>    Set objWord = CreateObject("Word.Application")
>    blnWeOpenedWord = True
> End If
> Set objDoc = objWord.Documents.Add()
> Set objSelection = objWord.Selection
>
> Set objEmailOptions = objWord.EmailOptions
> Set objSignatureObjects = objWord.EmailOptions.EmailSignature
>
> Set objSignatureEntries = objSignatureObjects.EmailSignatureEntries
>
> objSelection.TypeText strName & ", " & strTitle
> objSelection.TypeParagraph
> objSelection.TypeText strDepartment
> objSelection.TypeParagraph
> objSelection.TypeText strCompany
> objSelection.TypeParagraph
> objSelection.TypeText strPhone
>
> Set objSelection = objDoc.Range()
>
> objSignatureEntries.Add "AD Signature", objSelection
> objSignatureObjects.NewMessageSignature = "AD Signature"
> objSignatureObjects.ReplyMessageSignature = "AD Signature"
>
> objDoc.Close 0
> If blnWeOpenedWord Then
>    objWord.Quit
> End If
>
> "benb" <b***@discussions.microsoft.com> wrote in message
> news:CA6A43E7-3483-4904-81B8-922E88C0956D@microsoft.com...
>> Hi,
>>
>> In this months TechNet magazine, there is a couple of pages on scripting
>> signatures in outlook. One of the sample scripts is a vbscript that
>> queries
>> active directory, pulls out the user info and then inserts it as a
>> signature.
>> However the article doesn't say how to set this script up in outlook.
>> I've
>> tried just adding the script to a signature, but when you insert the
>> signature it just displays the script as text. How do I assign the script
>> to
>> the signature so that it will work correctly?
>>
>
>

"benb" <benblackmore@nospam.postalias> wrote in message news:udZSWyU4GHA.1196@TK2MSFTNGP02.phx.gbl...
> Hi Sue,
>
> vbCR & TypeParagraph work fine if the email is written in plain or rich
> text, however in HTML it always returns a new full new paragraph. I guess I
> could use '<br>', at the end of each line for HTML, but then if the user
> doesn't have HTML set as default, wouldn't it end up inserting <br> as text,
> so I'd end up with "John Doe<br>Manager<br>IT Department<br>".
> I need something that will give a line feed in plain text, rich text or
> html, or maybe I could force everyone to use either Rich text, or HTML,
> possibly add a section to the script, to set the outlook default!?
>
> Thanks
>
> Ben
>
>
> "Sue Mosher [MVP-Outlook]" <sue***@outlookcode.com> wrote in message
> news:eike9mL4GHA.4924@TK2MSFTNGP05.phx.gbl...
> You should be able to just build one string and use vbCR wherever you want a
> line break, then insert it with one TypeText statement.
>
> "benb" <benblackmore@nospam.postalias> wrote in message
> news:e9pOWSL4GHA.1256@TK2MSFTNGP02.phx.gbl...
>> Hi Sue,
>>
>> That worked great, thank you!
>>
>> I've managed to get it to pull additional info like email address, and
>> mobile number, and add formatting using objSelection.Font.Name = "Arial" &
>> objSelection.Font.Size = "10".
>> However, I was wondering if you knew of a way to insert just a line break,
>> rather than a whole new paragraph? The trouble is that using
>> "objSelection.TypeParagraph" the signature comes out with:
>>
>> ===============
>> Joe Bloggs
>>
>> IT Department
>>
>> My Company
>>
>> Tel: (1234) 123456
>> ==================
>> I'd like to format it like this:
>> ==================
>> Joe Bloggs
>> IT Department
>> My Company
>> Tel: (1234) 123456
>> ==================
>>
>> Thanks for you're help.
>>
>> Ben
>>
>> "Sue Mosher [MVP-Outlook]" <sue***@outlookcode.com> wrote in message
>> news:eMtSsvJ4GHA.1300@TK2MSFTNGP05.phx.gbl...
>> The script doesn't need to be set up in Outlook. As designed, it needs to
>> be
>> run once, as from a login script. It seems to have a few errors, though.
>> Try
>> this version instead:
>>
>> On Error Resume Next
>>
>> Set objSysInfo = CreateObject("ADSystemInfo")
>> strUser = objSysInfo.UserName
>> Set objUser = GetObject("LDAP://" & strUser)
>>
>> strName = objUser.FullName
>> strTitle = objUser.Title
>> strDepartment = objUser.Department
>> strCompany = objUser.Company
>> strPhone = objUser.TelephoneNumber
>>
>> Set objWord = GetObject(, "Word.Application")
>> If objWord Is Nothing Then
>>    Set objWord = CreateObject("Word.Application")
>>    blnWeOpenedWord = True
>> End If
>> Set objDoc = objWord.Documents.Add()
>> Set objSelection = objWord.Selection
>>
>> Set objEmailOptions = objWord.EmailOptions
>> Set objSignatureObjects = objWord.EmailOptions.EmailSignature
>>
>> Set objSignatureEntries = objSignatureObjects.EmailSignatureEntries
>>
>> objSelection.TypeText strName & ", " & strTitle
>> objSelection.TypeParagraph
>> objSelection.TypeText strDepartment
>> objSelection.TypeParagraph
>> objSelection.TypeText strCompany
>> objSelection.TypeParagraph
>> objSelection.TypeText strPhone
>>
>> Set objSelection = objDoc.Range()
>>
>> objSignatureEntries.Add "AD Signature", objSelection
>> objSignatureObjects.NewMessageSignature = "AD Signature"
>> objSignatureObjects.ReplyMessageSignature = "AD Signature"
>>
>> objDoc.Close 0
>> If blnWeOpenedWord Then
>>    objWord.Quit
>> End If
>>
>> "benb" <b***@discussions.microsoft.com> wrote in message
>> news:CA6A43E7-3483-4904-81B8-922E88C0956D@microsoft.com...
>>> Hi,
>>>
>>> In this months TechNet magazine, there is a couple of pages on scripting
>>> signatures in outlook. One of the sample scripts is a vbscript that
>>> queries
>>> active directory, pulls out the user info and then inserts it as a
>>> signature.
>>> However the article doesn't say how to set this script up in outlook.
>>> I've
>>> tried just adding the script to a signature, but when you insert the
>>> signature it just displays the script as text. How do I assign the script
>>> to
>>> the signature so that it will work correctly?
>>>
>>
>>
>
>

> The script doesn't need to be set up in Outlook. As designed, it needs to be run once, as from a login script. It seems to have a few errors, though. Try this version instead:
>
> On Error Resume Next
>
> Set objSysInfo = CreateObject("ADSystemInfo")
> strUser = objSysInfo.UserName
> Set objUser = GetObject("LDAP://" & strUser)
>
> strName = objUser.FullName
> strTitle = objUser.Title
> strDepartment = objUser.Department
> strCompany = objUser.Company
> strPhone = objUser.TelephoneNumber
>
> Set objWord = GetObject(, "Word.Application")
> If objWord Is Nothing Then
>     Set objWord = CreateObject("Word.Application")
>     blnWeOpenedWord = True
> End If
> Set objDoc = objWord.Documents.Add()
> Set objSelection = objWord.Selection
>
> Set objEmailOptions = objWord.EmailOptions
> Set objSignatureObjects = objWord.EmailOptions.EmailSignature
>
> Set objSignatureEntries = objSignatureObjects.EmailSignatureEntries
>
> objSelection.TypeText strName & ", " & strTitle
> objSelection.TypeParagraph
> objSelection.TypeText strDepartment
> objSelection.TypeParagraph
> objSelection.TypeText strCompany
> objSelection.TypeParagraph
> objSelection.TypeText strPhone
>
> Set objSelection = objDoc.Range()
>
> objSignatureEntries.Add "AD Signature", objSelection
> objSignatureObjects.NewMessageSignature = "AD Signature"
> objSignatureObjects.ReplyMessageSignature = "AD Signature"
>
> objDoc.Close 0
> If blnWeOpenedWord Then
>     objWord.Quit
> End If
>
> --
> Sue Mosher, Outlook MVP
>    Author of Configuring Microsoft Outlook 2003
>      http://www.turtleflock.com/olconfig/index.htm
>    and Microsoft Outlook Programming - Jumpstart for
>      Administrators, Power Users, and Developers
>      http://www.outlookcode.com/jumpstart.aspx
>
> "benb" <b***@discussions.microsoft.com> wrote in message news:CA6A43E7-3483-4904-81B8-922E88C0956D@microsoft.com...
> > Hi,
> >
> > In this months TechNet magazine, there is a couple of pages on scripting
> > signatures in outlook. One of the sample scripts is a vbscript that queries
> > active directory, pulls out the user info and then inserts it as a signature.
> > However the article doesn't say how to set this script up in outlook. I've
> > tried just adding the script to a signature, but when you insert the
> > signature it just displays the script as text. How do I assign the script to
> > the signature so that it will work correctly?
> >

<wmcol***@gmail.com> wrote in message news:1160512993.689622.48190@b28g2000cwb.googlegroups.com...
> How do I format the signature to set the first line bold, italic,
> arial, size 10 and all of the other lines as italic, arial, size 10?
> i tried to add the line at the
> objSelection.Font.Name = "Arial" & objSelection.Font.Size = "10" &
> objSelection.Font.bold = True
> but it does not work.
>
> How do I format the signature?
> Sue Mosher [MVP-Outlook] wrote:
>> The script doesn't need to be set up in Outlook. As designed, it needs to be run once, as from a login script. It seems to have a few errors, though. Try this version instead:
>>
>> On Error Resume Next
>>
>> Set objSysInfo = CreateObject("ADSystemInfo")
>> strUser = objSysInfo.UserName
>> Set objUser = GetObject("LDAP://" & strUser)
>>
>> strName = objUser.FullName
>> strTitle = objUser.Title
>> strDepartment = objUser.Department
>> strCompany = objUser.Company
>> strPhone = objUser.TelephoneNumber
>>
>> Set objWord = GetObject(, "Word.Application")
>> If objWord Is Nothing Then
>>     Set objWord = CreateObject("Word.Application")
>>     blnWeOpenedWord = True
>> End If
>> Set objDoc = objWord.Documents.Add()
>> Set objSelection = objWord.Selection
>>
>> Set objEmailOptions = objWord.EmailOptions
>> Set objSignatureObjects = objWord.EmailOptions.EmailSignature
>>
>> Set objSignatureEntries = objSignatureObjects.EmailSignatureEntries
>>
>> objSelection.TypeText strName & ", " & strTitle
>> objSelection.TypeParagraph
>> objSelection.TypeText strDepartment
>> objSelection.TypeParagraph
>> objSelection.TypeText strCompany
>> objSelection.TypeParagraph
>> objSelection.TypeText strPhone
>>
>> Set objSelection = objDoc.Range()
>>
>> objSignatureEntries.Add "AD Signature", objSelection
>> objSignatureObjects.NewMessageSignature = "AD Signature"
>> objSignatureObjects.ReplyMessageSignature = "AD Signature"
>>
>> objDoc.Close 0
>> If blnWeOpenedWord Then
>>     objWord.Quit
>> End If

>>
>> "benb" <b***@discussions.microsoft.com> wrote in message news:CA6A43E7-3483-4904-81B8-922E88C0956D@microsoft.com...
>> > Hi,
>> >
>> > In this months TechNet magazine, there is a couple of pages on scripting
>> > signatures in outlook. One of the sample scripts is a vbscript that queries
>> > active directory, pulls out the user info and then inserts it as a signature.
>> > However the article doesn't say how to set this script up in outlook. I've
>> > tried just adding the script to a signature, but when you insert the
>> > signature it just displays the script as text. How do I assign the script to
>> > the signature so that it will work correctly?
>> >
>

news:1160512993.689622.48190@b28g2000cwb.googlegroups.com...
> How do I format the signature to set the first line bold, italic,
> arial, size 10 and all of the other lines as italic, arial, size 10?
> i tried to add the line at the
> objSelection.Font.Name = "Arial" & objSelection.Font.Size = "10" &
> objSelection.Font.bold = True
> but it does not work.
>
> How do I format the signature?
> Sue Mosher [MVP-Outlook] wrote:
>> The script doesn't need to be set up in Outlook. As designed, it needs to
>> be run once, as from a login script. It seems to have a few errors,
>> though. Try this version instead:
>>
>> On Error Resume Next
>>
>> Set objSysInfo = CreateObject("ADSystemInfo")
>> strUser = objSysInfo.UserName
>> Set objUser = GetObject("LDAP://" & strUser)
>>
>> strName = objUser.FullName
>> strTitle = objUser.Title
>> strDepartment = objUser.Department
>> strCompany = objUser.Company
>> strPhone = objUser.TelephoneNumber
>>
>> Set objWord = GetObject(, "Word.Application")
>> If objWord Is Nothing Then
>>     Set objWord = CreateObject("Word.Application")
>>     blnWeOpenedWord = True
>> End If
>> Set objDoc = objWord.Documents.Add()
>> Set objSelection = objWord.Selection
>>
>> Set objEmailOptions = objWord.EmailOptions
>> Set objSignatureObjects = objWord.EmailOptions.EmailSignature
>>
>> Set objSignatureEntries = objSignatureObjects.EmailSignatureEntries
>>
>> objSelection.TypeText strName & ", " & strTitle
>> objSelection.TypeParagraph
>> objSelection.TypeText strDepartment
>> objSelection.TypeParagraph
>> objSelection.TypeText strCompany
>> objSelection.TypeParagraph
>> objSelection.TypeText strPhone
>>
>> Set objSelection = objDoc.Range()
>>
>> objSignatureEntries.Add "AD Signature", objSelection
>> objSignatureObjects.NewMessageSignature = "AD Signature"
>> objSignatureObjects.ReplyMessageSignature = "AD Signature"
>>
>> objDoc.Close 0
>> If blnWeOpenedWord Then
>>     objWord.Quit
>> End If
>>
>> --
>> Sue Mosher, Outlook MVP
>>    Author of Configuring Microsoft Outlook 2003
>>      http://www.turtleflock.com/olconfig/index.htm
>>    and Microsoft Outlook Programming - Jumpstart for
>>      Administrators, Power Users, and Developers
>>      http://www.outlookcode.com/jumpstart.aspx
>>
>> "benb" <b***@discussions.microsoft.com> wrote in message
>> news:CA6A43E7-3483-4904-81B8-922E88C0956D@microsoft.com...
>> > Hi,
>> >
>> > In this months TechNet magazine, there is a couple of pages on
>> > scripting
>> > signatures in outlook. One of the sample scripts is a vbscript that
>> > queries
>> > active directory, pulls out the user info and then inserts it as a
>> > signature.
>> > However the article doesn't say how to set this script up in outlook.
>> > I've
>> > tried just adding the script to a signature, but when you insert the
>> > signature it just displays the script as text. How do I assign the
>> > script to
>> > the signature so that it will work correctly?
>> >
>

"Scuzzy" <scu***@planet.nl> wrote in message
news:1161169803.352156.87890@k70g2000cwa.googlegroups.com...
> This was just the script I was looking for. And it works great!
> There's just one thing that I can't seem to find.
>
> I would to display the email address in the signature as a link
> (mailto:) I tried simply putting:
>
> objSelection.TypeText "<a href=""mailto:" & strEmail & """>" & strEmail
> & "</a>"
>
> ...But that will give me the whole string in text format.
> Is there a way to get the email address (or any address) to display as
> a clickable link?
>