Automatische EMail



Excel-Version: 97
nach unten

Betrifft: Automatische EMail
von: Hägar
Geschrieben am: 08.05.2002 - 13:26:11

Hilfe !
Mein User haben vieleicht Fragen.
Ist es möglich Excel dazu zu veranlassen automatisch wenn eine Zelle einen bestimmten Wert bekommt, dazu zu veranlassen eine Mail zu versenden. Ich denke wenn dann über VisualBasic.
Nur wie ich habe kein Ahnung!
:-( Hägar
nach oben   nach unten

Re: Automatische EMail
von: Michael Wendeler
Geschrieben am: 08.05.2002 - 14:21:43

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



 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Automatische EMail"