Hvordan sendes e-mail-påmindelse eller underretning, hvis projektmappen opdateres i Excel?
I nogle tilfælde kan det være nødvendigt at udløse en e-mail-meddelelse til en bestemt modtager, hvis der er data opdateret i den projektmappe, du har sendt. Denne artikel viser dig metode til at opnå det.
Send e-mail-påmindelse eller underretning, hvis projektmappen opdateres med VBA-kode
Send e-mail-påmindelse eller underretning, hvis projektmappen opdateres med VBA-kode
Gør som følger for at sende e-mail-påmindelse eller underretning, hvis projektmappen opdateres.
1. I projektmappen skal du åbne et specificeret regneark, du vil sende e-mail-underretning baseret på de opdaterede data indeni.
2. Højreklik på arkfanen, og vælg Vis kode fra højreklikmenuen. Se skærmbillede:
2. i Microsoft Visual Basic til applikationer vindue, kopier og indsæt følgende kode i kodevinduet. Se skærmbillede:
VBA-kode: Send e-mail-påmindelse eller besked, hvis projektmappen opdateres
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2017/9/14
Dim xOutApp As Object
Dim xMailItem As Object
Dim xName As String
Dim xYesOrNo As Integer
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xYesOrNo = MsgBox("Want to attach updated workbook in email?", vbInformation + vbYesNo, "KuTools For Excel")
If xYesOrNo = 6 Then ActiveWorkbook.Save
If xYesOrNo = 6 Then xName = ActiveWorkbook.FullName
With xMailItem
.To = "Email Address"
.cc = ""
.Subject = "email notification test"
.Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
If xYesOrNo = 6 Then .Attachments.Add xName
.Display
End With
xMailItem = Nothing
xOutApp = Nothing
End Sub
Bemærk: Erstat e-mail-adressen med modtagerens e-mail-adresse i køen .To = "E-mail-adresse". Og skift Cc, Subject såvel som body-felter i VBA-koden, som du har brug for.
3. Tryk på andre + Q taster for at lukke Microsoft Visual Basic til applikationer vindue.
4. Efter redigering af en celle i regnearket, a Kutools til Excel dialogboksen vises som vist nedenstående skærmbillede. Hvis du vil vedhæfte den opdaterede projektmappe i e-mailen, skal du klikke på Ja knap. Hvis ikke, skal du klikke på Ingen .
5. Derefter oprettes en e-mail automatisk med eller uden vedhæftet den opdaterede projektmappe. Og alle angivne felter er også angivet i e-mailen. Klik på Send knappen for at sende den.
Bemærk: VBA-koden fungerer kun, når du bruger Outlook som dit e-mail-program.
Relaterede artikler:
- Hvordan sendes automatisk e-mail baseret på celleværdi i Excel?
- Hvordan sendes en e-mail via Outlook, når projektmappen gemmes i Excel?
- Hvordan sendes e-mail, hvis en bestemt celle ændres i Excel?
- Hvordan sendes e-mail, hvis der klikkes på knappen i Excel?
- Hvordan sendes e-mail, hvis forfaldsdato er opfyldt i Excel?
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!