Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: HeiCore am 13.10.03 - 10:09:11

Titel: periodische mail mit Dateianhang
Beitrag von: HeiCore am 13.10.03 - 10:09:11

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

Kann mir da jemand mit Beispiel-Code weiterhelfen?

Danke schonmal.

Titel: Re:periodische mail mit Dateianhang
Beitrag von: my head am 13.10.03 - 10:50:55

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])

Titel: Re:periodische mail mit Dateianhang
Beitrag von: eknori am 13.10.03 - 10:57:51

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

Titel: Re:periodische mail mit Dateianhang
Beitrag von: HeiCore am 13.10.03 - 12:09:17

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