Re: Automatische EMail
08.05.2002 14:21:43
Michael Wendeler
Hallo Hägar,im Archiv von Herber unter https://www.herber.de/cgi-bin/callsmpl.pl?Datei=168202h.htm
findest Du folgendes Makro:
basMain:
Sub SendMessage()
Application.ScreenUpdating = False
Workbooks.Add
Range("A1").Value = "Wert in Zelle A1 hat um " & _
Format(Now, "dd.mm.yy - hh:mm") & _
" den Wert von 100 überschritten."
ActiveWorkbook.SendMail "hans@herber.de", "Wertüberschreitung"
ActiveWorkbook.Close savechanges:=False
End Sub
Tabelle1:
Private Sub Worksheet_Calculate()
If Range("A1") > 100 Then Call SendMessage
End Sub
Ich hoffe es hilft Dir.
Gruß
M. Wendeler
http://www.wendelers.de