![]() |
FlowFact - Entwicklungstools |
![]() |
Function | BLOB_Add(ByVal strFileName As String, ByVal strLinkDsn As String, ByVal blnAsLink As Boolean, ByVal blnMarkSend As Boolean) As String |
strFileName: Dateiname strLinkDsn: Datensatznummer (DSN) i.A. der Tabelle AKT. blnAsLink: True => Nur den Verweis (Dateinamen) speichern; FALSE => Dateiinhalt in der Datenbank speichern. blnMarkSend: True => Markierung zum versenden setzen. Gemeint ist das Häkchen im Aktivitätenfenster/Anhänge/Versenden, d.h. Dateien werden beim eMailversand mit versendet. Rückgabe: Datensatznummer (DSN), des neu erzeugten BLOB-Datensatzes Public Function BLOB_Add(ByVal strFileName As String, ByVal strLinkDsn As String, ByVal blnAsLink As Boolean, ByVal blnMarkSend As Boolean) As String Dim strBlobDsn As String Dim enumBlobType As ENUM_BLOBTYPE enumBlobType = IIf(blnAsLink, BLOBTYPE_ATTACHMENTLINK, BLOBTYPE_ATTACHMENT) strBlobDsn = m_oBlob.SaveBlobFile(strFileName, strLinkDsn, enumBlobType) If blnMarkSend Then strBlobDsn = m_oBlob.SaveBlobFile(strFileName, strLinkDsn, enumBlobType, strBlobDsn, True) End If BLOB_Add = strBlobDsn End Function |