Question

关注site。将此代码创建为模块：

Public Sub saveAttachtoDisk(itm As Outlook.MailItem)    
Dim objAtt As Outlook.Attachment

For Each objAtt In itm.Attachments
    objAtt.SaveAsFile "C:\Data\" & objAtt.DisplayName
    Set objAtt = Nothing
Next
End Sub

但是当我设置一个在每次邮件进入时都调用脚本的规则时，没有任何反应。

Answer 1

你的行为看起来是正确的..

您确定自己的电子邮件附有附件吗？

如果有，你试过调试以确保调用这个子？

如果是，那么您是否检查过它实际从电子邮件中获取附件？

还是返回一个空的附件集？

你也可以像这样简化你的每一个 -

function count_auth($tdate) {
  $collection = 'mycollection';
  return $this->db->{$collection}->count(array('date_authenticated' => $tdate));
    }

从Outlook自动下载附件

1 个答案: