Behöver du ofta bifoga specifika filer när du skickar specifika e-postmeddelanden i Outlook? Om så är fallet kan det vara tråkigt att lägga till dem manuellt varje gång. Den här artikeln lär dig en snabb metod för att uppnå det med Outlook VBA.
I mina dagliga arbeten måste jag ofta bifoga specifika filer när jag skickar specifika e-postmeddelanden. Till exempel måste jag skicka ett e-postmeddelande till mina överordnade varje vecka för att rapportera mitt veckovisa arbete. I det här e-postmeddelandet måste jag bifoga vissa specifika filer, inklusive arbetsloggar, vissa datastatistikrapporter och så vidare. Jag uppdaterar vanligtvis dessa filer varje vecka. Tidigare skrev jag normalt först meddelandetexten och lägger sedan till dessa filer manuellt. Men för närvarande hittar jag ett smartare trick. Det använder Outlook VBA för att automatisera det. Om du har liknande krav, läs vidare för att lära dig de konkreta VBA-koder och detaljerade operationer.
Bifoga specifika filer automatiskt när du skickar specifika e-postmeddelanden
- Till att börja med, öppna Outlook och gå till fliken "Utvecklare".
- Sedan kan du hitta och klicka på "Visual Basic" -knappen, som kommer att visa VBA-redigeringsfönstret på en gång.
- I det efterföljande fönstret bör du dubbelklicka på “ThisOutlookSession” -projektet till vänster på projektlistan.
- Därefter bör du kopiera och klistra in följande 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
- Därefter måste du tilldela ett digitalt certifikat till det nya projektet.
- Klicka först på "Verktyg" -knappen i verktygsfältet och välj "Digital signatur".
- Klicka sedan på "Välj" -knappen i popup-dialogrutan "Digital signatur",
- Därefter kan du välja ett befintligt certifikat.
- Klicka slutligen på en serie "OK" för att tilldela den framgångsrikt.
- Senare måste du ändra makroinställningarna för att helt enkelt tillåta digitalt signerade makron.
- Så småningom kan du prova.
- När du klickar på “Skicka” för att skicka det specifika e-postmeddelandet som innehåller de specifika orden i ämnet eller skickas till en specifik kontakt, kommer du att se en meddelanderuta, som bilden nedan.
- Därefter kan du kontrollera det skickade e-postmeddelandet. Du hittar säkert de förinställda filerna bifogade i det skickade e-postmeddelandet.
Uppskjut aldrig fixa Outlook-fel
Ibland, även om du stött på ett felmeddelande i Outlook, kan du fortfarande fortsätta att arbeta när du har stängt meddelandet. Men faktiskt är det inte en lämplig åtgärd. Vad du bör göra är att eliminera dem så snart som möjligt istället för att lämna dem åt sidan. Ackumulerande problem kommer att resultera i allvarlig krasch. Om din Outlook kraschar riskeras dina PST-data i Outlook. Du borde veta det skadad Outlook PST-data är ganska knotig. Vid den tiden har du inget annat val än att använda ett erfaret och ansedd reparationsverktyg, t.ex. DataNumen Outlook Repair.
Författarintroduktion:
Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive reparation skadad SQL Server fil och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com



