Domino 9 und frühere Versionen > Entwicklung

Mailfunktion

(1/4) > >>

tingeltangel:
Hallo Notes Gemeinde

Ich habe ein kleines Problem.

Über einen Button sollen alle markierten Dokumente in einer Ansicht. Zu einem Mail zusammen gefügt werden. Habe irgendwie ein Brett vor dem Kopf. Beim jetzigen Zustand wird zwar ein Mail verschickt aber es enthält keine Informationen.

Danke schon jetzt für eure Hilfe.

Hier mal mein erster Ansatz
Sub Click(Source As Button)
   Dim s As New NotesSession   
   Dim rtitem As NotesRichTextItem      
   Dim ws As New NotesUIWorkspace                        
   Dim db As NotesDatabase                                 
   Dim view As NotesView                                    
   Dim UIview As NotesUIView                              
   Dim doc As NotesDocument                              
   Dim memo As NotesDocument                              
   
   Dim memortitem As NotesRichTextItem                              
   Dim col As NotesDocumentCollection
   Dim colresp As NotesDocumentCollection
   Dim parent As NotesDocument
   Dim response As NotesDocument
   Dim uidoc As NotesUIDocument
   Dim flgDoneCounter As Integer
   
   Set db = s.CurrentDatabase                               
   Set UIview = ws.CurrentView                                  
   Set view = UIView.view                                    
   Set memo = New NotesDocument( db )                     
   Set memortitem = New NotesRichTextItem( memo, "Body" )           
   Set col = db.UnprocessedDocuments
   
   memo.Form = "Memo"
   memo.Subject = "Release-Infos"
   
   Set doc = col.GetFirstDocument()
   If (doc Is Nothing) Then
      Messagebox "No documents available to send release infos!", 48, "No documents"
      Exit Sub
   End If
   
   While Not(doc Is Nothing)
      Set rtitem = doc.GetFirstItem( "Body" )          
      If doc.HasItem( "Body" ) Then    
         If ( rtitem.Type = RICHTEXT And memortitem.Type = RICHTEXT ) Then      
            Call memortitem.AppendText( "Titel: " )
            Call memortitem.AddTab( 2 )
            Call memortitem.AppendText( doc.f_ed_tx_3(0) )
            Call memortitem.AddNewLine( 1 )
            Call memortitem.AppendText( "Auftrag: " )
            Call memortitem.AddTab( 1 )
            Call memortitem.AppendText( doc.f_ed_tx_5(0) )
            Call memortitem.AddNewLine( 2 )
            Call memortitem.AppendRTItem( rtitem )
            Call memortitem.AddNewLine( 1 )
            Call memortitem.AppendText("- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -")
            Call memortitem.AddNewLine( 1 )
         End If
         
      End If
      Set doc = col.GetNextDocument(doc)
   Wend
   
   memo.SendTo = s.UserName
   Call memo.Send( False )
   Print "Mail sended"
End Sub

koehlerbv:
Und was sagt der Debugger ?

Und was machst Du mit diesen Zeilen:

--- Code: ---Set rtitem = doc.GetFirstItem( "Body" )        
      If doc.HasItem( "Body" ) Then    
         If ( rtitem.Type = RICHTEXT And memortitem.Type = RICHTEXT ) Then
--- Ende Code ---

tingeltangel:
If doc.HasItem( "Body" ) Then    
If ( rtitem.Type = RICHTEXT And memortitem.Type = RICHTEXT ) Then

Bis zu dieser Zeile läuft der Debugger anschliessend springt er ans ende. Ohne den restlichen Code auszuführen.

koehlerbv:
Da stimmte ja meine Vermutung ;-)

Semeaphoros:
Bernhard, jetzt hast Du aber Tingeltangel schön im Regen -- oder im Moment mehr im weissen Sabotagepulver --- stehen gelassen ...... aber zu Recht, da sollte man mal schon seine Gedanken drüber tangeln lassen ......... ;-O

Navigation

[0] Themen-Index

[#] Nächste Seite