Thema Datum  Von Nutzer Rating
Antwort
Rot Automatische Email nach speicher wenn sich bestimmte Felder ändern
10.06.2019 14:33:02 samuel
NotSolved
10.06.2019 15:41:46 Gast0815
NotSolved
10.06.2019 16:29:06 samuel
NotSolved
10.06.2019 16:37:41 Gast0815
NotSolved
10.06.2019 16:52:19 Gast0815
NotSolved
10.06.2019 17:15:53 Gast0815
NotSolved
10.06.2019 17:21:19 Gast0815
NotSolved
10.06.2019 17:32:37 Gast91891
NotSolved
10.06.2019 17:35:42 Gast0815
NotSolved
10.06.2019 17:46:02 samuel
NotSolved
10.06.2019 17:53:28 samuel
NotSolved
10.06.2019 19:10:53 Gast0815
NotSolved
10.06.2019 19:17:00 Gast301
NotSolved
10.06.2019 19:24:57 Gast0815
NotSolved
10.06.2019 19:35:14 Gast0815
NotSolved
10.06.2019 19:43:54 Gast87126
NotSolved
10.06.2019 19:47:04 Gast2229
NotSolved
10.06.2019 20:38:42 Gast0815
NotSolved

Ansicht des Beitrags:
Von:
samuel
Datum:
10.06.2019 14:33:02
Views:
65
Rating: Antwort:
  Ja
Thema:
Automatische Email nach speicher wenn sich bestimmte Felder ändern

Hallo Zusammen

 

Ich bin auf der Suche nach einem VBA Code der immer dann eine email rausschickt, wenn sich in einer bestimmten Zelle der Wert ändert. Die Email soll aber erst nach dem speichern verschickt werden.  Im Internet bin ich bis jetzt auf diesen Code gestossen. Dieser funktioniert auch, aber eben nur für die ganze Arbeitsmappe und nicht für einen definierten Bereich. 

Ich bedanke mich für Eure Hilfe!

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'Updated by Extendoffice 20181102
    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
        ActiveWorkbook.Save
        xName = ActiveWorkbook.FullName
    With xMailItem
        .To = "email"
        .CC = ""
        .Subject = "The workbook has been saved"
        .Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
        .Attachments.Add xName
        .Display
       '.send
    End With
    Set xMailItem = Nothing
    Set xOutApp = Nothing
End Sub
 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Automatische Email nach speicher wenn sich bestimmte Felder ändern
10.06.2019 14:33:02 samuel
NotSolved
10.06.2019 15:41:46 Gast0815
NotSolved
10.06.2019 16:29:06 samuel
NotSolved
10.06.2019 16:37:41 Gast0815
NotSolved
10.06.2019 16:52:19 Gast0815
NotSolved
10.06.2019 17:15:53 Gast0815
NotSolved
10.06.2019 17:21:19 Gast0815
NotSolved
10.06.2019 17:32:37 Gast91891
NotSolved
10.06.2019 17:35:42 Gast0815
NotSolved
10.06.2019 17:46:02 samuel
NotSolved
10.06.2019 17:53:28 samuel
NotSolved
10.06.2019 19:10:53 Gast0815
NotSolved
10.06.2019 19:17:00 Gast301
NotSolved
10.06.2019 19:24:57 Gast0815
NotSolved
10.06.2019 19:35:14 Gast0815
NotSolved
10.06.2019 19:43:54 Gast87126
NotSolved
10.06.2019 19:47:04 Gast2229
NotSolved
10.06.2019 20:38:42 Gast0815
NotSolved