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
- For å starte, åpne Outlook og gå til fanen "Utvikler".
- Deretter kan du finne og klikke på "Visual Basic"-knappen, som vil få frem VBA-redigeringsvinduet med en gang.
- I det påfølgende vinduet bør du dobbeltklikke på "ThisOutlookSession" -prosjektet på prosjektlisten til venstre.
- 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
- 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.
- Senere må du endre makroinnstillingene for å tillate digitalt signerte makroer.
- 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.
- Etter det kan du sjekke den sendte e-posten. Du vil garantert finne de forhåndsinnstilte filene vedlagt i 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



