Mail mit Anhang

[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" )

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 

[Thomas Schulte]

Jo hab ich übersehen und Bernhard hat recht. Da IBM dankenswerterweise immer noch keinen Weg gefunden hat das abzustellen muss ein im Backend erzeugtes Dokument mit RTFeldern erst gespeichert werden bevor es angezeigt wird. Sonst bekommt man die Änderungen im RTFeld nämlich nicht mit.

[Axel]

Ich stand mal vor dem gleichen Problem und kann Thomas und Bernhard nur zustimmen.


Ich hab das damals dann so gelöst (in deinen Code eingebaut):

...
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set db=s.CurrentDatabase
Set uidoc = ws.CurrentDocument   

Call memo.Save(True,False)  'Temp. Speichern des Backend-Doc. damit RTF-Feld angezeigt wird.
Call ws.EditDocument (True, memo)
Call memo.Remove(True)  'Das Dokument, das im Backend erstellt wurde, löschen

Es gibt aber bestimmt noch andere Methoden.


Axel

[skywook]

Danke, für eure Hilfe.
Werde es morgen gleich ausprobieren.

@Bernhard
Freut mich das Du so gute Erfahrungen in Achern gemacht hast. Kann ja nur zu meinem Vorteil sein :-)

[koehlerbv]

Hallo skywook,
musst Du überhaupt auf das Frontend zurückgreifen? Kann das Versenbden des Mails nicht pur im Backend erfolgen? Du sparst Dir da einiges ...

Wenn Du das Frontend doch brauchst: Da geht auch was. Beschreibe doch bitte mal die komplette Aufgabe.

Bernhard

PS: Wie schon gesagt - Achern und Umgebung hat was gut bei mir 

[skywook]

@Bernhard
Oh, dann habe ich ja eine exclusiv Betreuung 

Der Vorgang sieht folgend aus:

In einer Auftragsdatenbank soll über einen Button ein Mail erzeugt werden. Bestimmte Daten wie Empfänger, Betreff, Dateinamen für Dateianhang usw. werden aus dieser an das Mail übergeben. Möchte aber nicht das das Mail automatisch versandt wird. Der Mitarbeiter soll dies manuell tun - deshalt dann das Frontend.