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

[OCS]

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

[Driri]

Hi,

ohne es ausprobiert zu haben : Da die Signaturen einfach nur ein String sind, der in das Bodyfeld gepackt wird, denke ich mal es wird schwierig bis unmöglich, das herauszufiltern.

Eine Möglichkeit, das Erstellen der Sig per Script zu unterdrücken, ist mir nicht bekannt.

Aber ich lasse mich auch gerne eines besseren belehren  

[OCS]

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

[Semeaphoros]

Probier mal folgendes:
Oeffne das Dokument, bevor Du den Text reinschreibst.
Danach löschest Du das Body-Feld im Backend-Document, schreibst Deinen Text hinein und machst einen Reload vom Dokument. Vielleicht geht das.

[thomei]

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

[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]

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

[Semeaphoros]

Ok, stimmt.