Hallo zusammen,
bin leider noch etwas ein VBA Laie und versuche mich derzeit an einem VBA Code.
Diese VBA soll bei Änderung in einer Spalte auf einen bestimmten Wert, automatisch eine E-Mail an eine Mail Adresse versenden. Allerdings ist derzeit das Problem, dass ich das Makro welches die E-Mail versendet nicht "callen" kann.
Kann mir eventuell jemand eine kleine Hilfestellung geben?
Das Problem liegt denk ich irgendwo an den ersten zwei Zeilen, denn wenn ich das Makro via Button starte funktioniert alles.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("G:G").Value = "XXXXX" Then Call MakroXX
End Sub
Sub MakroXX()
Dim objOutlook As Object
Set objOutlook = CreateObject("Outlook.Application")
' CREATE EMAIL OBJECT.
Dim objEmail As Object
Set objEmail = objOutlook.CreateItem(olMailItem)
With objEmail
'Empfänger, Betreff und Normaler Lauftext hier einzustellen
.to = "XXXXX"
.Subject = "XXXXX." & Date & Time
.Body = "XXXX"
' .Display
' .Attachments.Add ("D:\Bild.png")
.Send
End With
' CLEAR.
Set objEmail = Nothing: Set objOutlook = Nothing
ErrHandler:
End Sub
Vielen Dank schonmal.
Grüße
Reiner
|