首页 | 邮件资讯 | 技术教程 | 解决方案 | 产品评测 | 邮件人才 | 邮件博客 | 邮件系统论坛 | 软件下载 | 邮件周刊 | 热点专题 | 工具
网络技术 | 操作系统 | 邮件系统 | 客户端 | 电子邮箱 | 反垃圾邮件 | 邮件安全 | 邮件营销 | 移动电邮 | 邮件软件下载 | 电子书下载

邮件客户端

邮件技巧 | Outlook | Foxmail | Pegasus | Eudora | Becky! | DreamMail | IncrediMail | KooMail | 雷鸟 | 其它工具 | The bat! |
首页 > 邮件客户端 > Outlook/Outlook Express > Outlook 自动配置脚本 > 正文

Outlook 自动配置脚本

出处:http://www.winclient.cn/article/94.htm 作者:碎片 时间:2008-8-5 18:38:55
     目前有这样一个客户需求:在一期项目当中,客户端不加入域,但要求配置并使用客户端的Outlook。由于客户端数量较大(大约1200个),手工配置太繁琐,工作量也非常巨大,因此写了一个Outlook客户端配置脚本,顺便提供大家一个参考。

1、我们需要有一个Outlook配置文件(PRF文件),此配置文件的生成及具体参数请参考http://technet.microsoft.com/zh-cn/library/cc179062(TechNet.10).aspx

2、执行写好的脚本将配置文件导入并配置Outlook客户端即可(PRF配置文件需要与脚本在同一目录,并在脚本中指定PRF文件的名称)

3、脚本内容


'===================================================================
'
' VBScript Source File  
'
' NAME: Billy Fu
'
' AUTHOR: Outlook配置脚本-Outlook_Profile_Config
'
' DATE  : 2008/7/14
'
'
'===================================================================
ON ERROR RESUME NEXT

Const OFFICE11_PATH = "C:\Program Files\Microsoft Office\Office11"
Const OFFICE12_PATH = "C:\Program Files\Microsoft Office\Office12"

dim strUserName
dim intOfficeVer
dim strOfficePath

strUserName = ""
intOfficeVer = ""
strOfficePath = ""

strUserName = InputBox("请输入您在域中的用户帐号,格式如:BillyFu","Outlook配置脚本")  
If strUserName = "" Then
    Msgbox "取消Outlook配置!"
Else
    while intOfficeVer = ""
  intOfficeVer = InputBox("请输入您本机安装的Outlook版本号:2007或2003,其他版本不支持","Outlook配置脚本","2003")  
  if intOfficeVer = "" then
      Msgbox "Outlook 设置取消!"
      intOfficeVer = "error"
  else
      if intOfficeVer <> "2007" And intOfficeVer <> "2003" Then
    intOfficeVer = ""
      else
    if intOfficeVer = "2007" then
        strOfficePath = OFFICE12_PATH
    else
        strOfficePath = OFFICE11_PATH
    end if
    strOfficePath = InputBox("请确定您本机安装的Outlook路径","Outlook配置脚本",strOfficePath)  
    Call InstallOutlookProfile
      end if
  end if  
    Wend
End If


