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