VBA控制自动发信，如何给发件人赋值

duoluoye

Hello All,

在实际应用时，出现以下情况。

使用excel调用OUTLOOK自动发信，源码如下：

Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp.CreateItem(0)
With oMail
       .From="ddd@ddd,com"(部门的SMTP邮件地址）      
       .To = [unique_recipient]___发件人地址，存于excel中
       .body = "Dear。。。"
......
由于我的账号拥有两种权限，一种是以自己为发件人的权限，另一种是以部门名为发件人的权限

如：在发出的邮件中显示    from : ABC（我的姓名）
                                              from : Team（部门的名字）

现在希望能在源码中加入一段代码，默认发件人是部门的名字，我尝试的方法是在原对象下加入.from 直接赋值（上面红字所示），但是提示VBA不支持这种方法。

现求助大家，看看有什么办法能解决这个问题，谢谢大家。

dsd999

mailitem没有from这个属性，所以提示不支持。

由于我的账号拥有两种权限，一种是以自己为发件人的权限，另一种是以部门名为发件人的权限

这句话没理解，你应该有两个账号吧。

duoluoye

感谢朋友，

1，请问有什么方法实现给from 赋值呢？

2，可以这么理解，就是我还拥有使用另一个公共账号的权限。

再次感谢~

dsd999

你的office是那个版本？

duoluoye

MS Office 2007 Pro\

dsd999

如果是2007以上的，可以用.SendUsingAccount 属性。

duoluoye

试了很多次，但是不行，原因如下

.SendUsingAccount 属性的归属是这样

Application.Inspectors.CurrentItem.SendUsingAccount

Inspectors无法调用在本程序中。。。求指点。。。。

duoluoye

PS 我是在EXCEL中写的程序。。。

dsd999

用对象浏览器看看SendUsingAccount这个属性 mailitem有没有。
我感觉你不应该用到Inspectors啊。

duoluoye

你好，经过一番学习，发现SendUsingAccount是mailitem的属性 谢谢提醒

但是 在代码中 使用Dim mlitt as outlook.mailitem 以及 Dim mlitt as object; set mlitt  = createobject("Outlook.Mailitem")      均提示无法定义这个对象， 请给些指点 谢谢。