none
怎么实现用脚本 自动导入签名设置? RRS feed

  • 问题

  •  

    怎么实现用脚本 自动导入签名设置?

    比如说我们固定一个格式. 把脚本发给别人, 别人只要输入 自己的名字和电话, 之后脚本就自动导入到outlook里面去. 并且已经设置好了 是 新邮件的签名还是回复邮件的签名? 用脚本的人只需要输入 自己的名字和电话就可以了. 其他都是脚本生成 和设置?

     

    2008年12月2日 12:17

全部回复

  •  

    怎么实现用脚本 自动导入签名设置?

    比如说我们固定一个格式. 把脚本发给别人, 别人只要输入 自己的名字和电话, 之后脚本就自动导入到outlook里面去. 并且已经设置好了 是 新邮件的签名还是回复邮件的签名? 用脚本的人只需要输入 自己的名字和电话就可以了. 其他都是脚本生成 和设置?

     

     

    2008年12月2日 12:17
  • Dim name,tel
    name=InputBox("请输入你的中文名名","姓名")
    tel=InputBox("请输入你的分机号码,只要输入分机号即可","分机号码")
    mobile=inputbox("如果你愿意可以输入你的手机号码,否则直接按确定","手机号码")
    mail=inputbox("请输入你的EMail地址","mail地址")

    Set objWord = CreateObject("Word.Application")
    objWord.Visible = True
    Set objDoc = objWord.Documents.Add()
    Set objSelection = objWord.Selection

    objSelection.TypeText "*************************************************"
    objSelection.TypeParagraph()
    objSelection.TypeText "XXXX有限公司  "
    objSelection.TypeText name
    objSelection.TypeParagraph()
    objSelection.TypeText "Tel:  +86 9999 9999 9999 ext: "
    objSelection.TypeText tel
    objSelection.TypeParagraph()
    objSelection.TypeText "Fax: +86 9999 9999 9999"
    objSelection.TypeParagraph()
    if len(mobile)=11 then
    objSelection.TypeText "mobile"
    objSelection.TypeParagraph()
    end if
    objSelection.TypeText "Hotline:400 999 9999/ 800 999 999"
    objSelection.TypeParagraph()
    objSelection.TypeText "www.999.com      www.99999.com.cn"
    objSelection.TypeParagraph()
    objDoc.Shapes.AddPicture("\\192.168.20.250\logo.jpg")

    Set objSelection = objDoc.Range()

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

    objSignatureEntries.Add "Scripted Entry", objSelection
    objSignatureObject.NewMessageSignature = "Scripted Entry"
    objSignatureObject.ReplyMessageSignature = "Scripted Entry"

     

    上面的脚本是根据3楼提供的信息去修改的..  但是公司LOGO 加进去有问题.就是 objDoc.Shapes.AddPicture(\\192.168.20.250\jpg\logo.jpg) (公司是域环境图片能正常访问) 插入的图片把之前上面输入的文字全覆盖了.  怎么才能把图片定位到这些输入的文字下面?

    2008年12月4日 11:26
  •  

    dim myvar
    myvar= MsgBox ("这个脚本是添加中文签名、如果你需要添加的是中文签名请点确定继续如果你要添加英文签名请点取消,执行ENG_signature",vbOKCancel)
    if myvar=1 then
     Dim Name,tel,mobil,mail,enter
     
     Name=InputBox("请输入你的中文名","姓名")
     If Len(Name)<1 Then
       Do While Len(Name)<1
        Name=InputBox("对不起,你输入有误,请重新输入你的中文名","姓名")
       loop
     End If
     tel=InputBox("请输入你的分机号码,只要输入分机号即可,但是必须只4位数以上","分机号码")
     If Len(tel)<1 Then
       Do While Len(tel)<1
        tel=InputBox("对不起,你输入的分机号有误,请输入你的分机号码,只要输入分机号即可,但是必须4位数以上","分机号码")
       loop
     End if
     mobile=inputbox("如果你愿意可以输入你的手机号码,否则直接按确定或点取消","手机号码")
     If Len(mobile)=0 Then MsgBox("你未输入手机号码,在签名上将不会显示你的手机号")
     mail=inputbox("请输入你的EMail地址","mail地址")
     If Len(mail)<1 Then
      Do while len(mail)<1
        mail=inputbox("对不起,你输入的mail地址有误,请输入你的EMail地址","mail地址")
      loop
      End If
     Set objWord = CreateObject("Word.Application")
     objWord.Visible = True
     Set objDoc = objWord.Documents.Add()
     Set objSelection = objWord.Selection

     objSelection.TypeText "*************************************************"
     objSelection.TypeParagraph()
     objSelection.TypeText "XXXX公司  "
     objSelection.TypeText name
     objSelection.TypeParagraph()
     objSelection.TypeText "联系电话:  +86 ** **** ****  分机: "
     objSelection.TypeText tel
     objSelection.TypeParagraph()
     objSelection.TypeText "传真: +86 **** ****"
     objSelection.TypeParagraph()
     if len(mobile)=11 Then
        objSelection.TypeText "手机号:"
      objSelection.TypeText mobile
      objSelection.TypeParagraph()
     end if
     objSelection.TypeText "免费服务热线:400 830 3938 / 800 830 3938"
     objSelection.TypeParagraph()
     objSelection.TypeText "www.***.cn      www.***.com.cn"
     objSelection.TypeParagraph()
     objSelection.TypeParagraph()
     objSelection.TypeParagraph()
     objSelection.TypeParagraph()
     objSelection.TypeParagraph()
     objDoc.Shapes.AddPicture "\\172.0.0.1\jpg\logo.jpg",True,"0","0","115","260"
     Set objSelection = objDoc.Range()
     Set objEmailOptions = objWord.EmailOptions
     Set objSignatureObject = objEmailOptions.EmailSignature
     Set objSignatureEntries = objSignatureObject.EmailSignatureEntries
     objSignatureEntries.Add "Signature", objSelection
     objSignatureObject.NewMessageSignature = "Signature"
     objSignatureObject.ReplyMessageSignature = "Signature"
    End If

     

    ------------------------------

    完成了.. 以上是我些的脚本. 初学者.. 希望谁能帮我优化一下..

    特别是  myvar= MsgBox ("这个脚本是添加中文签名、如果你需要添加的是中文签名请点确定继续如果你要添加英文签名请点取消,执行ENG_signature",vbOKCancel)  怎么在对话框里分行写?  现在是一行写完上面的话,太长了. 我想让他分段来写上面的那些文字..

    2008年12月6日 14:29
  •  

    "&vbCr&vbCr&"

     

    加这个? 搞定. 嘿嘿...

     

    2008年12月6日 14:30