Domino 9 und frühere Versionen > Entwicklung

E-Mail im Bearbeitungsmodus automatisch öffnen (aber ohne Signatur!!!!!!)

<< < (2/2)

Semeaphoros:
Möglicher Ansatz:

Die Signatur steckt ja irgendwo im Profil
Vor dem Aufruf von EditDocument das betreffende Feld löschen, nachdem man den Inhalt irgendwohin abgezogen hat.
Nach dem Aufruf von EditDocument die Signatur zurückspeichern.

Natürlich hab ichs nicht probiert.

Glombi:
Ich würde erstmal das Dokument öffnen und dann das Feld Body löschen und den Text reinhauen.
Die Signatur wird wohl im Postopen für neue (nicht gespeicherte Dokumente) geschrieben.
So mal ins blaue programmiert...

... ... ...
dim mailuidoc as NotesUIDocument
dim bodytxt as string

 Call uidoc.Save
   Set docsupport = uidoc.Document
   'Set docmail = New NotesDocument( db )               'Docmail als neues Dokument erstellen
   maildb.openmail                                       'Maildb öffnen
   'Set profile = maildb.GetProfileDocument("CalendarProfile") ' Eigenes Profil holen (abgeschaltet, kommt trotzdem!)
   Set docmail = New notesdocument(maildb)          ' Docmail als neues Dokument erstellen
   docmail.Form = "Memo"                           'Formularart des Dokuments "Mailformular"
   'docmail.Logo = profile.DefaultLogo(0)               ' eigenes Maillogo aus dem Profil holen und verwenden
   'docmail.Principal = profile.Owner(0)               ' Absender bestimmen
   docmail.SendTo = docsupport.DocKundeMail(0)   'Absender gleich dem Feld DocKundeEMail (Mail des Kunden)
   docmail.Subject = "Anfrage-Nr.    " + docsupport.DocLfdNr(0) + "    " + docsupport.DocTitel(0)  

   bodytxt = "Sehr geehrte(r) Herr/Frau " + docsupport.DocKundeSb(0)  + "," + Chr(13) + Chr(13)_
   + "Ihre Anfrage mit der Nummer: "  + docsupport.DocLfdNr(0) + Chr(13) _
   + "wurde am " + sDate + " geschlossen." + Chr(13) + Chr(13) _
   + "Gegenstand Ihrer Anfrage: " + Chr(13) + docsupport.DocText + Chr(13)+  Chr(13)_
   + "Sie erreichen uns von Montag bis Freitag von 8:00 Uhr bis 12:00 Uhr und von 13:00 Uhr bis 17:00 Uhr."  //und so weiter

   set mailuidoc = workspace.EditDocument(True, docmail) 'Dokument im Bearbeitungsmodus öffnen

call mailuidoc.FieldClear("Body")
call mailuidoc.FieldSetText("Body",bodytxt)


Andreas

Semeaphoros:
Auch eine Möglichkeit, allerdings musst Du danach einen Close und einen Reload vom Dokument machen, da RT-Felder sonst nicht nachgeführt werden.

Glombi:

--- Zitat von: Semeaphoros am 12.11.03 - 20:59:13 ---Auch eine Möglichkeit, allerdings musst Du danach einen Close und einen Reload vom Dokument machen, da RT-Felder sonst nicht nachgeführt werden.

--- Ende Zitat ---
In diesem Fall aber nicht, da ich ja mit FieldSetText arbeite, also ins Frontend direkt reinschreibe.

Andreas

Semeaphoros:
Ok, stimmt.

Navigation

[0] Themen-Index

[*] Vorherige Sete