Ich habe einen Agenten der sich aus der aktuellen DB die Dokumente der Kunden holt und an die Ansprechpersonen mails erstellt. Der Text ist immer der gleiche, nur der Anhang ist jedesmal ein anderer kundenspezifischer. Der Betreff, sowie der Mail-Text (formatiert) wird aus einem Profil-Dok. geholt. Die Mails werden in einer eigenen Mail-DB erstellt von wo Sie nach eventueller Prüfung verschickt werden können.
Mein Problem ist, dass die Mails in der Druckansicht bzw. beim Ausdruck zerstückelt werden. Das Mail sollte auf einer Seite bzw. 2 Seiten ausgedruckt werden können, der Text wird beim Ausdruck aber auf 10 Seiten verteilt. Nach jedem Absatz bzw. nach ein paar Zeilen wird auf eine neue Seite gedruckt.
Was könnte die Ursache sein? Der richtext wird mit copyitemtodocument in das mail gestellt.
Gruß
Bobby
Sub Initialize
Dim s As New NotesSession
Dim c As Notesdocumentcollection
Dim db, mailDB As Notesdatabase
Set db = s.currentdatabase
Set mailDB = s.GetDatabase("server","mail.nsf",False)
Set c = db.unprocessedDocuments
Dim profil, maildoc As Notesdocument
Dim doc As Notesdocument
Dim Betreff As Variant
Dim Text. pfad1, pfad2 As Variant
Dim richstyle As notesrichtextstyle
'Profil aus MailDB öffnen
Set profil = db.GetProfileDocument("Profil", "[xxx]")
Betreff = profil.GetItemValue("Betreff")
Text = profil.GetItemValue("rtext")
'Mails rausschreiben
Set doc = c.getfirstdocument
Do Until doc Is Nothing
Set maildoc = New Notesdocument(MailDB)
Set richStyle = s.CreateRichTextStyle
maildoc.form = "Memo"
maildoc.sendto = doc.an
maildoc.copyto = doc.kp
maildoc.subject = Betreff(0)
Set itm = pDoc.GetFirstItem("rtext") Call itm.CopyItemToDocument(maildoc,"Body")
maildoc.gesendet = ""
'Anhang
Set rtitem = maildoc.GetFirstItem("Body") pfad = Pfad1(0)+kunde+Pfad2(0)
Call rtitem.embedobject(embed_attachment,"",pfad)
Call maildoc.save(True, True)
Set doc = coll.getnextdocument(doc)
Loop
End Sub
Alles anzeigen