Domino 9 und frühere Versionen > ND6: Entwicklung

Mail mit Anhang aus Filesystem erstellen...

<< < (2/3) > >>

William Wallace:
richtig - ansonsten müsstest due ein doc.send machen...

reraru:
Warum wird denn einmal "doc" und einmal "newdoc" genutzt?


--- Code: ---Set doc = New NotesDocument( db )
Set RTItem = doc.GetFirstItem("Body")
Set newDoc = db.CreateDocument

--- Ende Code ---

William Wallace:
wie gesagt, das script war schnell 'dahinprogrammiert'. Das Dim doc kann weg...
Das newdoc wird ja komplett neu erstellt und reicht demnach so.

 ;)

reraru:
Stimmt! ;-)

Dann bin ich beruhigt!

Ich lösche also:


--- Code: ---Dim doc As NotesDocument

--- Ende Code ---

Was bleibt ist:


--- Code: ---Set doc = New NotesDocument( db )

--- Ende Code ---

Das kann doch dann eigentlich auch weg, oder?
Nehme ich es weg bekomme ich "Variant does not contain an object"

Es geht mir nur ums Verständnis!

William Wallace:
Habe das Script mal überarbeitet - haben uns wohl missverstanden  ;)


   ' Deklarierung
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Dim object As NotesEmbeddedObject
   Dim RTItem As Variant
   Dim AItem As NotesRichTextItem
   Dim pathName As String
   Dim fileName As String
   
   ' Settings
   Set db = session.CurrentDatabase
   Set doc = New NotesDocument( db )
   Set AItem = New NotesRichTextItem(Doc,"Body")
   
   Doc.Form = "Test"
   pathName$ = "c:\Upload\*.*"
   fileName$ = Dir$(pathName$, 0)
   
   ' Fussschleife: attach und anschließender Kill   
                ' solange Dateien vorhanden sind
   Do 
      Call AItem.EmbedObject(EMBED_ATTACHMENT,"", "c:\Upload\" & fileName$ )
      Kill "c:\Upload\" & fileName$
      fileName$ = Dir$()
   Loop Until fileName$ = ""
   
   ' Speichern und tschüß
   Call Doc.Save (True,False)

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete