Hi,
ich habe eine Dialogbox, in der ein Feld "Feedback_Nachricht" ist.
Ein Dialogbox-Button hat folgenden Code (gekürzt):
@MailSend(_Empfaenger;"";"";_Feedback_Subject; _Feedback_Text ));
In _Feedback_Text ist u.a. das Feld "Feedback_Nachricht" definiert, und noch ein Einleitungs-BlaBla.
Klappt auch wunderbar, das Mailsend.
Nun würde ich aber gerne im Body des Mail noch eine Zeile einfügen "Von: XYZ", wobei XYZ "@Name([CN]; @UserName)" sein soll.
Allerdings bleibt das immer leer, auch wenn ich
- ein separates verstecktes Feld in der Form hinzufüge
- ein Feld im Layout-Bereich hinzufüge
- etc.
Hab auch schon mit "Editierbar", "Berechnet", "Berechnet zur Anzeige" etc. experimentiert, also auch da alles durch.
Ich hoffe Ihr habt da ne Lösung.
Bob
P.S.
Ich öffne die Dialogbox bewusst mit einem Workaround (temporäre Datei), damit kein Dok ausgewählt sein muss beim anklicken der Aktion.
Die Dialogbox öffne ich über einen Button:
@PostedCommand([ToolsRunMacro]; "(DisplayFeedbackDialog)")
Der Inhalt des Makros "(DisplayFeedbackDialog)":
Sub Initialize
'**********************************************************************************************************************
'create a new temporary doc only to display the Form with help description
'this doc is not saved; In this way, there is no need to have a document selected in the current view
'**********************************************************************************************************************
Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim dbCurrent As NotesDatabase
Dim docTemp As NotesDocument
Dim szFormName As String
Dim szTitle As String
Dim vOk As Variant
Set dbCurrent = session.CurrentDatabase
Set docTemp = dbCurrent.CreateDocument
szFormName = "frm_Feedback"
szTitle = "Feedback-Formular"
vOk = workspace.DialogBox ( szFormName, True, True, True, True, False, False, szTitle, docTemp, False,True )
End Sub