outlook中有多个账户，如何用vba批量发送邮件时使用指定账户发送？

qiuqiu7456

原先写过vba代码，在office 2010环境下可以批量发送邮件，并且使用的是outlook2010中的默认账户进行发送的。
office升级到2013后，同样的vba运行后始终盯着outlook中我不希望用来批量发送邮件的账户进行发送，不管我默认账户设置哪个。
如何解决这个问题？是否有代码可以指定发送邮件时使用哪一个账户？

闻启学

参考这个  有你所要的答案
Excel发邮件， 如何选择发件人（二选一），如何更改邮件的字体？
http://club.excelhome.net/thread-1130351-1-1.html

qiuqiu7456

感谢2楼！总算解决问题
对照代码后第一次运行还是不行，不论指定item几结果都是用同一个账户发送。
最后发现问题在于最前面的定义，原来的代码也是网上搜的，本来都是定义成object，改成下面的定义后就能顺利指定想要的账户发送邮件了！
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
困扰了我半个月的问题，总算解决了！