三个脚本中，powershell速度最慢，而且会有命令行窗口弹出，而ahk和python相对速度会快一点。

下面贴出三个代码

1
2
3
4
5
6
7
8
9
10

$outlook = new-object -com outlook.application
$mail = $outlook.CreateItem(0)

$mail.Subject = $args[0]
foreach ( $file in $args[1..($args.count-1)] )
{
    $mail.Attachments.add($file) | Out-Null
}
$mail.Display()
return

1
2
3
4
5
6
7
8

Outlook := ComObjCreate("Outlook.Application")
Mail := Outlook.CreateItem[0]
m = %1%
Mail.Subject := m
Loop %0%  ; 
    ifnotequal, A_index, 1
        Mail.Attachments.add(%A_Index%)
Mail.display()

1
2
3
4
5
6
7
8

from win32com.client.gencache import EnsureDispatch as Dispatch 
outlook = Dispatch("Outlook.Application")
ma = outlook.CreateItem(0) 
ma.Subject = "test" 
ma.To = "c@c" 
ma.Attachments.Add("C:/BOOTNXT") 
ma.Attachments.Add("C://BOOTNXT")
ma.Display()

脚本需要增加使用指定账号生成邮件的功能。google后，很容易就找到设置 mail.SendUsingAccount 属性为指定账号就可以了。

在ahk上很快通过

1

Mail.SendUsingAccount := Outlook.Session.Accounts.Item("[email protected]")

但是ps和py用上面的方法始后，还是显示SendUsingAccount为空。

如果我在outlook界面上修改发送账号，如下图，改变发件人，可以修改发送账号，SendUsingAccount会跟着改变，并且用上面的方法也可以修改SendUsingAccount的值。似乎在SendUsingAccount为空的情况下会赋值失败，直到SendUsingAccount有了初始值以后，才能正确赋值。

这个兄弟的遭遇和我一摸一样

我觉得这是Outlook一个BUG!!

1
2

https://social.msdn.microsoft.com/Forums/windows/en-US/7afc9e42-ca4f-491b-8c50-19556fb4e1cf/sendusingaccount-does-not-work-in-outlook-2010-possible-bug?forum=outlookdev

解决方法分别为。

1
2

account = outlook.Session.Accounts.Item("[email protected]")
ma._oleobj_.Invoke(*(64209, 0, 8, 0, account))     # ma.SendUsingAccount = account

1
2

$account = $outlook.Session.Accounts.Item("[email protected]")
$mail.GetType().InvokeMember("SendUsingAccount","SetProperty",$NULL,$mail,$account)

通过帖子，隐约猜到应该是传值和传指针的问题，至于为什么，我也不知道。