AW: automatische Emailbenachrichtigung
Ramses
Hallo
am einfachsten und schnellste würde es auf folgende Weise gehen
Das gehört in das Klassenmodul deiner Arbeitsmappe
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim myMailAcc As String, myInfo As String, myBody As String
myMailAcc = "irgendwer@irgendwo.de"
myInfo = "Werteänderung in EXCEL Sheet"
myBody = "Informationstext"
Call ChangeMail(eMail, Subject, Body)
End Sub
und das in ein EIGENES Modul dieser Arbeitsmappe
Option Explicit
Private Declare Function ShellExecute Lib "Shell32.dll" _
Alias "ShellExecuteA" (ByVal hWnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Private Sub ChangeMail(myMailAcc As String, Optional myInfo As String, _
Optional myBody As String)
Call ShellExecute(0&, "Open", "mailto:" + myMailAcc + _
"?Subject=" + myInfo + "&Body=" + myBody, "", "", 1)
End Sub
Das ist unspezifisch und funktioniert mit jedem Mail-programm, sollte zumindest.
Wenn es spezifisch auf Outlook sein soll, mit versenden von Attachments muss ein anderer Code ran.
Gruss Rainer