Hvordan sendes en e-mail, når vedhæftede Excel-filer åbnes af modtagerne?
De fleste af os sender muligvis nogle vigtige meddelelser med en vedhæftet fil til Excel til vores klienter, så vi skal vide, om modtageren har modtaget beskeden og åbnet vedhæftet fil. I dette tilfælde kan du oprette en VBA-kode til din Excel-vedhæftede fil, når modtageren åbner projektmappen og aktiverer koden, vil en hurtig e-mail automatisk blive sendt til dig.
Send en e-mail, når vedhæftede Excel-filer åbnes af modtagerne med VBA-kode
Send en e-mail, når vedhæftede Excel-filer åbnes af modtagerne med VBA-kode
Inden du sender denne Excel-fil, skal du oprette en kode som følger:
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Dobbeltklik derefter ThisWorkbook under VBAProjekt sektion for at åbne et tomt modul og derefter kopiere og indsætte følgende kode i modulet:
VBA-kode: Send en e-mail, når Excel-filen åbnes:
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
Bemærk: I ovenstående kode skal du ændre e-mail-adressen til din egen adresse, som du vil modtage den hurtige e-mail, og ændre emnet til dit behov.
3. Gem derefter denne projektmappe som Excel-makroaktiveret projektmappe filformat, se skærmbillede:
4. Og send derefter en besked med denne filvedhæftning til de modtagere, du har brug for, når modtagerne downloader og åbner denne Excel-fil og aktiverer koden, vil en hurtig e-mail automatisk blive sendt til dig og fortælle dig, at filen blev åbnet af hvem som følger vist skærmbillede:
Bemærk: Denne metode er kun tilgængelig, når du bruger Outlook som dit mailprogram.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!