sub InstallOutlookProfile


    ModifyPRFFile

    Dim WshShell
    Set WshShell = Wscript.CreateObject("Wscript.Shell")
  

    Dim strPath
    strPath = WScript.ScriptFullName  
    strPath = Left(strPath, InstrRev(strPath, "\")) & "OutlookProfile1.PRF" '指定Outlook PRF 配置文件
  
    dim strCmd
    strCmd = """" & strOfficePath & "\outlook.exe"" /importprf """ & strPath & """"  
    WshShell.Run strCmd, 1, false
end sub

sub ModifyPRFFile

   Const ForReading = 1, ForWriting = 2, ForAppending = 8
   Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
   Dim strCon


   Dim fso, f1, f2, ts
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f1 = fso.GetFile("OutlookProfile.PRF") '设置从Outlook配置文件中读取信息
   Set ts = f1.OpenAsTextStream(ForReading, TristateUseDefault)
   strCon = ts.ReadAll
   ts.close

   strCon = Replace(strCon,"%UserName%",strUserName)


   fso.CreateTextFile "OutlookProfile1.PRF"  
   Set f2 = fso.GetFile("OutlookProfile1.PRF") '创建一个配置文件
   Set ts = f2.OpenAsTextStream(ForWriting, TristateUseDefault)
   ts.Write strCon
   ts.Close

end sub

sub Err

   if err <> 0 then
      Wscript.echo "Outlook配置脚本出错,自动退出!"
      Err.Clear
   end if

end sub

 

相关文章 热门文章
  • Outlook 2003与Exchange 2010结合使用中可能出现的问题及建议的解决方法
  • 自定义 Outlook Web App (OWA) 2010的登录和注销页
  • 配置Exchange 2010+Outlook 2010自动发现功能
  • 在Outlook的POP/IMAP4帐号中配置LDAP通讯录
  • Outlook 2003的运行模式和较大信息的处理
  • 自动产生邮件配置文件 使用CIW来自定义Outlook 2003安装过程
  • Outlook使用技巧
  • 在GAL中通过“职务”搜索联系人
  • 在安装Office之后配置Outlook地址簿
  • 在Outlook 2003邮件合并中打印输出时让姓氏大写
  • Outlook将不同邮件分类存放
  • Outlook 2010挖出盖茨入监照片做用户头像
  • outlook、foxmail备份教程
  • 精通Outlook Express
  • Outlook技巧六则
  • Outlook Express错误代码表
  • Outlook 可以接收但不能发送邮件
  • Outlook崩溃后如何抢救其中的邮件数据
  • 如何恢复outlook硬删除的文件
  • Outlook Express使用技巧大全(上)
  • 如何恢复在outlook express中误删除的邮件
  • Outlook Express使用技巧大全(下)
  • 如何恢复Outlook Express中误删的邮件
  • 将Outlook Express通讯簿联系人复制到 Outlook
  • 自由广告区
     
    最新软件下载
  • SharePoint Server 2010 部署文档
  • Exchange 2010 RTM升级至SP1 教程
  • Exchange 2010 OWA下RBAC实现的组功能...
  • Lync Server 2010 Standard Edition 标..
  • Lync Server 2010 Enterprise Edition...
  • Forefront Endpoint Protection 2010 ...
  • Lync Server 2010 Edge 服务器部署文档
  • 《Exchange 2003专家指南》
  • Mastering Hyper-V Deployment
  • Windows Server 2008 R2 Hyper-V
  • Microsoft Lync Server 2010 Unleashed
  • Windows Server 2008 R2 Unleashed
  • 今日邮件技术文章
  • 腾讯,在创新中演绎互联网“进化论”
  • 华科人 张小龙 (中国第二代程序员 QQ...
  • 微软推出新功能 提高Hotmail密码安全性
  • 快压技巧分享:秒传邮件超大附件
  • 不容忽视的邮件营销数据分析过程中的算..
  • 国内手机邮箱的现状与未来发展——访尚..
  • 易观数据:2011Q2中国手机邮箱市场收入..
  • 穿越时空的爱恋 QQ邮箱音视频及贺卡邮件
  • Hotmail新功能:“我的朋友可能被黑了”
  • 入侵邻居网络发骚扰邮件 美国男子被重..
  • 网易邮箱莫子睿:《非你莫属》招聘多过..
  • 中国电信推广189邮箱绿色账单
  • 最新专题
  • 鸟哥的Linux私房菜之Mail服务器
  • Exchange Server 2010技术专题
  • Windows 7 技术专题
  • Sendmail 邮件系统配置
  • 组建Exchange 2003邮件系统
  • Windows Server 2008 专题
  • ORF 反垃圾邮件系统
  • Exchange Server 2007 专题
  • ISA Server 2006 教程专题
  • Windows Vista 技术专题
  • “黑莓”(BlackBerry)专题
  • Apache James 专题
  • 分类导航
    邮件新闻资讯:
    IT业界 | 邮件服务器 | 邮件趣闻 | 移动电邮
    电子邮箱 | 反垃圾邮件|邮件客户端|网络安全
    行业数据 | 邮件人物 | 网站公告 | 行业法规
    网络技术:
    邮件原理 | 网络协议 | 网络管理 | 传输介质
    线路接入 | 路由接口 | 邮件存储 | 华为3Com
    CISCO技术 | 网络与服务器硬件
    操作系统:
    Windows 9X | Linux&Uinx | Windows NT
    Windows Vista | FreeBSD | 其它操作系统
    邮件服务器:
    程序与开发 | Exchange | Qmail | Postfix
    Sendmail | MDaemon | Domino | Foxmail
    KerioMail | JavaMail | Winwebmail |James
    Merak&VisNetic | CMailServer | WinMail
    金笛邮件系统 | 其它 |
    反垃圾邮件:
    综述| 客户端反垃圾邮件|服务器端反垃圾邮件
    邮件客户端软件:
    Outlook | Foxmail | DreamMail| KooMail
    The bat | 雷鸟 | Eudora |Becky! |Pegasus
    IncrediMail |其它
    电子邮箱: 个人邮箱 | 企业邮箱 |Gmail
    移动电子邮件:服务器 | 客户端 | 技术前沿
    邮件网络安全:
    软件漏洞 | 安全知识 | 病毒公告 |防火墙
    攻防技术 | 病毒查杀| ISA | 数字签名
    邮件营销:
    Email营销 | 网络营销 | 营销技巧 |营销案例
    邮件人才:招聘 | 职场 | 培训 | 指南 | 职场
    解决方案:
    邮件系统|反垃圾邮件 |安全 |移动电邮 |招标
    产品评测:
    邮件系统 |反垃圾邮件 |邮箱 |安全 |客户端
    广告联系 | 合作联系 | 关于我们 | 联系我们 | 繁體中文
    版权所有:邮件技术资讯网©2003-2010 www.5dmail.net, All Rights Reserved
    www.5Dmail.net Web Team   粤ICP备05009143号