TKSoft-Online

Problemstellung:

Erweiterung für die Userverwaltung I und II:
Verwenden eines eigenen Mailsystems innerhalb einer Access Mehrbenutzer Anwendung

Die hier vorgestellte Lösung ist eine Erweiterung der beiden Bsp:
Userverwaltung I
Userverwaltung II
Es wurde die Frage aufgeworfen: Wie kann man innerhalb einer Access
Mehrbenutzer Anwendung ein System, ähnlich E-Mail,
aufbauen aber weder mittels E-Mail noch NetSend o.ä.?
Es soll nur innerhalb der Access-Anwendung funktionieren.
Eine Lösung möchte ich hier mal vorstellen.

Voraussetzungen:

Das Bsp ist unter A00, AXP, A03 lauffähig, unter A07 wurde es nicht getestet.

Das Setup installert die Dateien automatisch in das Verzeichnis
"C:\tk_Mailsystem" Grund sind die Tabellenverknüpfungen des BE's im FE.
Auch kommt die "Crypter2.dll" wieder zum Einsatz, diese wird automatisch installiert und registriert.
Benutzer der "CrypterPW.dll" können diese auch hier für benutzen.
Der Unterschied ist nur das in der "Crypter2.dll"
noch das FileStorage-System enthalten ist.
Dieses Bsp baut auf die Userverwaltungen aus o.g. DB's auf.
Für andere Userverwaltungen steht es jedem frei dieses Bsp anzupassen oder umzuschreiben.

Der Timer des Forms ist auf 60 Sek eingestellt. Das bedeutet aller 60 Sek fragt das Form ab
ob neue Nachrichten da sind.
Dieser Wert kann beliebig verändert werden, aber ein Verkleinerung wäre nicht zu empfehlen,
da hier die Systembelastung steigt.

Private Sub Form_Timer()
  Static MsgBoxDone As Boolean
  Dim strMsg As String
  Dim MailLog As Boolean
  Dim iCount As Integer
  Dim db As DAO.Database, rs As DAO.Recordset
  
  MailLog = False
  On Error Resume Next
  Set db = CurrentDb()
  Set rs = db.OpenRecordset("qry_MailLog")
  rs.MoveLast
  iCount = rs.RecordCount

  If iCount > 0 Then MailLog = True
  rs.Close
  db.Close
  On Error GoTo 0
  
  If MailLog = True Then
    If Not MsgBoxDone Then
      Beep
      DoCmd.OpenForm "frmMailMsgBox"
      MsgBoxDone = True
    End If
  End If
End Sub

Im Startform ist eine Combobox enthalten in der alle aktiven User, auch offline, angezeigt werden.
Die Auswahl eines Users als Empfänger und das Schreiben neuer Mails kann auch aus einem
seperaten Form geschehen.
In diesem Fall muss aber das Startform immer im Hintergrund offen sein.
Nach der Auswahl eines Users kann über den Button "Neue Mail schreiben" eine neue Mail erfasst werden.
Mittels "Abbrechen"-Button kann der Vorgang abgebrochen werden. Mit "Mail senden" wird
das Mail in die DB geschrieben.
Ist der Empfänger online erhält nach 60 Sek die neue Mail ansonsten wenn er sich das nächste
Mal in der DB anmeldet. Auch hier nach dem ersten Zyklus von 60 Sek.

In der Bsp-DB sind für den User "Egon Aufsicht" 2 Mails und für den User "Willi Gast" ein Mail hinterlegt.
Erfolgt die Anmeldung mit einem von beiden erhaltet Ihr innerhalb von 60 Sek nach dem
Start die Mitteilung über neue Nachrichten.

Fazit:
Es ist sicher eine Lösung die noch erweiterbar ist. Der Eigeninitiative sind hier keine Grenzen gesetzt.

Download nur für registrierte User

Erweiterung für die Userverwaltung I und II

Downloads in dieser Kategorie

MS-Access Sicherheit

Seite: 1

• Access-DB als Demo weitergeben

Access-DB als Demo weitergeben,
wahlweise mit Zeitlimit oder Anzahl der Programmstarts
für A00-A03, A07 nicht getestet

Die Zip-Datei enthält eine Version ab A00

• Lizenz über das Internet verlängern (A00-A03)

Access-DB zeitlich limitiert lizenzieren und über das Internet verlängern.
für A00-A03

Die Zip-Datei enthält eine Version ab A00-A03

• Lizenz über das Internet verlängern (A07)

Access-DB zeitlich limitiert lizenzieren und über das Internet verlängern.
für A07

Die Zip-Datei enthält eine Version ab A07

• Passwort Generator

Passwort Generator mit verschiedenen Möglichkeiten
für A00-A07

Die Zip-Datei enthält eine Version ab A00

• Permissions auslesen

Permissions auslesen
für A00-A03

Die Zip-Datei enthält eine Version ab A00

• Ver- und Entschlüsseln einzelne Datenfelder

Ver- und Entschlüsseln einzelne Datenfelder
für A00-A03, A07 nicht getestet

Die Zip-Datei enthält eine Version ab A00

Powered by Tux Merlín Extensions