Question

我的问题有点类似于this。我每天都会收到来自某个电子邮件地址的有关注册的电子邮件。这封电子邮件中有1-3个链接。链接文本为“下载”，它表示保存文件的链接。

因此，如果有一个附件，它会说：
一些文字：下载

有两个会说：
一些文字：下载
一些文字：下载

和三个：
一些文字：下载
一些文字：下载
一些文字：下载

作为vba宏，我要寻找的是能够选择这些电子邮件，然后运行该宏。该宏应打印每封电子邮件，然后转到该链接，并针对所有选定的电子邮件，逐个打印这些链接中的附件。

订单应为打印电子邮件，打印链接1附件，打印链接2附件（如果有），打印链接3附件（如果有），打印第二封电子邮件，打印第二封电子邮件附件等。

我正在寻找vba解决方案，因为我无权在计算机上安装其他任何设备。

感谢您的帮助。

编辑：我必须在这里提到我是Outlook-vba的新手，以下内容是由here的复制/粘贴/编辑生成的。正在打印电子邮件。现在，我需要按照电子邮件中的超链接来打印附件的帮助。在进行更多研究时，我也遇到过this，但对我来说全是希腊文。

下面是用于打印电子邮件的代码。

Option Explicit

Public Sub PrintDelete()
    Dim objOL                      As Outlook.Application
    Dim objMsg                     As Outlook.MailItem
    Dim objAttachments             As Outlook.Attachments
    Dim objSelection               As Outlook.Selection
    Dim i                          As Long
    Dim lngCount                   As Long
    Dim Response                   As Integer
    Dim msg                        As String
    Dim strSubject                 As String


     ' Instantiate an Outlook Application object.
    Set objOL = CreateObject("Outlook.Application")
     ' Get the collection of selected objects.
    Set objSelection = objOL.ActiveExplorer.Selection

     ' Check selected item for attachments.
    For i = objSelection.Count To 1 Step -1
               objSelection(i).PrintOut
               Call LaunchURL(objSelection(i).objMsg)
    Next

ExitSub:
    Set objAttachments = Nothing
    Set objMsg = Nothing
    Set objSelection = Nothing
    Set objOL = Nothing
End Sub

Outlook：打印电子邮件以及电子邮件中超链接中发送的附件

0 个答案: