zoukankan      html  css  js  c++  java
  • (转)2009-05-25 22:12 Outlook2007选择发送帐号

    本文转载自:http://hi.baidu.com/vugwggogodaenqe/item/c95c6d019457a2d873e676ec

    outlook2007可以用程序选择发送帐号,其他的版本好像不行。

    例如,有两个帐号,一个用来内部沟通,一个与客户沟通,如果手工去选择就可能会点错,如果让程序根据特定条件去选择发送帐号就会提高准确率和效率

    Public Sub Check_account()

    Dim onMAPI As outlook.NameSpace
    Dim mail As outlook.mailitem
    dim sender As account '帐号

    Set onMAPI = outlook.Application.GetNamespace("MAPI")
    Set mail = Application.ActiveInspector.CurrentItem

    If (mail.subject like "*Int") Then  
    Set sender = onMAPI.Accounts.Item("Intmail")

    'Intmail为名称,就是帐号列表中显示的名称,大小写也要完全相同才可以
    Else
    Set sender = onMAPI.Accounts.Item("Cusmail")
    End If

    End Sub

     
  • 相关阅读:
    andorid UI事件 监听器
    12小时进制的时间输出的编辑代码
    Java运算符
    运算符的优先级
    UTF-8
    对ASCII的了解
    数组
    Java语法基础
    Java的跨平台
    指针的了解
  • 原文地址:https://www.cnblogs.com/wpcnblog/p/3688288.html
Copyright © 2011-2022 走看看