Problem:
In AG-VIP lassen sich über Hilfsmittel neue Dateien erzeugen, z.B. Word-Dokumente oder Emails etc. Diese Dateien können direkt in die Historie der Adresse verlinkt werden. Nur ein zentraler Ablageort wird schnell unübersichtlich.
Lösung:
Es wird ein neues Feld ABLAGEPFAD angelegt. Je Adresse wird ein individueller Ablagepfad angelegt. Dort werden die über Hilfsmittel erzeugten Dateien abgelegt. Somit hat man je Kunde einen eigenen Ordner. Das schafft Übersicht. Mit einem Klick kann der Ordner direkt vom Kontaktdatensatz geöffnet werden.
Makro-Code:
' Stammpfad hier bitte definieren
ParentFolder = "[Stammpfad: UNC-Pfad oder Laufwerk\Ordner]"
'Ablageordner prüfen
Set objFSO = CreateObject("Scripting.FileSystemObject")
Folderpath = Replace(Application.Substitute(ParentFolder & ActiveAddress.Fields("Shortname").value,true),".","")
If objFSO.FolderExists(Folderpath) Then
Set objFolder = objFSO.GetFolder(Folderpath)
Else
'Ordner anlegen
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(ParentFolder)
objFolder.NewFolder Replace(Application.Substitute(ActiveAddress.Fields("Shortname").value,true),".","")
CurrentForm.Controls("Verzeichnis").visible=false
CurrentForm.Controls("Ablagepfad").visible=True
ActiveRecord.Fields("Ablagepfad").Value = Replace(Application.Substitute(ParentFolder & ActiveAddress.Fields("Shortname").value ,true),".","")
end if
Vorgehensweise:
- Legen Sie ein benutzerdefiniertes Feld ABLAGEPFAD vom Typ DATEINAME.
- Dieses Feld auf die gewünsche Ansicht bringen und als Typ VERZEICHNISAUSWAHL wählen.
- Ergänzen Sie einen Schalter, hinter dem obiger Makro liegt.
- Den Makro bitte so anpassen, dass hier die gewünschten Feldnamen / Inhalte stehen, wie der neue Ordner-Namen gebildet werden soll. Im Beispiel ist das nur der KURZ-NAME (= ShortName).
CurrentFormControls.Visible definiert, ob die Felder ausgeblendet werden sollen, wenn der Ablagepfad erzeugt wurde. - Passen Sie die Hilfsmittel im Tab VORLAGEN so an, dass das Feld ABLAGEPFAD als Zielordner definiert wird. Dadurch werden die erzeugten Dateien im kundenspezifischen Ordner abgelegt.
Im PreMakro sollte geprüft werden, dass das Feld ABLAGEPFAD vor Ausführung des Hilfsmittels gefüllt ist.