Note: The other languages of the website are Google-translated. Back to English
Log på  \/ 
x
or
x
Tilmeld  \/ 
x

or

Hvordan videresendes kun vedhæftede filer kun baseret på specifikke kriterier i Outlook?

Normalt inkluderes den originale meddelelsestekst og vedhæftede filer også, når du videresender en e-mail. Men nogle gange skal du kun videresende vedhæftede filer uden den originale besked baseret på kriterier til en bestemt person. Hvordan kunne du løse dette job i Outlook?

Videresend kun vedhæftede filer baseret på specifikke kriterier til en person automatisk med VBA-kode


Videresend kun vedhæftede filer baseret på specifikke kriterier til en person automatisk med VBA-kode

For eksempel, når du modtager en e-mail, hvilket emne indeholder teksten "kto-funktion", vil alle vedhæftede filer i denne e-mail automatisk blive videresendt til den specifikke person uden meddelelsestekst. Følgende trin kan hjælpe dig, gør som dette:

1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. I Microsoft Visual Basic til applikationer dobbeltklik på vinduet Denne OutlookSession fra Project1 (VbaProject.OTM) rude for at åbne tilstanden og derefter kopiere og indsætte følgende kode i det tomme modul.

VBA-kode: Automatisk videresendelse af e-mail uden meddelelsestekst, men inkluder bare vedhæftede filer

Public WithEvents ReceivedItems As Outlook.Items
Private Sub Application_Startup()
    Set ReceivedItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub ReceivedItems_ItemAdd(ByVal Item As Object)
    Dim xForwardMail As Outlook.MailItem
    Dim xEmail As MailItem
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xEmail = Item
    If InStrRev(UCase(xEmail.Subject), UCase("kto feature")) = 0 Then Exit Sub  'change subject text to your need
    If xEmail.Attachments.Count = 0 Then Exit Sub
    Set xForwardMail = xEmail.Forward
    With xForwardMail
        .HTMLBody = ""
        With .Recipients
            .Add "skyyang@addin88.com"    'change address to your own
            .ResolveAll
        End With
        .Send
    End With
End Sub

Bemærk: I ovenstående kode skal du ændre emneteksten og modtageradressen til din egen.

doc kun automatisk vedhæftede filer 1

3. Gem derefter koden, og genstart Outlook for at få kodeeffekten.

4. Fra nu af, hver gang en ny e-mail indeholder den specifikke emnetekst ankommer til din postkasse, videresender Outlook automatisk sine vedhæftede filer uden meddelelsestekst til den ønskede person.

Bemærk: Denne kode er kun tilgængelig for standardkontoen.


Kutools til Outlook - bringer 100 avancerede funktioner til Outlook, og gør arbejdet meget nemmere!

  • Auto CC / BCC ved regler, når du sender e-mail; Automatisk videresendelse Flere e-mails efter brugerdefineret; Auto svar uden udvekslingsserver og flere automatiske funktioner ...
  • BCC Advarsel - vis besked, når du prøver at besvare alle hvis din e-mail-adresse er på BCC-listen; Påmind, når du mangler vedhæftede filer, og mere minder funktioner ...
  • Svar (alle) med alle vedhæftede filer i mailsamtalen; Besvar mange e-mails på få sekunder Tilføj automatisk hilsen når svar Tilføj dato til emne ...
  • Vedhæftningsværktøjer: Administrer alle vedhæftede filer i alle mails, Automatisk afmontering, Komprimer alle, Omdøb alt, Gem alle ... Hurtig rapport, Tæl valgte mails...
  • Kraftige uønskede e-mails efter skik; Fjern duplikerede mails og kontakter... Gør dig i stand til at gøre smartere, hurtigere og bedre i Outlook.
shot kutools outlook kutools fane 1180x121
shot kutools outlook kutools plus fane 1180x121
 

 

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Guest · 10 months ago
    This is great, but if someone replies to the chain of the email with an attachment it will auto-forward that attachment as well. Is there a way to avoid this? Thanks