VBA Erweiterung eines bestehenden Codes
Glen
Ich habe ein geniales Makro von hier, dass ich auch seit einiger Zeit nutze.
Nun habe ich die Möglichkeit dieses bei einer anderen Arbeitsmappe einzusetzen, benötige hierzu jedoch noch eine weitere Funktion.
Das unten stehende Makro sendet nach dem sichern der Arbeitsmappe eine E-Mail.
Kann man den Code um die Funktion erweitern, dass wenn der Empfänger -der im Makro genannt ist- Einträge in die Arbeitsmappe gemacht hat und das ganze sichert,
dieses Mail nach dem sichern nicht nochmal erhält?
Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim ol, mail As Object
Set ol = CreateObject("Outlook.Application")
Set mail = ol.CreateItem(0)
mail.Subject = "Retour Lieferant " & Now
mail.To = "efrem.keller@spengler.ch"
'mail.cc = ""
'mail.bcc = ""
mail.body = "Diese Mail wurde nach dem sichern direkt aus Excel versandt. In der Liste O:VSB Versand Betrieb\Diverses\RetourLieferant.xls wurde ein Eintrag vorgenommen, bitte bearbeiten." & Chr(13) & _
"" & Chr(13) & _
"" & Chr(13) & Chr(13)
mail.Display
mail.send
End Sub
vielen Dank im voraus für eure Hilfe
liebe Grüsse
Glen