Thema Datum  Von Nutzer Rating
Antwort
21.11.2017 23:51:04 Susanne
NotSolved
22.11.2017 14:19:34 SJ
NotSolved
22.11.2017 22:08:42 Susanne
NotSolved
23.11.2017 07:25:08 SJ
NotSolved
23.11.2017 19:01:41 Susanne
NotSolved
24.11.2017 07:44:04 SJ
NotSolved
24.11.2017 16:44:00 Susanne
NotSolved
24.11.2017 17:06:01 SJ
NotSolved
Rot Dateien im Verzeichnis prüfen und wenn Bedingung erfüllt Email versenden
 24.11.2017 18:00:43 Susanne
NotSolved
25.11.2017 10:10:27 SJ
NotSolved
04.12.2017 22:56:07 Susanne
NotSolved
05.12.2017 14:51:24 SJ
NotSolved

Ansicht des Beitrags:
Von:
Susanne		 Datum:
24.11.2017 18:00:43		 Views:
641		 Rating:
     
Antwort:
  Ja
Thema:
Dateien im Verzeichnis prüfen und wenn Bedingung erfüllt Email versenden		 
Option Explicit
 
'//Daten
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
 
'//Verweise
'//Microsoft Scripting Runtime
'//Microsoft Outlook xx.x Object Library
 
'//Konstanten (Einstellungen) -> Bitte anpassen!

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"
 
'//Daten
Dim intWkbCount As Integer, intMailCount As Integer

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
21.11.2017 23:51:04 Susanne
NotSolved
22.11.2017 14:19:34 SJ
NotSolved
22.11.2017 22:08:42 Susanne
NotSolved
23.11.2017 07:25:08 SJ
NotSolved
23.11.2017 19:01:41 Susanne
NotSolved
24.11.2017 07:44:04 SJ
NotSolved
24.11.2017 16:44:00 Susanne
NotSolved
24.11.2017 17:06:01 SJ
NotSolved
Rot Dateien im Verzeichnis prüfen und wenn Bedingung erfüllt Email versenden
 24.11.2017 18:00:43 Susanne
NotSolved
25.11.2017 10:10:27 SJ
NotSolved
04.12.2017 22:56:07 Susanne
NotSolved
05.12.2017 14:51:24 SJ
NotSolved