FlowFact - Entwicklungstools

zurück

Function - BLOB_Copy
Anhänge kopieren

  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