Free Code Snippets in C#, Net Framework, Office 365, ASP.Net,WPF, Visual Studio, SQL Server, Antivirus free
#

Download:

Datei 1: Demo_Excel_Email_on_Input_2018-09-05_b.xlsm

Excel Template: Automatically send an e-mail for a specific entry in Excel

 

The following Excel document automatically sends an email when a specific value is entered in an input area.

If a value such as Test ... is entered in the input column B: B, then a standard email is automatically sent via Outlook.

You can customize the Excel file by adjusting the settings in Excel with Alt-F11 in the vba macro code page.

 

Vba code

Necessary vba macro code in excel

Under Alt-F11 in the Excel Document

The address and the text can be set in the header area

'-----< Setup >------

Private Const °Input_Check As String = "Test*"

 

Private Const °Email_Address_To As String = "raimund.popp@codedocu.de"

Private Const °Email_Title As String = "Test Automatische Email bei Excel-Eingabe"

Private Const °Email_Text As String = "This is Email-Text"

'-----</ Setup >------

 

 

 

Option Explicit On

 

'-----< Setup >------

Private Const °Input_Check As String = "Test*"

 

Private Const °Email_Address_To As String = "raimund.popp@codedocu.de"

Private Const °Email_Title As String = "Test Automatische Email bei Excel-Eingabe"

Private Const °Email_Text As String = "This is Email-Text"

'-----</ Setup >------

 

 

'==================< Events >==================

Private Sub Worksheet_Change(ByVal Target As Range)

    '--------< Worksheet_Change(ImputCell) >--------

    '*After_Cell_Input_Change

    If Not Intersect(Target, Range("B:B")) Is Nothing Then

        If Target.Value Like °Input_Check Then

            Dim sText As String

            sText = °Email_Text

            sText = sText & vbCrLf & "Eingabewert =" & Target.Value & " in Zeile: " & Target.Address

            Send_Email(sText)

        End If

    End If

    '--------</ Worksheet_Change(ImputCell) >--------

End Sub

'==================</ Events >==================

 

 

 

'==================< Functions >==================

Private Sub Send_Email(ByVal sText As String)

    '-------------< Send_Email() >-------------

    '----< Send with Outlook >----

    Dim app_Outlook As Outlook.Application

    Set app_Outlook = New Outlook.Application

   

    '--< Email einstellen >--

    Dim objEmail As Outlook.MailItem

    

    '--< Send Email >--

    Set objEmail = app_Outlook.CreateItem(olMailItem)

    objEmail.To = °Email_Address_To

    objEmail.Subject = °Email_Title

    objEmail.Body = sText

    objEmail.Display False

    objEmail.Send   '*optional

    '--</ Send Email >--

        

    

    '< Abschluss >

    Set objEmail = Nothing

    Set app_Outlook = Nothing

    '</ Abschluss >

        

    '----</ Send with Outlook >----

    '-------------</ Send_Email() >-------------

End Sub

 

'==================</ Functions >==================

 

 

 

Mobile
»
Excel Template: Automatically send an e-mail for a specific entry in Excel
»
Excel vba: recognize an input in cells
»
Excel, vba: insert image into a cell of cache
»
Excel: Formelfelder per Code kopieren
»
Excel Adressen in vba verwenden
»
Spalte in Excel per vba code als Nummer löschen
»
Excel Bereich in eine Tabelle umwandeln
»
Gruppierung in Excel per vba öffnen oder schliessen
»
Excel : Durchlaufen von Zeilen, Auswerten von Zellinhalten
»
Excel: eine Textdatei erstellen, Zeilen schreiben, Speichern

.

Contact for Jobs, Project Requests: raimund.popp@microsoft-programmierer.de