Microsoft Excel

Herbers Excel/VBA-Archiv

Automatische EMail



Excel-Version: 8.0 (Office 97)

Betrifft: Automatische EMail
von: Erich Dietloff
Geschrieben am: 10.06.2002 - 14:52:01

Hallo!

Zu dem Thema was Chefs alle so wollen (Das muß doch gehen).

Ist es möglich das excel automatisch z.B. nach überschreiten eines Grenzwertes in einem Arbeitsblatt eine E-mail versendet ?
Wenn dann nur über ein Macro vermute ich !

:-) Erich Dietloff

  

Nachfragen
von: Martin Beck
Geschrieben am: 10.06.2002 - 15:02:43

Hallo Erich,

1. gaaaanz wichtig: welcher Mail-Client?

2. Wo steht der Grenzwert, in einer Zelle?

Soviel vorab, es geht unter bestimmten Umständen per Makro.

Gruß
Martin Beck

  

Re: Nachfragen
von: Erich Dietloff
Geschrieben am: 10.06.2002 - 15:12:33

Wir haben TobitInfoCenter XP mit einer Standleitung.
Es ist aber eine Umstellung auf "Microsoft Exchange" geplant.
Das ganze über TCPIP Netz.

Ist es wichtig das der Grenzwert in einer bestimmten Zelle liegt, ich dacht ich würde über das Macro excel sagen wo der Grenzwert ist ?

:-) Erich

  

Vorschlag
von: Martin Beck
Geschrieben am: 10.06.2002 - 15:31:28

Hallo Erich,

versuch mal folgendes:


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("A1") > 10 Then
    Workbooks.Add
    ActiveWorkbook.SendMail Recipients:="erich.vietloff@wegu.de", Subject:="Grenzwert überschritten"
    ActiveWorkbook.Close
End If
End Sub

Mail sollte verschickt werden, wenn in der betroffenen Tabelle in Zelle A1 ein Wert größer als 10 eingegeben wird.

Gruß
Martin Beck

P.S. Ggf. auch in der Recherche mal unter "E-Mail" o.ä. Stichwörtern suchen.

 

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