Hallo,
habe da mal ein Problem:

Ich öffne aus einem Datenbankformular heraus eine E-Mail mit vordefinierten Feldern. Mein Problem ist jetzt, das ich einen  Text in der E-Mail vorgebe, der dann aber erst unter der Signatur des jeweiligen Mitarbeiters auftaucht. Ist es möglich Programmtechnisch auzuschalten?

Gruß Björn

Sub Initialize
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim maildb As notesdatabase
   Dim docsupport, docmail As NotesDocument
   Dim session As New NotesSession
   Dim profile As notesdocument
   Dim db As NotesDatabase
   Dim agent As NotesAgent
   Dim rtitem As Variant
   Dim SupportText As Variant
   Dim TestDate As Variant
   Dim sDate As String
   Dim sMailAdress As String
   Dim sMailSubject As String
   Set maildb = New notesdatabase("","")
REM Dim sDate2 As String
   Dim sDate3 As String
   createmailmemo = 0
   Set db = session.CurrentDatabase
   Set uidoc = workspace.CurrentDocument
   uidoc.editmode=True                              'Dokument in Bearbeitungsmodus versetzen um Speichern zu können
   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)  
   docmail.Body = "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

   Call workspace.EditDocument(True, docmail) 'Dokument im Bearbeitungsmodus öffnen
End Sub

würd mich auch freuen, wenn DU Unrecht hast..  

Hallo Björn,

habe das gleiche Problem - und bin nach verschiedenen Versuchen leider zu keine Lösung gekommen.
Hast Du inzwischen eine gefunden?

Gruß Thomas

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

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

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

Andreas