[求助]怎样通过vba切换outlook 2003的默认账号

现在有一个需求是编程通过outlook 2003来发送邮件，譬如如下代码

但是如果是通过这样的方式发送邮件的话，outlook就会自动使用默认的账号来发送邮件。有没有什么办法能够切换outlook的默认用户或者使用非默认用户来发送邮件呢？谢谢了

set outlookapp = createobject("outlook.application")

set onamespace = outlookapp.getnamespace("MAPI")

set newmail = outlookapp.createitem(0)

with newmail

.subject = "title"

.body = "test"

.send

end with

那你就调用JMAIL控件发送邮件，可以配置相关信息。

Function JmailSend(Subject, Body, isHtml, HtmlBody, MailTo, From, FromName, Smtp, Username, Password)

。。。。

End Function

多谢楼上的回复。

但是如果是采用其他方式（譬如CDO或者直接用winsocks）的话我自己也能解决了。现在是领导要求必须使用这种方式所以才比较麻烦。

或者坛子里面有没有人知道怎样从Outlook里面得到每个账号的用户名和密码，如果能得到的话偶也可以自己偷偷把密码提取出来然后再用其他方式发送出去。

谢谢各位了……(￣︶￣)↗

主要是这个东西做给老板用，老板不想专门再单输入一次用户名和密码而已。

再顶起来，我也需要这样的功能。最好有人写一段代码可以自动转发新邮件：

1、只要邮件头的内容（比如前300个字）

2、使用指定的邮件帐户发送。

3、不改变平常撰写邮件的默认发送帐户。