With
Sheets(1)
Startmaske.Cells(8, 7) =
Date
Set
olApp = CreateObject(
"Outlook.application"
)
Set
olMyItem = olApp.CreateItem(0)
With
olMyItem
.
To
=
""
.CC =
""
.Subject =
"Kohlenmeßen"
If
Date
= (
"27.01"
& Year(
Date
))
Then
.Body =
"Hallo Ivan und Markus"
& vbCrLf & vbCrLf &
"bitte denk dran das jetzt in FA1 die Kohlen gemeßen werden müßen."
& vbCrLf & vbCrLf &
"Mit freundlichen Grüßen Ivan und Markus:"
Else
If
Date
= (
"01.03"
& Year(
Date
))
Then
.Body =
"Hallo Ivan und Markus"
& vbCrLf & vbCrLf &
"bitte denk dran das jetzt in FA2 und FA4 die Kohlen gemeßen werden müßen."
& vbCrLf & vbCrLf &
"Mit freundlichen Grüßen Ivan und Markus:"
Else
If
Date
= (
"01.05"
& Year(
Date
))
Then
.Body =
"Hallo Ivan und Markus"
& vbCrLf & vbCrLf &
"bitte denk dran das jetzt in FA3 und FA5 die Kohlen gemeßen werden müßen."
& vbCrLf & vbCrLf &
"Mit freundlichen Grüßen Ivan und Markus:"
Else
If
Date
= (
"01.07"
& Year(
Date
))
Then
.Body =
"Hallo Ivan und Markus"
& vbCrLf & vbCrLf &
"bitte denk dran das jetzt in FA1 die Kohlen gemeßen werden müßen."
& vbCrLf & vbCrLf &
"Mit freundlichen Grüßen Ivan und Markus:"
Else
If
Date
= (
"01.09"
& Year(
Date
))
Then
.Body =
"Hallo Ivan und Markus"
& vbCrLf & vbCrLf &
"bitte denk dran das jetzt in FA2 und FA4 die Kohlen gemeßen werden müßen."
& vbCrLf & vbCrLf &
"Mit freundlichen Grüßen Ivan und Markus:"
""
Else
If
Date
= (
"01.11"
& Year(
Date
))
Then
.Body =
"Hallo Ivan und Markus"
& vbCrLf & vbCrLf &
"bitte denk dran das jetzt in FA3 und FA5 die Kohlen gemeßen werden müßen."
& vbCrLf & vbCrLf &
"Mit freundlichen Grüßen Ivan und Markus:"
End
If
End
If
End
If
End
If
End
If
End
If
.Send
End
With
End
With
End
Sub