Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: King am 30.07.02 - 15:50:41

Titel: Ansicht - Auswahl von Dokumente - E-Mail versenden
Beitrag von: King am 30.07.02 - 15:50:41

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

Titel: Re: Ansicht - Auswahl von Dokumente - E-Mail verse
Beitrag von: doliman am 31.07.02 - 09:39:26

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

Titel: Re: Ansicht - Auswahl von Dokumente - E-Mail verse
Beitrag von: King am 31.07.02 - 10:20:00

Hi,

danke für Deine Antwort.

Werde ich gleich mal versuchen, melde mich wieder.

MFG
King