Zugriff von Modul zu Modul

Sub CommandButton1_Click()
Dim c As Range
Dim d As Range
For Each d In Range("D1:D5")
If d = Date Then
For Each c In Range("A1:A5", "B1:B5")
If c > 1 Then
If c <= 100 Then
EmailNotify "Order", Target.Value
End If
End If
Next c
End If
Next d
End Sub

Sub EmailNotify(SubjectText As String, BodyText As String)
Dim appOL As Object
Dim objMail As Object
Const EMAIL_ADDRESS = "keinschimmer@ratlos.com"
Set appOL = CreateObject("Outlook.Application")
Set objMail = appOL.CreateItem(0) ' olmailitem=0
With objMail
.Recipients.Add EMAIL_ADDRESS
.Subject = SubjectText
.Body = BodyText
.Send
End With
Set objMail = Nothing
Set appOL = Nothing
End Sub