Outlook 2003:Permanent extra Line breaks verwijderen

[Verwijderd]

Als ik onder Outlook 2003 een nieuw bericht (html) maakt komt er na ieder regel een extra regel bij.

Nu weet ik dat dit op te lossen is om na iedere regel een shift enter in te geven. Maar is dit ook permanent uit te schakelen?? Ik wil graag onder html blijven mailen omdat ik de opmaak van mijn signature wil behouden.

[F_J_K]

Een extra regel (dus kan je er tekst typen), of exta ruimte voor/na de regel? Als dat tweede: geen HTML gebruiken. Of als je dat om een of andere reden wilt: opmaakprofielstijl aanpassen naar standaard.

[Verwijderd]

bedankt. Met de opmaak style naar standaard te zetten werkt het.

Mijn VBS Script voor een outlook signature werkt nu helemaal.

Hieronder even een opzetje. Ik heb er best wat tijd ingestoken. Mocht iemand het ooit nodig hebben dan kun je dit als voorbeeld gebruiken

code:

' Script to set signature using Active
' Directory fields. 
' Only works when connected to Active 
' Directory
'
' Written By: Tim Vergauwen
' Date: 17/03/08
'
'*****************************************


On Error Resume Next

Set objSysInfo = CreateObject("ADSystemInfo")

strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)

strName = objUser.FullName

Set objWord = CreateObject("Word.Application")
objSelection.Style = ActiveDocument.Styles("Normal")

Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection

Set objEmailOptions = objWord.EmailOptions
Set objSignatureObject = objEmailOptions.EmailSignature

Set objSignatureEntries = objSignatureObject.EmailSignatureEntries

'Dim strText, strHyperlink, intLen,

objselection.TypeText chr(11)
objselection.TypeText chr(11)
objselection.TypeText chr(11)
objselection.TypeText chr(11)
objSelection.Font.Name = "Arial Narrow"
objSelection.Font.Size = "14"
objselection.TypeText chr(09)
objSelection.Font.Bold = True
objSelection.TypeText "Company name"
objSelection.Font.Bold = False
objselection.TypeText chr(11)
objSelection.Font.Name = "Arial Narrow"
objSelection.Font.Size = "11"
objselection.TypeText chr(09)
objSelection.TypeText"address"
objselection.TypeText chr(11)
objselection.TypeText chr(11)
objselection.TypeText chr(11)
objselection.TypeText chr(09)
objSelection.TypeText"P.O. Box"
objselection.TypeText chr(11)
objselection.TypeText chr(09)
objSelection.TypeText"Postcode + City"
objselection.TypeText chr(11)
objselection.TypeText chr(09)
objSelection.TypeText"The Netherlands" 
objselection.TypeText chr(11)
objselection.TypeText chr(09)
objSelection.TypeText"Telnummer"
objselection.TypeText chr(11)
objselection.TypeText chr(09)
objSelection.TypeText"Fax"
objselection.TypeText chr(11)
objselection.TypeText chr(09)


' define constants
Const wdLowerCase = 0
Const wdUpperCase = 1
Const wdToggleCase = 5

Const wdLineBreak = 6


' set variables, change values at will
strURL1 = "Http://www.website.nl"
strURLText1 = "Http://www.website.nl" ' will be converted to lower case later on


' add hyperlink 1
' ---------------
objSelection.Hyperlinks.Add objSelection.Range, strURL1, , , strURLText1, "_blank"

' select whole hyperlink
Set objSelection = objDoc.Range(objSelection.End-Len(strURLText1 & " "),objSelection.End)

' FORCE LOWER CASE
objSelection.Case = wdLowerCase

' apply font styles
With objSelection.Font
    .Name = "Arial Narrow"
    .Size = 11
    .Bold = False
    .Italic = False
    .StrikeThrough = False
        .Outline = False
        .Emboss = False
        .Hidden = False
        .SmallCaps = False
        .AllCaps = False
        .Engrave = False
        .Superscript = False
        .Subscript = False
        .Spacing = 0
        .Scaling = 100
        .Position = 0
        .Kerning = 0
End With

' release selection
Set objSelection = objWord.Selection


' ending
' ------

'Set objSelection = objDoc.Range() 

objselection.TypeText chr(11)
objselection.TypeText chr(09)

' set variables, change values at will
strmail = objUser.mail
strmail1 = objUser.mail ' will be converted to lower case later on


objSelection.Hyperlinks.Add objSelection.range, "mailto:" & strmail, , , strmail1
Set objSelection = objDoc.Range(objSelection.End-Len(strmail1 &" "),objSelection.End)

'FORCE LOWER CASE
objSelection.Case = wdLowerCase

' apply font styles
With objSelection.Font
    .Name = "Arial Narrow"
    .Size = 11
    .Bold = False
    .Italic = False
    .StrikeThrough = False
        .Outline = False
        .Emboss = False
        .Hidden = False
        .SmallCaps = False
        .AllCaps = False
        .Engrave = False
        .Superscript = False
        .Subscript = False
        .Spacing = 0
        .Scaling = 100
        .Position = 0
        .Kerning = 0
End With

' release selection
Set objSelection = objWord.Selection


' ending
' ------


objselection.TypeText chr(11)
objselection.TypeText chr(11)
objselection.TypeText chr(09)
Set objShape = objSelection.InlineShapes.AddPicture("\\server\share\picture.jpg")

objSelection.Font.Size = "11"
Set objSelection = objDoc.Range()


 objSignatureEntries.Add "Signature", objSelection
 objSignatureObject.NewMessageSignature = "Signature"
 objSignatureObject.ReplyMessageSignature = "Signature"


objDoc.Saved = True
objWord.Quit

[ Voor 0% gewijzigd door een moderator op 27-03-2008 17:38 . Reden: FJK: [/code] toegevoegd ]

[F_J_K]

Woei. Dank @delen van je code.
Overigens wil je misschien [code] tags om je code zetten

[SPee]

Is het niet makkelijker om je Signature gewoon in Outlook aan te maken

Options -> Mail Format -> Signatures

[Verwijderd]

SPee schreef op donderdag 27 maart 2008 @ 17:20:
Is het niet makkelijker om je Signature gewoon in Outlook aan te maken

Options -> Mail Format -> Signatures

Dit script is bedoeld voor een organistatie die 1 universele handtekening moet hebben.

Dit script haalt gegevens uit je AD. En kun je over het netwerk pushen.

om nou bij 100 gebruikers "Options -> Mail Format -> Signatures" te doen lijkt me lastig.