|
| |
|
|
warpyb1
Posts: 3
Joined: 2/28/2008
Status: offline
 |
VBS Signature scirpting For Outlook - 2/28/2008 10:36:03
Hello every one, I am a bit of Newb when it comes to things like this but heres what Im trying to achieve.
I have a group of companies and users that have signatures made by themselves, I need to get some structure here so I decided to create a script that would look at my AD and pull all the relevant information in to a signature.
Which it does, my issue comes when I am trying to import the company logos in to the signature as the system imports the information fine however it some how shrinks all the picture making them unreadable.
I have searched hi and low for some way of getting VBS to stop shrinking the images but im stuck.. Banging ones head as you might say...
My code is below, I thought that the best way would be to have some sort of routine that would pick the picture up once it had been embedded then reset the picture size back to 100%
But no mater what I try I just cant get the thing to work, I am sure Im half way there but would really appreciate some pointers..
Script below,
'On Error Resume Next
Set objNetwork = CreateObject("WScript.Network")
Set objSysInfo = CreateObject("ADSystemInfo")
strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)
'Declare what Me needs
strTitle = objUser.Title
strName = objUser.FullName
strDepartment = objUser.Department
strCompany = objUser.Company
strPhone = objUser.telephoneNumber
strMail = objUser.mail
strWeb = objUser.wwwhomepage
'Start the word system
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
'Define as an email
Set objEmailOptions = objWord.EmailOptions
Set objSignatureObject = objEmailOptions.EmailSignature
Set objSignatureEntries = objSignatureObject.EmailSignatureEntries
'Create Structure
objSelection.TypeParagraph()
objSelection.Font.name = "Trebuchet MS"
objSelection.Font.Size = 10
objSelection.Font.Bold = False
'objSelection.Font.Color = "128"
objSelection.TypeText "Kind Regards"
objSelection.TypeParagraph()
objSelection.Font.Size = 5
objSelection.TypeParagraph()
objSelection.Font.Size = 10
objSelection.Font.Bold = True
objSelection.TypeText strName
objSelection.TypeParagraph()
objSelection.Font.Bold = False
objSelection.TypeText strDepartment
objSelection.TypeParagraph()
objSelection.Font.Size = 5
objSelection.TypeParagraph()
objSelection.Font.Size = 9
objSelection.Font.Bold = True
objSelection.TypeText strCompany
objSelection.TypeParagraph()
objSelection.TypeText strPhone
objSelection.TypeParagraph()
objSelection.TypeText strWeb
objSelection.TypeParagraph()
'Now lets add the picture based on strCompany
IF strCompany = "CoolBlue IT Solutions" then
Set objShape = objSelection.InLineShapes.AddPicture("\\server1\audit\signatures\Coolblue_h47.jpg")
TestMick() 'Jus todesnt work where I put this part of the function.
ELSEIF strCompany = "GLPTaylors" then
Set objShape = objSelection.InlineShapes.AddPicture("\\server1\audit\signatures\GLP_h47.jpg")
ELSEIF strCompany = "Basics" then
Set objShape = objSelection.InlineShapes.AddPicture("\\server1\audit\signatures\Basics.jpg")
ELSEIF strCompany = "LNTAviation" then
Set objShape = objSelection.InlineShapes.AddPicture("\\server1\audit\signatures\LNT_Aviation.jpg")
ELSEIF strCompany = "LNTConstruction" then
Set objShape = objSelection.InlineShapes.AddPicture("\\server1\audit\signatures\LNT_Construction.jpg")
ELSEIF strCompany = "TeamLNT" then
Set objShape = objSelection.InlineShapes.AddPicture("\\server1\audit\signatures\Team_lnt.jpg")
ELSEIF strCompany = "Ginetta" then
Set objShape = objSelection.InlineShapes.AddPicture("\\server1\audit\signatures\ginetta.jpg")
ELSE Set objShape = objSelection.InlineShapes.AddPicture("\\server1\audit\signatures\LNT_FallBack.jpg")
END IF
objSelection.TypeParagraph()
'Save things back
Set objSelection = objDoc.Range()
'This is the part that I thought would resize the pictures
Sub TestMick()
Set oInl = InLineShapes
For Each oInl in ActiveDocument.InLineShapes
oInl.Height = oInl.Height = 100
oInl.Width = oInl.Width = 100
Next
End Sub
objSignatureEntries.Add "AD Signature", objSelection
objSignatureObject.NewMessageSignature = "AD Signature"
objSignatureObject.ReplyMessageSignature = "AD Signature"
objDoc.Saved = True
objWord.Quit
|
|
|
|
warpyb1
Posts: 3
Joined: 2/28/2008
Status: offline
|
RE: VBS Signature scirpting For Outlook - 3/4/2008 3:51:53
I would really appreciate some help here please.
| |
|
|
|
mcpaton
Posts: 1
Joined: 4/20/2008
Status: offline
|
RE: VBS Signature scirpting For Outlook - 4/20/2008 20:35:29
Hi There
I had the same problem with JPG images resizing to really small pictures. I got around it by saving all files as GIF images, which do not resize. If you use a high quality image to start with, size it down to how you like it, then save as a GIF it should retain it's quality.
| |
|
|
|
warpyb1
Posts: 3
Joined: 2/28/2008
Status: offline
|
RE: VBS Signature scirpting For Outlook - 6/25/2008 10:23:56
Hi I really need some help here, I have got the images saved as Gif's the script imports my logos and details correctly however, the logos are slightly bigger then the document margins and I think this is why the images are becoming smaller.
I need to know how to import the image with out being constrained by the documents margins,
Can I use a different method for getting the pictures???
Please help someone!
| |
|
 New Messages |
 No New Messages |
 Hot Topic w/ New Messages |
 Hot Topic w/o New Messages |
 Locked w/ New Messages |
 Locked w/o New Messages |
|
Post New Thread
Reply to Message
Post New Poll
Submit Vote
Delete My Own Post
Delete My Own Thread
Rate Posts
|
|
|
Printable Version 