periodische mail mit Dateianhang

[HeiCore]

Brauche einen periodischen Agenten, der Mails mit einem Dateianhang versenden kann.

Kann mir da jemand mit Beispiel-Code weiterhelfen?

Danke schonmal.

[my head]

was soll das für'n anhang sein???

aus einem notes-doc oder wirklich ein anhang à la word, excel oder irgendwas??

falls ja:

schau in der hilfe nach:
@Command([EditInsertFileAttachment]) oder @Command( [EditInsertFileAttachment] ; Datei ; Komprimieren ) und @MailSend(SendenAn ; KopieAn ; BlindkopieAn ; Thema ; Anmerkung ; Haupttextfelder ; [Flags])

[eknori]

Sub Initialize
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim mailmsgdoc As NotesDocument
   Dim rtitem As NotesRichTextItem
   Dim object As NotesEmbeddedObject
   Dim DummyObject As NotesEmbeddedObject
   
   Set db = session.CurrentDatabase
   
   Set mailmsgdoc=New notesdocument(db)
   mailmsgdoc.form="Memo"
   mailmsgdoc.subject= "Test Mailversand mit Attachment"
   mailmsgdoc.sendto="ukrause"
   mailmsgdoc.copyto= ""
   
   Set rtitem=New notesrichtextitem(mailmsgdoc,"Body")
   
   Call rtitem.appendtext ( "Hallo Uli" )
   Call rtitem.addnewline (1)
   filename$ = "test.doc"
   FilePath$ = "c:\temp\" + filename$
   
   Set DummyObject = rtitem.EmbedObject( EMBED_ATTACHMENT,"" , FilePath$)
   
   Call rtitem.addnewline (2)
   Call rtitem.addnewline (1)
   Call rtitem.appendtext("Customer Services Dept.")
   Call rtitem.addnewline (1)
   
   Call mailmsgdoc.send(False)
   
End Sub

[HeiCore]

Vielen Dank! Das hat mir sehr geholfen meine Lust an Notes wiederzuendecken!