天道酬勤,学无止境

VBA 从具有多个帐户的电子邮件中保存附件(基于定义的标准)(VBA to save attachments (based on defined criteria) from an email with multiple accounts)

问题
Sub email() Application.ScreenUpdating = False On Error Resume Next Dim olApp As New Outlook.Application Dim olNameSpace As Object Dim olMailItem As Outlook.MailItem Dim olFolder As Object Dim olFolderName As String Dim olAtt As Outlook.Attachments Dim strName As String Dim sPath As String Dim i As Long Dim j As Integer Dim olSubject As String Dim olSender As String Dim sh As Worksheet Dim LastRow As Integer ThisWorkbook.Worksheets("FileNames").Rows(2 & ":" & ThisWorkbook.Worksheets("FileNames").Rows.count).Delete olFolderName = ThisWorkbook.Worksheets("Control").Range("D10") olSender = ThisWorkbook.Worksheets("Control").Range("D16") sPath = Application.FileDialog(msoFileDialogFolderPicker).Show sPathstr = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) Set olNameSpace = olApp.GetNamespace("MAPI") 'check if folder is subfolder or not and choose olFolder accordingly Set olFolder = olNameSpace.GetDefaultFolder(olFolderInbox).Folders(olFolderName) If (olFolder = "") Then Set olFolder = olNameSpace.GetDefaultFolder(olFolderInbox).Parent.Folders(olFolderName) End If 'loop through mails h = 2 For i = 1 To olFolder.Items.count Set olMailItem = olFolder.Items(i) If (InStr(1, olMailItem.SenderEmailAddress, olSender, vbTextCompare) <> 0) Then With olMailItem 'loop through attachments For j = 1 To .Attachments.count strName = .Attachments.Item(j).DisplayName 'check if file already exists If Not Dir(sPathstr & "\" & strName) = "" Then .Attachments(j).SaveAsFile sPathstr & "\" & "(1)" & strName ThisWorkbook.Worksheets("FileNames").Range("A" & h) = "(1)" & strName Else .Attachments(j).SaveAsFile sPathstr & "\" & strName ThisWorkbook.Worksheets("FileNames").Range("A" & h) = strName End If h = h + 1 Next End With End If Next Application.ScreenUpdating = True MsgBox "Download complete!", vbInformation + vbOKOnly, "Done" End Sub
回答1
?application.ActiveExplorer.CurrentFolder.FolderPath \\dkusleika@copmany.com\Inbox \\DKPersonal\Inbox Set olFolder = Application.GetNamespace("MAPI").Folders("dkusleika@company.com").Folders("Inbox")
标签

受限制的 HTML

  • 允许的HTML标签:<a href hreflang> <em> <strong> <cite> <blockquote cite> <code> <ul type> <ol start type> <li> <dl> <dt> <dd> <h2 id> <h3 id> <h4 id> <h5 id> <h6 id>
  • 自动断行和分段。
  • 网页和电子邮件地址自动转换为链接。

相关推荐
  • VBA 循环浏览电子邮件附件并根据给定条件保存(VBA to loop through email attachments and save based on given criteria)
    问题 这是对上一个问题的跟进(VBA 从具有多个帐户的电子邮件中保存附件(基于定义的标准)) 场景:我有一个代码,它遍历某个 Outlook 帐户中的所有电子邮件,并将附件保存到选定的文件夹中。 以前,我的问题是选择从哪里提取附件的文件夹(和帐户)(通过上一个问题的建议解决了这个问题)。 问题 1:代码在该行显示“类型不匹配”错误: Set olMailItem = olFolder.Items(i) 问题 2:如问题标题所述,我的主要目标是遍历所有附件并仅保存那些具有给定条件的附件(excel 文件,工作表名称为“ASK”,工作表名称为“BID”)。 不仅仅是一个简单的如果要考虑到这些标准,我必须将所有文件下载到“临时文件夹”,进行选择并将最终生成的文件放在输出文件夹中,或者将所有文件下载到最终文件夹并删除不符合标准。 问题:我似乎无法找到执行其中任何一个操作的方法。 问题:如何做到这一点? 这两者中的哪一个更有效? 代码: Sub email() Application.ScreenUpdating = False Dim olApp As New Outlook.Application Dim olNameSpace As Object Dim olMailItem As Outlook.MailItem Dim olFolder As Object Dim
  • Python自动化收发邮件
    我们每天在公司和非公司生活中收发大量电子邮件。 事实是,这些交易中的很大一部分确实可以自动化。 当我们度过一天的大部分时间,向所有人发送或多或少相同的电子邮件时,也许我们都可以与生活中具有里程碑意义的时刻相关。 实际上,使用Python,您可以建立和部署自动电子邮件管道来接收电子邮件,然后根据前者的内容发送电子邮件。 换句话说,您可以在工作或在家中执行更具影响力的任务时,自动化工作。 绝对不需要精通技术,而且我们要做的事情很琐碎,以至于我们每个人都可以在短时间内做到这一点。 在学习完本文之后,您将学习如何自动接收电子邮件,使用内容和附件生成图表,然后最终将具有令人炫目的仪表板的电子邮件发送给许多收件人。 接收 尽管本教程中使用的技术可以应用于使用标准IMAP协议的任何电子邮件服务器,但某些服务器(例如Gmail)在使用方面可能有所不同。 如果确实使用的是Gmail,请确保已在Google帐户中启用安全性较低的应用程序选项,如下所示: 继续并启动Anaconda或您选择的任何其他Python IDE,然后运行以下代码段以连接到您的电子邮件帐户并下载收件箱的所有内容。 另外,请注意,存储用户凭据的一种更安全的方法是将它们保存在配置文件中,然后在代码中将它们作为参数调用。 解析邮件内容和附件 现在,假设您正在等待带有Microsoft Excel附件的电子邮件,其中包含许多学生的考试结果
  • 100个Java项目解析,带源代码和学习文档!
    前言 你是否正在寻找带有源代码的Java项目的免费集合?你的搜索到这里结束,我为你提供了近100多个Java项目。 想要成为一个优秀的程序员写项目是绕不开的,毕竟工程学的最终目标都是要创造东西,所以,代码给我敲起来! 文中所有项目的源码和学习文档都可以免费下载,以及我整理的 一些Java学习资料都可以免费分享。需要的朋友可以自行点击链接进群即可领取。 项目源码和学习笔记 22本Java架构师核心书籍 从0到1Java学习路线和资料 1000+道2021年最新面试题 话不多说,坐稳扶好,发车喽 在线作业门户 安置系统的重要性日益增加。 成千上万的申请人依赖于安置单元。 但是申请人面临许多问题。 该项目旨在最大程度地减少求职者寻找正确工作的问题。 如果我们可以使其成为一个在线计算机化的移动提醒程序,它将对申请人如此之快和便捷。但是,从令人烦恼的事情开始,新技术已使大多数0人的生活变得更加美好和轻松,因此必须做到这一点。结论是他们应该受到欢迎。 在线考试 考试软件是一种考试管理软件,可为基于计算机的考试(CBT)提供完整的解决方案,用于在设定的时间段内设置多项选择题,提交后将自动更正,并将结果记录在学生的参考号旁边。###特征 管理员登录。 学生注册。 管理和更新学生信息,说明和问题。 修正每个问题的否定分数和最大分数的范围。 以总分,正确回答尝试和 的形式显示结果 未尝试问题 。
  • 请你拿出30分钟精读此文,系统掌握终身受用的JAVA实战案例!
    前言 最近针对互联网公司面试问到的知识点,总结出了Java程序员面试涉及到的绝大部分面试题及答案分享给大家,希望能帮助到你面试前的复习且找到一个好的工作,也节省你在网上搜索资料的时间来学习。 内容涵盖:Java、MyBatis、ZooKeeper、Dubbo、Elasticsearch、Memcached、Redis、MySQL、Spring、SpringBoot、SpringCloud、RabbitMQ、Kafka、Linux等技术栈。 完整版Java面试题地址:JAVA后端面试题整合 在线作业门户 安置系统的重要性日益增加。 成千上万的申请人依赖于安置单元。 但是申请人面临许多问题。 该项目旨在最大程度地减少求职者寻找正确工作的问题。 如果我们可以使其成为一个在线计算机化的移动提醒程序,它将对申请人如此之快和便捷。但是,从令人烦恼的事情开始,新技术已使大多数0人的生活变得更加美好和轻松,因此必须做到这一点。结论是他们应该受到欢迎。 在线考试 考试软件是一种考试管理软件,可为基于计算机的考试(CBT)提供完整的解决方案,用于在设定的时间段内设置多项选择题,提交后将自动更正,并将结果记录在学生的参考号旁边。 ###特征 管理员登录。 学生注册。 管理和更新学生信息,说明和问题。 修正每个问题的否定分数和最大分数的范围。 以总分,正确回答尝试和 的形式显示结果 未尝试问题 。
  • Windows 10安全指南
    Windows 10安全指南 xiaohui 嘶吼专业版 人们很容易认为,保护Windows 10设备的过程非常简单,甚至按着一定之规操作就可以了。比如,安装一些安全软件,调整一些设置,进行一两次培训,然后你就可以高枕无忧了。 但现实世界要复杂得多,初始设置只是建立一个安全基线。在完成初始配置之后,安全性需要持续的警惕和持续的工作。保护Windows 10设备的大部分工作都是要根据实际运行环境进行的。精心策划的安全策略会关注网络流量、电子邮件帐户、身份验证机制、管理服务器和其他外部连接。 本指南涵盖了大量的实际案例,每个标题都讨论了决策者在部署Windows 10PC时必须考虑的问题。虽然它涵盖了许多可用的参考样本,但这不是一个实际意义上的操作指南。 在大型企业中, IT人员应该包括能够管理这些步骤的安全专家。在没有专门IT人员的小型企业中,将这些职责外包给具有必要专业知识的顾问可能是最好的方法。 不过,在进行单个Windows设置之前,请花一些时间进行威胁评估。特别是,在发生数据泄露或其他与安全相关的事件时,要意识到自己的法律和监管责任,以下方法适用于所有规模的企业。 管理更新 对于任何Windows 10PC来说,最重要的一个安全设置是确保定期、按时安装更新。当然,这适用于所有现代计算设备,但微软在Windows 10中引入的“Windows即服务”(Windows as a
  • Office Outlook 打开邮件附件时提示“禁止访问下列具有潜在不安全因素的附件”的解决方法
    Microsoft Outlook 包含一项可阻止被认为不安全的附件的功能。如果您收到一封带附件的电子邮件,该附件包含某种被认为是不安全的文件类型,您可能会收到以下消息: "Outlook 禁止访问下列具有潜在不安全因素的附件:[...]" 尽管 Outlook 可阻止对此附件的访问,但此附件仍在电子邮件中。 此安全功能增加了针对恶意电子邮件的保护级别。 可请求发件人重命名文件扩展名,然后将附件重新发送给您。收到重命名的附件后,您可以用原来的文件扩展名重命名该文件。 如果前面推荐的方法不能满足您的要求,请使用下列方法之一:如果您处于 Microsoft Exchange 环境中而且管理员已配置了 Outlook 安全设置,那么可以请管理员修改您邮箱的安全设置。如果您不在 Exchange 环境中,则请修改 Windows 注册表以自定义附件安全设置。 警告:如果使用注册表编辑器或其他方法错误地修改了注册表,则可能导致严重问题。这些问题可能需要重新安装操作系统才能解决。Microsoft 不能保证您可以解决这些问题。修改注册表需要您自担风险。 如果您在下列某一情形下使用 Outlook,则可以在 Outlook 中修改附件安全行为:不是在 Exchange 环境中使用 Outlook。在 Exchange 环境中,管理员尚未将 Outlook 安全设置配置为禁止更改附件安全行为。
  • Excel VBA Project已生成多个Workbook对象(Excel VBA Project has generated multiple Workbook objects)
    问题 我负责一个非常大的Excel 2010电子表格,该电子表格具有指向各种外部数据源的链接,包括彭博社,具有vba模块的65个工作表以及对其他vba加载项的引用。 我注意到VBA项目已经获得了多个Workbook对象。 有标准的ThisWorkbook。 但是,许多工作表也已被Excel转换为工作簿对象,将原始工作表保留为前一个工作表的副本,减去了代码。 这似乎不是任何人的行为造成的。 确实,我认为不可能有多个Workbook对象! 例如,我有一个名为wksInputs的工作表,现在已经变成了工作簿对象,原始的wksInputs现在称为wksInputs1。 我无法删除wksInputs Workbook对象。 请有人帮忙解释一下这是怎么回事,以及我如何能够解决问题...? 非常感谢。 回答1 当我将工作表作为参数传递给Sub时,我的代码中发生了此问题,如下所示: 调用BuildCodeStrings(Sheet2,sAccount) Sub BuildCodeStrings(wsSource作为工作表,s作为字符串) 为了解决该问题,我创建了一个新的工作簿,将所有数据从原始工作簿中的所有合法工作表复制到新工作簿中的同名工作表中。 然后将所有代码从原始代码复制到新工作簿。 然后我将子例程调用更改为 呼叫BuildCodeStrings(“ IC帐户”,sAccounts) Sub
  • 如何使用Excel发送邮件?
    假设你有一个Excel,其中列出了所有收件人的信息,如下所示:如果需要向列表中的每个用户发送一封邮件,最好使用当前记录生成一个附件,并且格式如下:姓名, 发送消息你应该怎么办?一个一个拷贝发送?用python?答案是,都不用,Excel自己解决。通过本文,你将知道以下问题的答案:什么是VBAVBA能够做什么怎么编辑VBA如何将VBA保存到Excel文件为你的VBA脚本创建一个快捷键VBA如何创建一个Excel文件VBA如何将本Excel中的数据读出并写到另一个文件VBA如何生成并发送一个邮件?发送邮件过程总述1. 什么是VBA根据微软官网的解释:Office Visual Basic for Applications (VBA) 是事件驱动的编程语言,可以借助它扩展 Office 应用程序。https://docs.microsoft.com/zh-cn/office/vba/api/overview/根据官网定义,我们不难理解,VBA是用来扩展Office软件功能的一门编程语言。并且VBA不仅仅可以用在Excel,还能用在Outlook,Access,Word等Office软件中。这就为我们使用VBA读取Excel内容并发送邮件奠定了基础。2. VBA能够做什么作为一门编程语言,理论上讲,VBA可以做到任何编程语言可以做到的事情,比如:根据Excel中数据进行数据统计
  • 使用“流星帐户”包链接多个服务(Using Meteor Accounts package to link multiple services)
    问题 因此,Meteor拥有出色的Accounts程序包,可通过密码或其他服务轻松登录。 但是,我当前正在创建一个需要多个服务(facebook / twitter / etc)的网络服务。 此处的链接:如何将外部服务登录名添加到Meteor中已存在的帐户中? 通过创建重复的帐户并仅合并数据来建议“黑客入侵”,但对我来说似乎并不令人满意。 所以我的问题是: 1)有没有更优雅的方法来使用Accounts-xxx程序包创建一个用户但附加了多个服务? 2)如果没有,我是否可以使用现在分离的oauth软件包将令牌添加到一个用户上。 例如,如果在以后手动“附加”了github令牌,Accounts.loginWithGithub还会在以后自动找到手动合并的帐户吗? 谢谢你的帮助。 回答1 解决了! 我已经通过反向工程accounts-oauth-X软件包解决了这个问题! 处理所有极端情况的最佳解决方案是为登录创建一个故事,为显式关联创建另一个故事。 这是用识字的咖啡脚本编写的解决方案。 前: 确保您具有必需的软件包: meteor add google meteor add facebook meteor add oauth 进行多服务登录的方法: 如果帐户具有相同的电子邮件,则会自动加入帐户。 最好用于登录,因为它很健壮。 但是,这对于显式关联不利,因为如果电子邮件地址不同
  • 开源Odoo ERP13.2版本模块功能
    开源Odoo ERP采用开源商业模式为核心运营,欧度软件江苏有限公司是Odoo在中国国内的官方合作伙伴。以用户为中心,系统包含客户关系管理,采购管理,销售管理,库存管理,生产管理,财务管理,供应链管理,人力资源管理,营销管理,网站设计,电子商务,即时通讯及客户服务支持等现代化的企业管理需求。伴随着Odoo13.2版本发行,Odoo13.2系统更新的模块功能如下: 会计 银行对帐 当金额低于发票/账单时,避免将发票/账单设置为已付款。 批量付款 改进了批量付款错误报告。可选择分批付款,以实现SEPA信用转移的批量预订。 汇入日期 创建和管理折旧资产,并获得完整的折旧报告(考虑历史数据)。 设计 财务报告的新设计(对布局进行了一些改进)。 筛选器 为了清楚起见,“客户”和“供应商”联系筛选器已重命名为“客户发票”和“供应商账单”。 总体改进 UX改进(会计科目表和税务报告配置)。人力资源费用的新菜单。打印支票是一个常规选项。 日志视图 日记视图中的键盘导航已得到改进。人力资源费用文件预览。 分类帐视图 分类帐视图已得到改善。添加余额和累积余额列。 与发票链接 最好从“开票”切换到“会计”应用。Interco模块改进。 支付状态 发票/退款的状态已得到改善。您可以跟踪付款状态以及付款时间。 重构 财务报表的重构现在可以提供更好的性能。 更安全的货币取整因子更新。 技术改进
  • ATT&ck 入口点 —— 其他攻击
    目录 利用公开漏洞 外部远程服务 渗透到其他网络介质 硬件攻击 通过可移动媒体进行复制 鱼叉式钓鱼附件 鱼叉式钓鱼链接 通过服务进行鱼叉式网络钓鱼 供应链妥协 利用可靠关系 利用合法帐号 近距离通讯攻击 [未知漏洞攻击] 利用公开漏洞 利用软件、数据库、中间件、第三方库或存在漏洞的库等公开的漏洞,对目标系统进行攻击,以达到攻击未及时修补或升级的信息系统。 公开漏洞来源: 1. CVE、CNVD、CNNVD、exploit-db 等漏洞库 2. qq 群、推特、社区、论坛等社交平台、公众号 3. github、码云 外部远程服务 VPN,Citrix 等远程服务和其他访问机制允许用户从外部位置连接到内部 企业网络资源。通常有远程服务网关来管理这些服务的连接和凭证身份验 证。Windows 远程管理等服务也可以在外部使用。通常需要访问有效帐 户来使用该服务,这可以通过凭证嫁接或在危及企业网络后从用户处获得 凭证来实现。在操作期间,可以将对远程服务的访问用作冗余访问的一部 分。 远程服务:VPN、Citrix、SSH、Windows 远程桌面、TeamViewer、 EasyConnect 等 渗透到其他网络介质 如果命令和控制网络是有线因特网连接,则可以例如通过 WiFi 连接,调 制解调器,蜂窝数据连接,蓝牙或其他射频(RF)信道进行泄漏。如果 攻击者具有足够的访问权限或接近º
  • Microsoft Azure 网站 - 自定义域邮件(Microsoft Azure Websites - Custom domain mail)
    问题 Microsoft Live 自定义域现已关闭。 我一直在使用此服务为我所有的 Microsoft Azure 网站进行电子邮件托管,但现在它已经消失了,并且没有可行的替代品。 您知道有什么替代方法可以为 Azure 上托管的多个网站托管多个邮箱吗? 回答1 我感觉到你的痛苦。 当免费的 Google Apps 选项停止使用时,我不得不与我的许多客户进行一些艰难的交谈。 我找到了两条路线: 查找托管 Exchange 类型的解决方案。 这具有任何托管解决方案的优点。 它是为您管理的。 您可以从大约 50 美元/用户/年开始,服务由 Microsoft、Google 和 Rackspace 等公司提供,如其他答案中所述。 (这是我选择的路线)在 AWS EC2 或 Azure 上托管您自己的 Exchange 服务器。 借助 Microsoft 许可证移动性,您可以在云服务器上安装 Exchange 许可证并自己为客户的域提供电子邮件地址。 这将允许您在所有客户之间分担 Exchange 许可证的成本,如果您达到临界质量,与大多数托管解决方案的按用户每月付费模型相比,这可以节省很多。 我仍在寻找免费的替代方案,但尚未找到可以与 Google Apps 免费版本中提供的功能相匹配的替代方案。 编辑:昨晚我又在考虑这个问题,并提出了另一个想法。 我不是 Linux 人
  • 您的企业邮箱是否安全?
    基于电子邮件的***会有多种形式,通常以勒索或泄露敏感数据为主。最近,一个名为Trickbot的银行受到电子邮件的******,该电子邮件的内容主要是有关疫情的,但附件实际上是病毒脚本。同时,2020年4月6日到2020年4月13日,Google每天拦截超过2.4亿条与疫情相关的垃圾邮件。最重要的是,研究表明,每20秒就会有一个新的网络钓鱼站点。 公司的邮件在商业领域十分重要,但这也是一个高度漏洞。电子邮件有很多活动内容,可以从任何设备访问,通常是进入组织的账户。用户使用公司邮箱在第三方网站注册,这就导致企业邮箱地址在网上会被上公开。在我们深入研究基于电子邮件的***之前,任何电子邮件中的关键组成部分都需要时刻注意。 如果网络犯罪分子无法访问公司电子邮件地址,则大多数网络钓鱼活动或商业电子邮件泄露(BEC)***都不会成功。不幸的是,考虑到员工人数的增加和应用程序的使用增加,***者不可避免地会获得对这些电子邮件的访问权限。 让我们看一下几种电子邮件技术: 使用操作系统内置的本地工具:您的标准用户(没有特权的用户)可以使用此免费的PowerShell脚本执行以下操作:发现用户帐户名称。进行密码***,并用邮箱破坏受害者。使用受害者帐户凭据来获取Exchange服务器的整个邮件列表或全局地址列表(GAL)。 使用开源工具识别易受***的电子邮件:
  • 如何在Outlook中添加默认签名(How to add default signature in Outlook)
    问题 我在Access中编写了VBA脚本,该脚本创建并自动填充了几十封电子邮件。 到目前为止,编码一直很顺利,但是我是Outlook的新手。 创建mailitem对象后,如何将默认签名添加到电子邮件中? 这将是在创建新电子邮件时自动添加的默认签名。 理想情况下,我只想使用ObjMail.GetDefaultSignature ,但找不到类似的东西。 目前,我正在使用下面的功能(可在Internet上的其他地方找到),并引用htm文件的确切路径和文件名。 但这将由几个人使用,他们的默认htm签名文件可能使用不同的名称。 因此这可行,但并不理想: Function GetBoiler(ByVal sFile As String) As String 'Dick Kusleika Dim fso As Object Dim ts As Object Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2) GetBoiler = ts.readall ts.Close End Function (用getboiler(SigString = "C:\Users\" & Environ("username") & "\AppData
  • 100个Java项目解析,带源代码和学习文档!
    前言 你是否正在寻找带有源代码的Java项目的免费集合?你的搜索到这里结束,我为你提供了近100多个Java项目。 想要成为一个优秀的程序员写项目是绕不开的,毕竟工程学的最终目标都是要创造东西,所以,代码给我敲起来! 文中所有项目的源码和学习文档都可以免费下载,以及我整理的 一些Java学习资料都可以免费分享。 需要的朋友可以自行点击链接进群即可领取。 项目源码和学习笔记22本Java架构师核心书籍从0到1Java学习路线和资料1000+道2021年最新面试题 话不多说,坐稳扶好,发车喽 在线作业门户 安置系统的重要性日益增加。 成千上万的申请人依赖于安置单元。 但是申请人面临许多问题。 该项目旨在最大程度地减少求职者寻找正确工作的问题。 如果我们可以使其成为一个在线计算机化的移动提醒程序,它将对申请人如此之快和便捷。但是,从令人烦恼的事情开始,新技术已使大多数0人的生活变得更加美好和轻松,因此必须做到这一点。结论是他们应该受到欢迎。 在线考试 考试软件是一种考试管理软件,可为基于计算机的考试(CBT)提供完整的解决方案,用于在设定的时间段内设置多项选择题,提交后将自动更正,并将结果记录在学生的参考号旁边。 ###特征 管理员登录。学生注册。管理和更新学生信息,说明和问题。修正每个问题的否定分数和最大分数的范围。以总分,正确回答尝试和 的形式显示结果 未尝试问题 。 校友数据库
  • 多部分电子邮件中的“部分”是什么?(What are the “parts” in a multipart email?)
    问题 有点背景... 前一段时间,我写了Python程序来处理电子邮件,经常遇到的一件事就是知道电子邮件是否是“多部分的”。 经过一番研究,我知道它与包含HTML或附件等的电子邮件有关...但是我并不十分了解。 我对它的使用仅限于2个实例: 1.当我不得不从原始电子邮件中保存附件时 我刚刚在互联网上找到了它(可能是在这里-抱歉,您没有记下编写它的人,但是我似乎再也找不到他了:/),然后将其粘贴到我的代码中 def downloadAttachments(emailMsg, pathToSaveFile): """ Save Attachments to pathToSaveFile (Example: pathToSaveFile = "C:\\Program Files\\") """ att_path_list = [] for part in emailMsg.walk(): # multipart are just containers, so we skip them if part.get_content_maintype() == 'multipart': continue # is this part an attachment ? if part.get('Content-Disposition') is None: continue filename =
  • 横向网络钓鱼
    检测和表征大规模横向网络钓鱼 文章目录 检测和表征大规模横向网络钓鱼摘要1.简介2.背景2.1相关工作2.2道德与隐私 3.数据3.1数据结构3.2 数据集大小3.3 真实情况 4.检测横向网络钓鱼5.评估5.1 方法论5.2 检测结果 原文标题:Detecting and Characterizing Lateral Phishing at Scale 原文地址:https://www.usenix.org/conference/usenixsecurity19/presentation/ho This paper is included in the Proceedings of the 28th USENIX Security Symposium. August 14–16, 2019 • Santa Clara, CA, USA 摘要 基于92个企业组织的员工发送的1.13亿封电子邮件,我们首次对大规模横向网络钓鱼进行了表征。在横向网络钓鱼攻击中,攻击者利用一个被劫持的企业账户给其他用户发送邮件,用户对被劫持账户的信任以及账户本身的信息都对攻击者有很大的帮助。我们开发了一个分类器,在每一百万封员工邮件中在误报数低于四的前提下发现成百上千的横向钓鱼邮件。利用我们检测到的和用户上报的攻击事件,我们量化了横向网络钓鱼的规模,确定了攻击者遵循的几个主题内容和接收目标策略
  • 任务计划程序不运行 Excel VBA 代码以将 PDF 作为电子邮件附件发送(Task Scheduler does not run Excel VBA Code to send PDF as Email Attachment)
    问题 这是我正在使用的软件/系统: 微软Office 2010; 任务调度器; Windows Server 2008 R2 标准版 我在执行以下操作的 Excel 文件中运行一些 VBA 代码: 1. 通过 SQL/ODBC 连接从我们的数据库中检索数据 2. 将数据上传到工作簿中的原始数据表,并使用 now 功能在单元格中为工作簿打上时间戳 3. 刷新并格式化工作簿中的每个数据透视表 4. 将指定的工作表导出并保存为 PDF 文档,并保存带有第 2 步中的时间戳的文档名称 5. 保存工作簿 6. 将刚刚创建的特定 PDF 文档作为电子邮件附件在 Excel 中发送电子邮件。 7. 关闭 Excel 应用程序 我在一个名为 Workbook_Open 的私有子程序中运行整个系列,它检查当前时间是否与指定的运行时匹配。 如果是这样,它会运行步骤 1-7,如果是一小时后,它会关闭工作簿(这样我可以在两个小时的窗口之外处理它)。 这是正在使用的代码:*注意,下面的代码在“ThisWorkbook”Excel 对象中运行。 'This Macro will use check to see if you opened the workbook at a certain time, if you did, then it will run the Report Automation
  • 具有基于本地角色的授权的 Active Directory 身份验证(Active Directory Authentication with Local-Role-Based Authorization)
    问题 我正在开发一个 ASP.NET MVC 应用程序。 我需要支持多种身份验证机制(此应用程序由多个客户使用,每个客户都有自己首选的身份验证提供程序)。 一个身份验证提供程序将是 Active Directory。 用于身份验证的 AD 集成很简单,我对此没有任何问题。 对于授权,角色将存储在本地数据库中(注意:我们不能使用 Active Directory 组进行授权 - 角色需要是本地应用程序角色,因为我们支持多个身份验证提供程序并且 AD 管理员不想在 AD 中创建自定义组仅适用于我们的应用程序)。 我的期望是我们需要在我们的本地数据库中创建“存根”用户帐户,以便执行 User-is-assigned-which-Roles 映射。 这些存根用户帐户还将用于指示哪些用户有权访问应用程序(并非 AD 数据库中的每个人都应该具有访问权限)。 预期的控制流将是: 用户访问登录页面 > 输入凭据 > 将凭据发布到应用服务器。 该应用程序根据 AD 验证凭据。 此时,我们知道用户是否已通过身份验证。 该应用程序会检查用户的 SID,以查看本地数据库中是否存在具有该 SID 的“存根”用户帐户。 如果没有,应用程序会向用户显示“未授权”错误消息。 该应用程序将在本地数据库 user-is-assigned-which-roles 表中查找用户的角色。
  • 进行MS Excel版本控制的最佳方法[关闭](Best way to do Version Control for MS Excel [closed])
    问题 关门了。 这个问题是基于意见的。 它当前不接受答案。 想改善这个问题吗? 更新问题,以便通过编辑此帖子以事实和引用的形式回答。 5个月前关闭。 改善这个问题 您在MS Excel(2003/2007)中使用了哪些版本控制系统? 您会推荐什么,为什么? 您对最高评价的版本控制系统有什么限制? 为了正确理解这一点,这里有一些用例: VBA模块的版本控制超过一个人正在处理Excel电子表格,他们可能正在更改要合并和集成的同一工作表。 该工作表可能包含公式,数据,图表等用户不太技术,使用的版本控制系统越少越好空间限制是一个考虑因素。 理想情况下,仅保存增量更改,而不是整个Excel电子表格。 回答1 我刚刚设置了一个使用Bazaar的电子表格,并通过TortiseBZR手动签入/签出。 鉴于该主题对我的保存部分有所帮助,因此我想在此处发布我的解决方案。 对我来说,解决方案是创建一个电子表格,该电子表格在保存时导出所有模块,然后在打开时删除并重新导入模块。 是的,这对于转换现有电子表格可能具有潜在的危险。 这使我可以通过Emacs (是,emacs)或在Excel中本地编辑模块中的宏,并在进行重大更改后提交我的BZR存储库。 因为所有模块都是文本文件,所以BZR中的标准diff样式命令适用于我的源文件,但Excel文件本身除外。 我已经为我的BZR存储库设置了一个目录X:\ Data