De meesten van ons sturen mogelijk enkele belangrijke berichten met een Excel-bestandsbijlage naar onze klanten, dus we moeten weten of de ontvanger het bericht heeft ontvangen en de bestandsbijlage heeft geopend. In dit geval kunt u een VBA-code maken voor uw Excel-bijlagebestand, wanneer de ontvanger de werkmap opent en de code activeert, wordt er automatisch een prompt-e-mail naar u verzonden.
Stuur een e-mail wanneer het Excel-bestand van de bijlage wordt geopend door de ontvangers met VBA-codeVoordat u dit Excel-bestand verzendt, moet u als volgt een code maken:
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. Dubbelklik vervolgens Dit Werkboek onder de VBA-project sectie om een lege module te openen en kopieer en plak vervolgens de volgende code in de module:
VBA-code: stuur een e-mail wanneer het Excel-bestand wordt geopend:
Private Sub Workbook_Open()
'Updateby Extendoffice
Dim olkObj As Object
Dim olkEm As Object
Dim strbody As String
Set olkObj = CreateObject("Outlook.Application")
Set olkEm = olkObj.CreateItem(0)
strbody = "Hi there" & vbNewLine & vbNewLine & _
ThisWorkbook.Name & vbNewLine & _
"was opened by" & vbNewLine & _
Environ("username")
On Error Resume Next
With olkEm
.To = ""
.CC = ""
.BCC = ""
.Subject = "File opened"
.Body = strbody
.Send
End With
On Error GoTo 0
Set olkEm = Nothing
Set olkObj = Nothing
End Sub
Opmerking:: In de bovenstaande code moet u het e-mailadres wijzigen in uw eigen adres waarop u de prompt-e-mail wilt ontvangen, en het onderwerp naar behoefte wijzigen.
3. Sla deze werkmap vervolgens op als Excel-werkmap met ingeschakelde macro's bestandsformaat, zie screenshot:
4. En stuur vervolgens een bericht met deze bestandsbijlage naar de ontvangers die u nodig heeft, wanneer de ontvangers dit Excel-bestand downloaden en openen en de code activeren, wordt automatisch een prompt-e-mail naar u verzonden met de melding dat het bestand is geopend door wie als volgt screenshot getoond:
Opmerking:: Deze methode is alleen beschikbaar als u Outlook als uw e-mailprogramma gebruikt.
