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