![]() |
FlowFact - Entwicklungstools |
![]() |
Function | BLOB_Copy(ByVal strSorceLinkDsn As String, ByVal strDestLinkDsn As String) As Long |
strSorceLinkDsn: Quell-Datensatznummer (DSN) i.A. der Tabelle AKT. strDestLinkDsn: Ziel-Datensatznummer (DSN) i.A. der Tabelle AKT. Rückgabe: Anzahl der kopierten Anhänge Public Function BLOB_Copy(ByVal strSorceLinkDsn As String, ByVal strDestLinkDsn As String) As Long Dim lngResult As Long Dim rsBlob As ADODB.Recordset Dim strBlobDsn As String Dim lngTyp As Long Dim strFileName As String lngResult = 0 Set rsBlob = BLOB_GetInfo(strSorceLinkDsn) While rsBlob.EOF = False strBlobDsn = rsBlob("Dsn") lngTyp = oUtil.d(rsBlob("lngTyp")) Select Case lngTyp Case BLOBTYPE_ATTACHMENTLINK 'Link strFileName = oUtil.k(rsBlob("strsourcefilename")) If strFileName <> "" Then BLOB_Add strFileName, strDestLinkDsn, True, oUtil.b(rsBlob("mail_attachment")) lngResult = lngResult + 1 End If Case BLOBTYPE_ATTACHMENT 'Anhang strFileName = oBlob.OpenBlobFile(strBlobDsn, strSorceLinkDsn, BLOBTYPE_ATTACHMENT) If strFileName <> "" And m_oFS.FileExists(strFileName) = True Then BLOB_Add strFileName, strDestLinkDsn, False, oUtil.b(rsBlob("mail_attachment")) lngResult = lngResult + 1 End If End Select rsBlob.MoveNext Wend BLOB_Copy = lngResult End Function |