Option
Explicit
Private
strPath
As
String
Private
blnOk
As
Boolean
Public
Property
Get
Path()
As
Variant
Path = strPath
End
Property
Public
Property
Let
Path(
ByVal
vNewValue
As
Variant
)
strPath = vNewValue
End
Property
Public
Property
Get
Task()
As
Variant
Task = blnOk
End
Property
Public
Property
Let
Task(
ByVal
vNewValue
As
Variant
)
blnOk = vNewValue
End
Property
Option
Explicit
Private
Const
C_DIR
As
String
=
"D:\Auftrag"
Private
Const
C_RECIPIENT
As
String
=
"susanne.susanne@gmail.com"
Private
Const
C_WORKSHEETNAME
As
String
=
"Kunden"
Private
Const
C_VALUE
As
String
=
"Aufgabe"
Private
Const
C_SHOWMAILDIALOG
As
Boolean
=
True
Private
Const
C_SUBJECTTASK
As
String
=
"Aufgabe"
Private
Const
C_SUBJECTNOTASK
As
String
=
"Alles OK"
Dim
intWkbCount
As
Integer
, intMailCount
As
Integer