VBA 操作OUTLOOK发送邮件，启动OUTLOOK要Exchange的帐号密码怎么办

cuiyf2004

我们的OUTLOOK在非域用户电脑时打开时需要Exchange帐号密码。
VBA 操作OUTLOOK自动发送邮件，启动OUTLOOK要密码怎么办？我想通过VBA自动填入相应的帐号密码，不知道哪里属性配置代码。

1. Sub SENDMAIL()
   
2. 
   
3. Dim ou As Object
   
4. 
   
5. Dim oua As Object
   
6. 
   
7. Shell "outlook.exe"
   
8. 
   
9. Set ou = CreateObject("outlook.application")
   
10. 
    
11. 
    
12. Set oua = ou.createitem(0)
    
13. 
    
14. 
    
15. 
    
16. With oua
    
17.    
    
18.     .to = "caaaa@163.com"
    
19. 
    
20.     .Subject = "Hello"
    
21. 
    
22.     .body = "Send Test"
    
23. 
    
24.     .send
    
25. 
    
26. End With
    
27. 
    
28. 
    
29. 
    
30. End Sub

复制代码

cuiyf2004

有大神指点一二么，急盼

大灰狼1976

帮你找到一个相关的贴子（含密码），因为我没有测试过，所以不做任何解释及保证（好吧，其实是不懂）。
http://www.excelpx.com/thread-68498-1-1.html