Hallihallo,
ich habe letztens ein tolles Makro gefunden, um Mails aus Excel zu versenden..
Leider muss ich aber jedes mal den Code öffnen, wenn ich jemand neues hinzufügen will.
Daher möchte ich nun in einem zweiten Tabellenblatt eine Liste mit Email-Adressen führen, wo ich auswählen kann, wer die Email erhalten soll.
Kann mir da jemand helfen meinen Code anzupassen?
Dies ist ein Link für die Idee, jedoch möchte ich meinen bisherigen Code anstatt des offerierten verwenden:
https://microsoft-programmierer.de/Office-365/Excel/Vorlagen/Email/Emails-versenden-aus-Excel?2510
Hier mein Code:
Sub Workbook_AfterSave(ByVal Success As Boolean)
Dim objOL As Object
Dim objMail As Object
Dim strMsg As String
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
On Error Resume Next
With objMail
.To = "peter.muster@gmx.com"
.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
Anstatt "peter.muster@gmx.com" müsste ich ja nun eine Art Verknüpfung zu der Email-Liste machen oder?
|