Tip: Jiné jazyky jsou přeloženy společností Google. Můžete navštívit English verze tohoto odkazu.
Přihlásit se
x
or
x
x
Registrovat
x

or
0
0
0
s2smodern

Jak automaticky označit emaily na základě konkrétní přílohy v aplikaci Outlook?

Při příjmu některých e-mailů se specifickým důležitým přílohou je možná nutné je vyřadit, takže je můžete rychle a snadno najít pro průtok. Tento článek, budu mluvit o snadný způsob, jak automaticky flagovat e-maily, které přílohy s konkrétními jmény.

Automaticky označujte e-maily podle konkrétního přílohy s kódem VBA


Automaticky označujte e-maily podle konkrétního přílohy s kódem VBA

Chcete-li automaticky označit e-maily, které obsahují konkrétní přílohu, použijte následující kód VBA:

1. Spusťte aplikaci Outlook a podržte klávesu ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klikněte dvakrát ThisOutlookSession z Project1 (VbaProject.OTM) podokna otevřete nový režim a potom zkopírujte a vložte následující kód do prázdného modulu.

Kód VBA: Auto označuje e-maily založené na konkrétním přílohě:

Public WithEvents GMailItems As Outlook.Items
Private Sub Application_Startup()
    Set GMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub GMailItems_ItemAdd(ByVal Item As Object)
    If Item.Class <> olMail Then Exit Sub
    FlagEmail_SpecificAttachments Item
End Sub

Sub FlagEmail_SpecificAttachments(Mail As Outlook.MailItem)
    Dim xAttachment As Outlook.Attachment
    Dim xExt As String
    Dim xFileName As String
    If Mail.Attachments.Count = 0 Then Exit Sub
    For Each xAttachment In Mail.Attachments
        xExt = SplitPath(xAttachment.FileName, 2)
        xFileName = SplitPath(xAttachment.FileName, 1)
        Select Case xExt
            Case "txt", "xlsx", "docx", "pdf"  'Add the file extension as you need
                If InStr(LCase(xFileName), LCase("KTO")) > 0 Then 'Change the text of the attachment name
                    With Mail
                        .ReminderSet = True
                        .ReminderTime = Now + 1
                        .MarkAsTask olMarkTomorrow
                        .Save
                    End With
                End If
        End Select
    Next
End Sub

Public Function SplitPath(FullPath As String, ResultFlag As Integer) As String
Dim xSplitPos As Integer, xDotPos As Integer
xSplitPos = InStrRev(FullPath, "/")
xDotPos = InStrRev(FullPath, ".")
Select Case ResultFlag
    Case 0
        SplitPath = Left(FullPath, xSplitPos - 1)
    Case 1
        If xDotPos = 0 Then xDotPos = Len(FullPath) + 1
        SplitPath = Mid(FullPath, xSplitPos + 1, xDotPos - xSplitPos - 1)
    Case 2
        If xDotPos = 0 Then xDotPos = Len(FullPath)
        SplitPath = Mid(FullPath, xDotPos + 1)
    Case Else
    Err.Raise vbObjectError + 1, "SplitPath Function", "Invalid Parameter!"
End Select
End Function

Poznámka: Ve výše uvedeném kódu můžete změnit příponu souboru a název souboru přílohy podle potřeby.

doc auto flag e - maily 1

3. Poté uložte kód a restartujte aplikaci Outlook, aby se kód dostal do účinnosti. Nyní při příjmu e-mailů, které názvy příloh obsahují zadaný text, bude aplikace Outlook automaticky označovat tento e-mail za účelem sledování, viz obrázek obrazovky:

doc auto flag e - maily 2


100 + Výkonné nástroje a funkce pro aplikaci Outlook 2010 / 2013 / 2016 / 2019 / Office 365:

li-oranžováKompatibilní s aplikací Outlook 2010 / 2013 / 2016 / 2019 / Office 365 (32 / 64);

li-oranžováKompatibilní se systémy Windows XP, Windows Vista, Windows 7 / 8 / 10, systémem Windows Server 2003 / 2008, systémem Citrix a terminálem Windows (Remote Desktop);

li-oranžováBezplatná zkušební verze bez omezování funkce v 45 dnech!

ČTĚTE VÍCE | ZDARMA KE STAŽENÍ | KUP NYNÍ

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.