Denne artikel taler om at sende en e-mail via Outlook, når en bestemt projektmappe gemmes i Excel. Gør som vejledningen viser.
Send en e-mail via Outlook, når projektmappen gemmes med VBA-kode
For at sende en e-mail via Outlook, når projektmappen er gemt i Excel, skal du gøre som følger.
1. Gem først projektmappen som en Excel-makroaktiveret projektmappe. Klik på filet > Gem som. I Gem som Vælg en mappe for at gemme projektmappen, navngiv den i feltet Filnavn, vælg Excel-makroaktiveret projektmappe fra Filtype rullelisten, og klik derefter på Gem knap. Se skærmbillede:
2. Åbn den Excel-makroaktiverede projektmappe, du lige har gemt, tryk på andre + F11 taster samtidigt for at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer dobbeltklik på vinduet ThisWorkbook i venstre bjælke, kopier og indsæt derefter nedenstående VBA-kode i ThisWorkbook kode vindue. Se skærmbillede:
VBA-kode: Send e-mail, når projektmappen er gemt
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'Updated by Extendoffice 20181102
Dim xOutApp As Object
Dim xMailItem As Object
Dim xName As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xName = ActiveWorkbook.FullName
With xMailItem
.To = "Email Address"
.CC = ""
.Subject = "The workbook has been saved"
.Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
.Attachments.Add xName
.Display
'.send
End With
Set xMailItem = Nothing
Set xOutApp = Nothing
End Sub
Bemærk: Udskift venligst Email adresse med modtagerens e-mail-adresse på linje .To = "E-mail-adresse"og ændre Cc, Subject såvel som body-felter i VBA-koden, som du har brug for.
3. Tryk på andre + Q taster samtidigt for at lukke Microsoft Visual Basic til applikationer vindue.
Fra nu af, når du opdaterer projektmappen og gemmer den, oprettes der automatisk en e-mail med opdateret projektmappe. Klik på Send knappen for at sende e-mailen. Se skærmbillede:
Bemærk: VBA-koden fungerer kun, når du bruger Outlook som dit e-mail-program.
