E-Mail Benachrichtigung
25.02.2009 08:48:43
Jessi
habe von Klaus K. einen Code hier gefunden, der auch einwandfrei funktioniert.
Es geht darum eine E-Mail automatisch zu erstellen, wenn ein bestimmter Wert erreicht ist.
Dieser Wert ist jetzt bei diesem Code in der Zelle A1 einer Tabelle1.
Ich habe allerdings eine Tabelle, wo eine komplette Spalte nach Datum durchgeschaut werden soll, wenn da noch 2 Tage bis zum Soll-Datum (aus Spalte) sein soll, dann soll der Code ausgeführt werden.
Wer hat eine Idee?
LG
Jessi
Private Sub Worksheet_Change(ByVal Target As Range)
'Es wird nur die Zelle A1 in dieser Tabelle geprüft
'Erst prüfen ob Zelle A1 gemeint ist
If Target.Cells.Address = "$A$1" Then
'Deklarieren
Dim zw As String
zw = Range("A1").Value 'Wert aus Zelle A1 in Variable "zw" einlesen
If zw >= 100 Then
'Wenn zw (also Zelle A1) grösser oder gleich 100 ist, dann weiter
'Deklarieren
Dim oOL As Object
Dim oOLMsg As Object
Dim oOLAttach As Object
Dim sTo As String
Dim sSubject As String
Dim sBody As String
sTo = "eMail@Adresse.de"
sSubject = "Stückzahl wurde erreicht"
sBody = "Es wurden " & zw & " Stück erreicht"
'###### Mit Outlook senden ######
Set oOL = CreateObject("Outlook.Application")
Set oOLMsg = oOL.CreateItem(0)
With oOLMsg
.To = sTo 'Empfänger
.Subject = sSubject 'Betreffzeile
.Body = sBody 'Text
.Importance = 2 '1 ist "Normal" und 2 ist "Wichtig"
.display '"display" ist zum anschauen, mit "Send" wird gesendet
End With
End If
End If
End Sub
'Die güne Schrift ist nur zur Erklärung und kann gelöscht werden