Hogyan lehet e-mailt küldeni, ha egy bizonyos cellát módosítanak az Excelben?
Ez a cikk az Outlookon keresztüli e-mail küldéséről szól, amikor egy bizonyos tartományban lévő cellát módosítanak az Excelben.
E-mail küldése, ha egy bizonyos tartományban lévő cellát VBA kóddal módosítottak
E-mail küldése, ha egy bizonyos tartományban lévő cellát VBA kóddal módosítottak
Ha automatikusan létre kell hoznia egy új e-mailt aktív munkafüzet csatolásával, amikor az A2:E11 tartomány celláját módosítják egy bizonyos munkalapon, a következő VBA-kód segíthet.
1. Abban a munkalapban, amelyet e-mailt kell küldenie a módosított cellája alapján egy bizonyos tartományban, kattintson a jobb gombbal a lap fülre, majd kattintson a Kód megtekintése a helyi menüből. Lásd a képernyőképet:
2. A felbukkanóban Microsoft Visual Basic for Applications ablakba, kérjük, másolja és illessze be a VBA kód alatt a Kód ablakba.
VBA kód: E-mail küldése, ha a megadott tartomány cellája módosul az Excel programban
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2017/9/12
Dim xRgSel As Range
Dim xOutApp As Object
Dim xMailItem As Object
Dim xMailBody As String
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xRg = Range("A2:E11")
Set xRgSel = Intersect(Target, xRg)
ActiveWorkbook.Save
If Not xRgSel Is Nothing Then
Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xMailBody = "Cell(s) " & xRgSel.Address(False, False) & _
" in the worksheet '" & Me.Name & "' were modified on " & _
Format$(Now, "mm/dd/yyyy") & " at " & Format$(Now, "hh:mm:ss") & _
" by " & Environ$("username") & "."
With xMailItem
.To = "Email Address"
.Subject = "Worksheet modified in " & ThisWorkbook.FullName
.Body = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Display
End With
Set xRgSel = Nothing
Set xOutApp = Nothing
Set xMailItem = Nothing
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Megjegyzések:
3. megnyomni a más + Q gombok egyszerre a Microsoft Visual Basic for Applications ablak.
Ezentúl az A2: E11 tartomány bármely cellája módosul, új e-mailt hozunk létre, a csatolt frissített munkafüzettel együtt. És az összes megadott mező, mint például a tárgy, a címzett és az e-mail törzse, megjelenik az e-mailben. Kérjük, küldje el az e-mailt.
Megjegyzések: A VBA-kód csak akkor működik, ha az Outlookot használja levelezőprogramként.
Kapcsolódó cikkek:
- Hogyan küldhetünk automatikusan e-mailt az Excel cellája alapján?
- Hogyan küldhetünk e-mailt az Outlookon keresztül, amikor a munkafüzet mentésre kerül az Excelbe?
- Hogyan küldhetünk e-mailt, ha az Excel gombra kattintunk?
- Hogyan lehet e-mailt küldeni, ha az Excel határidejét betartotta?
- Hogyan küldhetünk e-mailes emlékeztetőt vagy értesítést, ha a munkafüzet frissül az Excel programban?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!