RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Common\MailSettings\NewSignature", Company objShell. RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Outlook\Options\Mail\EnableLogging", "0", "REG_DWORD" objShell. RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Common\MailSettings\ReplySignature", Company objShell. RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Common\MailSettings\NewSignature", Company objShell. ExpandEnvironmentStrings ( "%appdata%" ) FolderLocation = UserDataPath & "\Microsoft\AD_Sig\" HTMFileString = FolderLocation & Company & ".htm" RTFFileString = FolderLocation & Company & ".rtf" TXTFileString = FolderLocation & Company & ".txt" objShell. RegWrite RegKey10, "AD_Sig" UserDataPath = ObjShell. TelephoneMobile Dim objShell, RegKey03, RegKey07, RegKey10, RegKeyParm Set objShell = CreateObject ( "WScript.Shell" ) RegKey03 = "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Common\General" RegKey07 = "HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Common\General" RegKey10 = "HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\General" RegKey10 = RegKey10 & "\Signatures" RegKey07 = RegKey07 & "\Signatures" RegKey03 = RegKey03 & "\Signatures" objShell.
physicalDeliveryOfficeName StreetAddress = objuser. Username Set objuser = GetObject ( qQuery ) LogoPath = "" LogoLink = "" FullName = objuser. RefreshSchemaCache qQuery = "LDAP://" & objSysInfo. On Error Resume Next Dim qQuery, objSysInfo, objuser Dim FullName, EMail, Title, PhoneNumber, MobileNumber, FaxNumber, OfficeLocation, Department Dim web_address, FolderLocation, HTMFileString, StreetAddress, Town, State, Company Dim ZipCode, PostOfficeBox, UserDataPath, LogoPath, LogoLink Set objSysInfo = CreateObject ( "ADSystemInfo" ) objSysInfo.
0 kommentar(er)
