Konfiguration für Wf2Mail:
==========================

+---------------------------------------------------------------------------------+
| Das Script der Dokumentenliste im DOXiS ist um den folgenden Code zu erweitern: |
+---------------------------------------------------------------------------------+


Private Sub DocumentList_ShowingContextMenu(Documents As WFLOBJ.SCBWflDocuments, ByVal IsObjectSelected As Long, Handled As Boolean)
    If Documents.Count > 0 Then
        DocumentList.AppendContextMenuItem &H800, 9000, "-"
        DocumentList.AppendContextMenuItem &H0, 9001, "Mail &versenden"
    End If
End Sub

Private Sub DocumentList_ContextMenuItem(ByVal MenuID As Long, Documents As WFLOBJ.SCBWflDocuments, ByVal IsObjectSelected As Long, Handled As Boolean)
    On Error GoTo ErrorHandler
    Dim oSelectedDocuments                 As New SCBWflDocuments
    Dim oMail                              As Object
    
    
    Select Case MenuID
        Case 9001
            'Loop over all documents to find the selected
            For Each oDoc In Documents
                If IsObjectSelected Then
                    oSelectedDocuments.Add oDoc
                End If
            Next oDoc
            If oSelectedDocuments.Count = 0 Then Exit Sub
            On Error Resume Next
            Set oMail = CreateObject("WF2Mail.Application")
            If oMail Is Nothing Then Exit Sub
            With oMail
                Set .Session = oSelectedDocuments.Item(1).session
                Set .Documents = oSelectedDocuments
                Set .WorkItem = oSelectedDocuments(1).GetActiveWorkItem
                .MailSystem = 0 'Für Outlook bzw. Outlook Express
                '.MailSystem = 1 'Für Novell Groupwise
                '.MailSystem = 2 'Für Lotus Notes
                .DoSend
            End With
    End Select
    
    
    Exit Sub
ErrorHandler:
    ReportError "DocumentList_ContextMenuItem"
    
End Sub


Private Sub ReportError(Optional Modul As String = "")
    With oError
	    .Empty
	    .Description = Err.Description
	    .Number = Err.Number
	    .HelpFile = Err.HelpFile
	    .HelpContext = Err.HelpContext
	    .Source = Err.Source
	    .PutDetail "Module", Modul
	    .ReportError
    End With
End Sub