Ansicht - Auswahl von Dokumente - E-Mail versenden

[King]

Hi Forum,

habe hier ein größeres Problem.

In einer Ansicht werden fertiggestellte E-Mails markiert. Über eine Aktion sollen nur die markierten E-Mails versendet werden.

Die Aufgabe ist klar, nur habe ich keinen schimmer, wie ich die lösen soll. Hat jemand eine Idee ?

Bin für jeden Hinweis dankbar.

MFG
King

[doliman]

Hi,

hier habe ich eine Routine die mir die markierten Dokumente einer Ansicht mit einem Löschflag versieht.
Ein paar Änderungen und es geht auch mit Emailversand.

Sub SubDeleteDocsInView
     Dim uiworkspace As New notesuiworkspace
     Dim uiview As NotesUIView
     Dim doc As notesDocument
     Dim dc As NotesDocumentCollection
     Dim session As New NotesSession
     Dim sUser As String
     
     On Error Goto   ErrorHandler      
     
     sUser$ = session.CommonUserName
     Set uiview = uiworkspace.currentview
     Set dc = uiview.Documents
     Set doc = dc.GetFirstDocument
     
     If dc.count>0 Then
           answer% = Messagebox( "Möchten Sie das Dokument wirklich löschen?", _
           MB_YESNO + MB_ICONEXCLAMATION, "Löschinformation")
           If answer%=6 Then
                 While Not(doc Is Nothing)
                       x% = x%+1
                       doc.FDeleted_N = 1
                       doc.FDeletedFrom_T = sUser$
                       doc.FDeletedAt_D = Date$
                       Call SaveNotesDocument(doc)
                       Set doc = dc.GetNextDocument(doc)
                 Wend
                 Call uiworkspace.ViewRefresh
'                  Msgbox "Gelöschte Dokumente: " & x%
           End If
     Else
           answer% = Messagebox( "Sie müssen ein Dokument in der Ansicht auswählen!", _
           MB_OK + MB_ICONINFORMATION, "Löschinformationen")
     End If
     
TheEnd:
     Exit Sub
     
ErrorHandler:
     routine$ = "Lösche Documente"
     tellError routine$, Err, Erl, Error
'      Msgbox Trim$(Str$(Err)) & ": " & Error$
     Goto TheEnd
End Sub

[King]

Hi,

danke für Deine Antwort.

Werde ich gleich mal versuchen, melde mich wieder.

MFG
King