Code bei Zelleabfrage Email senden

Computer: Software & Programmierung Office Software
1

Hallo Freunde der Tabellenkunst.
Ich habe hier eine Code, der bei der Abfrage der Zelle A1 den Wert liest und wenn es über 25 ist eine Email sende.
Kann mir jemand der Code so verändern, das er nicht eine Nachricht senden, sondern das Arbeitsblatt, in dem der Wertabgefragt wird.

als Ecxel Objekte
Option Explicit
Private Sub Worksheet_Calculate()

If Range(„A1“) > 25 Then Send_Excel_Message
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Range(„A1“) > 25 Then Send_Excel_Message
End Sub

als Modul:
Sub Send_Excel_Message()

Dim MyMessage As Object, MyOutApp As Object
’
InitializeOutlook = True
Set MyOutApp = CreateObject(„Outlook.Application“)
'Nachrichtenobject erstellen
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = „[email protected]“
.Subject = "Testmeldung von Excel2000 " & Date & Time
'Hier wird eine normale Text Mail erstellt
’
.body = „Das ist ein Test“ & vbCrLf & „Bitte ignorieren“
'Hier wird die HTML Mail erstellt
.HTMLBody = „Das ist ein Test.“ & vbCrLf & „Bitte ignorieren.“
'Hier wird die Mail nochmals angezeigt
.Display
'Nicht ganz offiziell :smile:
.Save
SendKeys „%S“
End With
MyOutApp.Quit
Set MyOutApp = Nothing
Set MyMessage = Nothing
End Sub

2

Eamil aufgrund eines bestimmten Zellwertes senden

Hallo Freunde der Tabellenkunst.
Ich habe hier eine Code, der bei der Abfrage der Zelle A1 den
Wert liest und wenn es über 25 ist eine Email sende.
Kann mir jemand der Code so verändern, das er nicht eine
Nachricht senden, sondern das Arbeitsblatt, in dem der
Wertabgefragt wird.

Hi Küchenjunge,

vermeide Sendkeys wenn irgend möglich, immer unklar was da geschieht.

Option Explicit
'
Sub senden()
Dim olApp As Object
ActiveSheet.Copy
ActiveWorkbook.SaveAs "Test"
ActiveWorkbook.Close
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
 .display
 .Recipients.Add "[email protected]"
 .Subject = "Betreffzeile"
 .Body = "Haupttextfeld"
 .ReadReceiptRequested = False
 .Attachments.Add CurDir & "\Test.xls"
 .Send
End With
Set olApp = Nothing
End Sub '

Rückmeldung wäre nett.

Gruß
Reinhard

3

Hallo Reinhard

Kannst du bitte in dem Code Erklärungen einfügen.
Was die einzelnen Codezeilen machen?
Sendet der Code genau das Arbeitsblatt aus dem es aufgerufen wird?