Slik legger du ved spesifikke filer automatisk når du sender spesifikke e-poster i Outlook

Trenger du ofte å legge ved spesifikke filer når du sender spesifikke e-poster i Outlook? I så fall kan du føle det kjedelig å legge dem til manuelt hver gang. Denne artikkelen vil lære deg en rask metode for å oppnå det med Outlook VBA.

I mitt daglige arbeid blir jeg ofte pålagt å legge ved spesifikke filer når jeg sender spesifikke e-poster. For eksempel må jeg hver uke sende en e-post til mine overordnede for å rapportere det ukentlige arbeidet mitt. I denne e-posten må jeg legge ved noen spesifikke filer, inkludert arbeidslogger, noen datastatistikkrapporter og så videre. Jeg pleier å oppdatere disse filene hver uke. Tidligere komponerte jeg vanligvis først meldingsteksten og legger deretter til disse filene manuelt. Men for øyeblikket finner jeg et smartere triks. Det er å bruke Outlook VBA for å automatisere det. Hvis du har lignende krav, vennligst les videre for å lære de konkrete VBA-kodene og de detaljerte operasjonene.

Legg ved spesifikke filer automatisk når du sender spesifikke e-poster

  1. For å starte, åpne Outlook og gå til fanen "Utvikler".
  2. Deretter kan du finne og klikke på "Visual Basic"-knappen, som vil få frem VBA-redigeringsvinduet med en gang.
  3. I det påfølgende vinduet bør du dobbeltklikke på "ThisOutlookSession" -prosjektet på prosjektlisten til venstre.
  4. Deretter bør du kopiere og lime inn følgende VBA-koder i den.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim strPrompt As String
    Dim nRes As Integer
 
    'Check the email subject and recipient
    If InStr(LCase(Item.Subject), "worklog") > 0 And InStr(Item.To, "frank") > 0 Then
       strPrompt = "Do you want to attach the worklog related files?"
       nRes = MsgBox(strPrompt, vbYesNo + vbQuestion, "Attach Files")
       If nRes = vbYes Then
          'Attach the specific files
          With Item
               .Attachments.Add ("C:\Attachments\WorkLog.docx")
               .Attachments.Add ("C:\Attachments\Data Statistics Report 1.xlsx")
               .Attachments.Add ("C:\Attachments\Data Statistics Report 2.xlsx")
          End With
       End If
    End If
End Sub

VBA-koder - Legg ved spesifikke filer automatisk når du sender spesifikke e-poster

  1. Etter det vil du bli bedt om å tildele et digitalt sertifikat til det nye prosjektet.
  • Klikk først på "Verktøy"-knappen i verktøylinjen og velg "Digital signatur".
  • Så i popup-dialogboksen "Digital signatur", trykk "Velg" -knappen,
  • Deretter kan du velge et eksisterende sertifikat.
  • Til slutt klikker du på en rekke "OK" for å tildele den.Digital signatur
  1. Senere må du endre makroinnstillingene for å tillate digitalt signerte makroer.
  2. Til slutt kan du prøve deg frem.
  • Når du klikker "Send" for å sende den spesifikke e-posten som inneholder de spesifikke ordene i emnet eller sendes til en spesifikk kontakt, vil du se en meldingsboks, som bildet nedenfor.Meldingsboks
  • Etter det kan du sjekke den sendte e-posten. Du vil garantert finne de forhåndsinnstilte filene vedlagt i den sendte e-posten.Sjekk den sendte e-posten

Utsett aldri å fikse Outlook-feil

Noen ganger, selv om du oppdaget en feilmelding i Outlook, kan det hende du fortsatt kan fortsette å jobbe etter at du lukker meldingen. Men faktisk er det ikke en tilrådelig handling. Det du bør gjøre er å eliminere dem så snart som mulig i stedet for å legge dem til side. Akkumulering av problemer vil resultere i alvorlig krasj. Hvis Outlook krasjer, vil Outlook PST-dataene settes i fare. Du burde vite det ødelagte Outlook PST-data er ganske knotete. På det tidspunktet har du ikke noe annet valg enn å bruke et erfarent og anerkjent reparasjonsverktøy, som f.eks DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert reparasjon skadet SQL Server fil og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med

Kommentarer er stengt.