Domino 9 und frühere Versionen > ND6: Entwicklung

Mail mit Anhang

(1/2) > >>

skywook:
Hallo,
bräuchte mal eure Hilfe.
Habe folgendes Script. Die MemoMaske der MailDB wird aufgerufen und mit Werten und einem Anhang gefüllt danach wird das Doc im Frontend geöffnet. Nun hätte ich noch gerne einen Text automatisch ins Bodyfeld geschrieben. Geht das nicht wenn ich da schon einen Anhang habe?

Da weiss ich einfach nicht mehr weiter.

Für einen Tipp wäre ich dankbar.

koehlerbv:
Hallo skywook,
das Problem ist jetzt schwer ersichtlich. Natürlich ist es ohne weiteres möglich, einen Text automatisiert in das Body-Feld zu setzen und gleichzeitig dort auch einen Anhang aufzunehmen. Wo stösst Du da jetzt genau auf Schwierigkeiten? Wie bist Du die allgemeinen Probleme angegangen, die Du bei solchen Stunts im Frontend hast? Hängt es eventuell damit zusammen?

Sag' mal genaueres ...

Bernhard

skywook:
Sorry Bernhard,
hab mein Script vergessen:

Sub Click(Source As Button)
   Dim mailf As String
   Dim server As String
   Dim s As New NotesSession
   Dim db As NotesDatabase
   Dim maildb As NotesDatabase   
   Dim memo As NotesDocument
   Dim RTItem As NotesRichtextItem
   Dim object As NotesEmbeddedObject
   
   mailf = s.GetEnvironmentString ("MailFile", True)
   server = s.GetEnvironmentString ("MailServer", True)
   Set maildb = New Notesdatabase (server, mailf)
   Set memo = maildb.CreateDocument
   With memo
      .Form = "memo"
      .Subject = "Änderungscheckliste "
      .SendTo = "eugen.pfeifer@volksbank-achern.de"
   End With
   
   Set RTItem = New NotesRichTextItem( memo, "Body" )
   Call RTItem.AddNewLine( 17 )
   Call RTItem.AppendText( "fff" )
   Set object= rtitem.EmbedObject ( EMBED_ATTACHMENT, "",  "c:\temp\11.txt")
   
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Set db=s.CurrentDatabase
   Set uidoc = ws.CurrentDocument   
   Call ws.EditDocument (True, memo)
End Sub

Thomas Schulte:

--- Code: --- Set RTItem = New NotesRichTextItem( memo, "Body" )
Call RTItem.AddNewLine( 17 )
Call RTItem.AppendText( "fff" )
Set object= rtitem.EmbedObject ( EMBED_ATTACHMENT, "",  "c:\temp\11.txt")
Call RTItem.AddNewLine( 17 )
Call RTItem.AppendText( "fff" )

--- Ende Code ---
Was spricht dagegen da einfach noch ein paar Textzeilen anzuhängen?

koehlerbv:
Das im Backend mit RTI erzeugte Memo wird bis dato nicht gespeichert. Da ergeben sich schon erste Probleme.

Ich schaue mir dieses Thema auf jeden Fall heute noch tiefschürfender an (wenn es nicht bis dahin schon jemand anderes getan hat). Ich muss jetzt aber erstmal was anderes erledigen.

Bernhard

PS: Versprochen ist versprochen - ich kümmere mich. Allein schon deshalb, weil ich im Posting das Wort "Achern" gesehen habe. Und Ende Februar 2004 hat mich die SEAT-Werkstatt in Achern mal aus einer ziemlich misslichen Lage befreit - Achern und Umgebung hat etwas gut bei mir  :)

Navigation

[0] Themen-Index

[#] Nächste Seite