Thema Datum  Von Nutzer Rating
Antwort
10.10.2019 15:05:04 Robin
NotSolved
11.10.2019 15:05:37 Torsten
NotSolved
11.10.2019 15:11:36 Robin
NotSolved
11.10.2019 15:14:01 Robin
NotSolved
11.10.2019 15:48:41 Torsten
NotSolved
Blau EMail via Excel VBA aber aus Liste
 11.10.2019 15:31:44 Torsten
NotSolved
18.10.2019 08:31:54 Robin
NotSolved
25.10.2019 10:03:19 Robin
NotSolved
25.10.2019 10:49:11 Werner
Solved
25.10.2019 12:43:41 Robin
Solved

Ansicht des Beitrags:
Von:
Torsten		 Datum:
11.10.2019 15:31:44		 Views:
672		 Rating:
     
Antwort:
  Ja
Thema:
EMail via Excel VBA aber aus Liste

Hallo Robin,

also mit nachfolgender Variante brauchst du Spalte B nicht. Du markierst lediglich alle Email Adressen, die die Email erhalten sollen. Da du das After_Save Ereignis benutzt, dann also nur noch Speichern und der Code sollte laufen.

Sub Workbook_AfterSave(ByVal Success As Boolean)

    Dim objOL As Object
    Dim objMail As Object
    Dim strMsg As String, strAdr As String, strAdrAll As String
    Dim Zelle As Range
    Dim zaehler As Long
    zaehler = 1
    
    Set objOL = CreateObject("outlook.application")
    Set objMail = objOL.createItem(0)
    
    strMsg = "Datei " & Me.Name & " wurde am " & Format(Date, "dd.MM.yyyy") & " um " & Format(Now, "hh:mm:ss") & " geändert." & vbCrLf
 
    For Each Zelle In Selection
        If InStr(Zelle.Value, "@") Then
            If Zelle.Value <> "" Then
                strAdr = Zelle.Value
            End If
        End If
        If zaehler = 1 Then
            strAdrAll = strAdr
        Else
            strAdrAll = strAdrAll & "; " & strAdr
        End If
        zaehler = zaehler + 1
    Next Zelle
 
    On Error Resume Next
    
    With objMail
        .To = strAdrAll
        .CC = ""
        .BCC = ""
        .Subject = "Datei xx wurde aktualisiert"
        .Body = strMsg
        .HTMLBody = strMsg & _
        "<a href=""file://" & ActiveWorkbook.Path & """>Laufwerk</a>"
        .send
    End With
    
    On Error GoTo 0
    
    Set objMail = Nothing
    Set objOL = Nothing
 
End Sub

Gruss Torsten

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

Thema Datum  Von Nutzer Rating
Antwort
10.10.2019 15:05:04 Robin
NotSolved
11.10.2019 15:05:37 Torsten
NotSolved
11.10.2019 15:11:36 Robin
NotSolved
11.10.2019 15:14:01 Robin
NotSolved
11.10.2019 15:48:41 Torsten
NotSolved
Blau EMail via Excel VBA aber aus Liste
 11.10.2019 15:31:44 Torsten
NotSolved
18.10.2019 08:31:54 Robin
NotSolved
25.10.2019 10:03:19 Robin
NotSolved
25.10.2019 10:49:11 Werner
Solved
25.10.2019 12:43:41 Robin
Solved