Moet u vaak specifieke bestanden bijvoegen bij het verzenden van specifieke e-mails in Outlook? Als dit het geval is, vindt u het misschien vervelend om ze elke keer handmatig toe te voegen. Dit artikel leert u een snelle methode om dit te bereiken met Outlook VBA.
In mijn dagelijkse werk moet ik vaak specifieke bestanden bijvoegen bij het verzenden van specifieke e-mails. Ik moet bijvoorbeeld elke week een e-mail sturen naar mijn superieuren om verslag uit te brengen over mijn wekelijkse werk. In deze e-mail moet ik een aantal specifieke bestanden bijvoegen, inclusief werklogboeken, enkele statistische gegevensrapporten, enzovoort. Ik update deze bestanden meestal elke week. In het verleden stelde ik normaal gesproken eerst de berichttekst op en voeg ik deze bestanden vervolgens handmatig toe. Op dit moment vind ik echter een slimmere truc. Dat gebruikt Outlook VBA om het te automatiseren. Als u dezelfde vereisten heeft, lees dan verder om de concrete VBA-codes en de gedetailleerde bewerkingen te leren.
Voeg automatisch specifieke bestanden toe bij het verzenden van specifieke e-mails
- Voor alstart, start Outlook en ga naar het tabblad "Ontwikkelaar".
- Vervolgens kunt u de "Visual Basic" -knop zoeken en erop klikken, waardoor het VBA-editorvenster meteen verschijnt.
- In het volgende venster moet u dubbelklikken op het "ThisOutlookSession" -project aan de linkerkant van de projectlijst.
- Vervolgens moet u de volgende VBA-codes erin kopiëren en plakken.
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
- Daarna moet u een digitaal certificaat aan het nieuwe project toewijzen.
- Klik eerst op de knop "Gereedschap" in de werkbalk en kies "Digitale handtekening".
- Klik vervolgens in het pop-upvenster "Digitale handtekening" op de knop "Kiezen",
- Vervolgens kunt u een bestaand certificaat kiezen.
- Klik ten slotte op een reeks van "OK" om het met succes toe te wijzen.
- Later moet u de macro-instellingen wijzigen om eenvoudig digitaal ondertekende macro's toe te staan.
- Uiteindelijk kun je het proberen.
- Wanneer u op "Verzenden" klikt om de specifieke e-mail te verzenden die de specifieke woorden in het onderwerp bevat of die naar een specifieke contactpersoon is verzonden, ziet u een berichtvenster, zoals de afbeelding hieronder.
- Daarna kunt u de verzonden e-mail controleren. U zult zeker de vooraf ingestelde bestanden in de verzonden e-mail vinden.
Stel het oplossen van Outlook-fouten nooit uit
Soms, ook al bent u een foutmelding tegengekomen in Outlook, kunt u na het sluiten van het bericht toch doorwerken. Maar eigenlijk is het niet aan te raden. Wat u moet doen, is ze zo snel mogelijk elimineren in plaats van ze opzij te laten. Ophoping van problemen zal resulteren in een ernstige crash. Als uw Outlook crasht, lopen uw Outlook PST-gegevens gevaar. Je hoort dat te weten beschadigde Outlook PST-gegevens is nogal knoestig. Op dat moment heb je geen andere keuze dan een ervaren en gerenommeerd reparatietool te gebruiken, zoals DataNumen Outlook Repair.
Auteur Introductie:
Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder reparatie beschadigd SQL Server filet en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com