本文转载自：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