VBA - excel Arbeitsmappe automatisch speichern und als Email versenden
16.07.2020 06:46:07
Veronika
ich habe eine xls. Arbeitsmappe, in der ich Daten eintrage.
Ich würde gerne, diese Arbeitsmappe, nach dem eintragen von neuen Daten per Mail verschicken.
Das versenden als Mail funktioniert mit Makro schon mal. Leider speichert er mir aber nicht die Arbeitsmappe vor dem versenden automatisch und hängt diese an das Mail an.
Gibt es diese Möglichkeit, meinen VBA Code soweit anzupassen dass:
Nach Eingabe in der Spalte (F:F) die Arbeitsmappe automatisch gespeichert und per Email versendet wird?
Anbei mein Makro:
Option Explicit
'-----------
Private Const °Input_Check As String = "x*"
Private Const °Email_Address_To As String = "email adresse"
Private Const °Email_Title As String = "Elektronischer Belegungsplan"
Private Const °Email_Text As String = "Eine neue Nummer wurde zum elektronischen Belegungsplan hinzugefügt"
'----- Setup >------
'====================================
Private Sub Worksheet_Change(ByVal Target As Range)
'----------------
'*After_Cell_Input_Change
If Not Intersect(Target, Range("F:F")) Is Nothing Then
If Target.Value Like °Input_Check Then
Dim sText As String
sText = °Email_Text
sText = sText & vbCrLf & "neu hinzugefügte Charge = " & Target.Value & " "
Send_Email (sText)
End If
End If
'-------- Worksheet_Change(ImputCell) >--------
End Sub
'================== Events >==================
'====================================
Private Sub Send_Email(ByVal sText As String)
'--------------------------
'--------
Dim app_Outlook As Outlook.Application
Set app_Outlook = New Outlook.Application
'----
Dim objEmail As Outlook.MailItem
'----
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 >--
'
Set objEmail = Nothing
Set app_Outlook = Nothing
' Abschluss >
'---- Send with Outlook >----
'------------- Send_Email() >-------------
End Sub
'================== Functions >==================
Vielen Dank!