Hvordan sendes automatisk e-mail baseret på celleværdi i Excel?
Antag, at du vil sende en e-mail via Outlook til en bestemt modtager baseret på en bestemt celleværdi i Excel. For eksempel, når værdien af celle D7 i et regneark er større end 200, oprettes der automatisk en e-mail. Denne artikel introducerer en VBA-metode, som du hurtigt kan løse dette problem.
Send automatisk e-mail baseret på celleværdi med VBA-kode
Send automatisk e-mail baseret på celleværdi med VBA-kode
Gør som følger for at sende en e-mail baseret på celleværdi i Excel.
1. I regnearket skal du sende e-mail baseret på dens celleværdi (her står cellen D7), højreklik på arkfanen og vælg Vis kode fra genvejsmenuen. Se skærmbillede:
2. I popping up Microsoft Visual Basic til applikationer vindue, skal du kopiere og indsætte nedenstående VBA-kode i arkkodevinduet.
VBA-kode: Send e-mail via Outlook baseret på celleværdi i Excel
Dim xRg As Range
'Update by Extendoffice 2018/3/7
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Cells.Count > 1 Then Exit Sub
Set xRg = Intersect(Range("D7"), Target)
If xRg Is Nothing Then Exit Sub
If IsNumeric(Target.Value) And Target.Value > 200 Then
Call Mail_small_Text_Outlook
End If
End Sub
Sub Mail_small_Text_Outlook()
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2"
On Error Resume Next
With xOutMail
.To = "Email Address"
.CC = ""
.BCC = ""
.Subject = "send by cell value test"
.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub
Noter:
3. Tryk på andre + Q tasterne sammen for at lukke Microsoft Visual Basic til applikationer vindue.
Fra nu af, når den værdi, du indtaster i celle D7, er større end 200, oprettes der automatisk en e-mail med specificerede modtagere og brødtekster i Outlook. Du kan klikke på Send knappen for at sende denne e-mail. Se skærmbillede:
Noter:
1. VBA-koden fungerer kun, når du bruger Outlook som dit e-mail-program.
2. Hvis de indtastede data i celle D7 er en tekstværdi, vises mailvinduet også.
Send nemt e-mail via Outlook baseret på felter i den oprettede postliste i Excel:
Send emails nytte af Kutools til Excel hjælper brugere med at sende e-mail via Outlook baseret på oprettet mailingliste i Excel.
Download og prøv det nu! (30-dag gratis spor)
Relaterede artikler:
- 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?
- Hvordan sendes e-mail-påmindelse eller underretning, hvis projektmappen opdateres i Excel?
De bedste Office-produktivitetsværktøjer
Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%
- Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
- Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
- Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
- Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
- Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
- Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
- Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
- Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
- Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.

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!














































