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

cuiyf2004

我们的OUTLOOK在非域用户电脑时打开时需要Exchange帐号密码。 VBA 操作OUTLOOK自动发送邮件，启动OUTLOOK要密码怎么办？我想通过VBA自动填入相应的帐号密码，不知道哪里属性配置代码。 Sub SENDMAIL() Dim ou As Object Dim oua As Object Shell "outlook.exe" Set ou = CreateObject("outlook.application") Set oua = ou.createitem(0) With oua         .to = "caaaa@163.com"     .Subject = "Hello"     .body = "Send Test"     .send End With End Sub 复制代码

未忘初心

Shell "outlook.exe"  ?

cuiyf2004

未忘初心 发表于 2017-6-15 11:03
Shell "outlook.exe"  ?

这个是启动OUTLOOK的，启动后要输入exchange的的密码，不知道vba怎么处理，
现在只有手动输入后才能后续的发送邮件

cuiyf2004

求助啊，有大神指导一下么