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-dages 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?
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!