I'm referring to options such as whether an item is marked as read when the
selection changes, and number of items to display per page, etc.
---
If WScript.Arguments.Count<>0 Then
WScript.Echo "Processing "+WScript.Arguments(0)+"..."
username=WScript.Arguments(0)
signature_path="\\iff-server\usersettings$\"+username+"\Outlook\signature."
signature_html=""
signature_text=""
Set fs=CreateObject("Scripting.FileSystemObject")
If fs.FileExists(signature_path+"htm") Then
Set a = fs.OpenTextFile(signature_path+"htm")
add=False
while not a.AtEndOfStream
x=a.ReadLine
If add Then signature_html=signature_html+x
If x="<!-- Converted from text/plain format -->" Then add=True
wend
a.Close
End If
If fs.FileExists(signature_path+"txt") Then
Set a = fs.OpenTextFile(signature_path+"txt")
signature_text=a.ReadAll
a.Close
End If
rem Update Exchange OWA
Dim oRec
Set oRec=CreateObject("ADODB.Record")
With oRec
.Open "file://./backofficestorage/iff.uni-stuttgart.de/MBX/"+username,,3
.Fields("http://schemas.microsoft.com/exchange/previewmarkasread")=2
.Fields("http://schemas.microsoft.com/exchange/autoaddsignature")=True
.Fields("http://schemas.microsoft.com/exchange/quicklinks")=1
.Fields("http://schemas.microsoft.com/exchange/signaturetext")=signature_tex
t
.Fields("http://schemas.microsoft.com/exchange/signaturehtml")=signature_htm
l
.Fields.Update
.Close
End With
Set oRec = Nothing
End If
---
"Sumner Paine" <sum...@attbi.com> schrieb im Newsbeitrag
news:2i9ajmF...@uni-berlin.de...
--
Ben Winzenz
Exchange MVP
"Lofote" <nothi...@spammers.com> wrote in message
news:uX0cpBcS...@TK2MSFTNGP09.phx.gbl...
"Ben Winzenz [Exchange MVP]" <ben_winzenz@NOSPAMdotmessageonedotcom> wrote
in message news:uenzf3jS...@tk2msftngp13.phx.gbl...