Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: bob am 21.05.02 - 22:10:12
-
Hi @all,
ich hab zwar schon Threads dieser Art gefunden, welche aber nicht genau meine Anforderung beantworteten.
Ich benötige einen Button (also Aktion) in einer Maske, welche folgendes erstellt:
- neues Memo
- als Empfänger "ich-bin@empfaenger.de"
- als Betreff "Feedback zu '>Titel<'", wobei >Titel< ein Feld der Maske ist
- Und dann im Richtextfeld der Memo:
"Feedback zu folgendem Dok-Link: >Link<"
"---------------------"
"Leerzeile"
Danke schon im Voraus für Eure Tipps, Formelsprache wäre bevorzugt, aber eigentlich egal.......
Cya
Bob
-
hallo,
meinst du sowas:
@If(
assigned="";
@True;
@Prompt([YESNO];@DbTitle;"do you want to send email to responsible?");
@MailSend(assigned;"";"";"HELPDESK CALL";"";user + user_external + " / " + category + " / " + problem +@NewLine +@NewLine ;[Sign]:[IncludeDoclink]);
@True)
das sendet eine mail an einen user, der in der maske vorkommt, mit einem betreff, der aus feldern besteht, mit einer leerzeile, mit einem doklink. und noch eine abfrage, ob man die mail wirklich senden will.
gruss,
daniela
-
Das hier sollte auch gehe:
Sub Queryopen(Source As Notesuidocument, Mode As Integer, IsNewDoc As Variant, Continue As Variant)
Dim maildb As NotesDatabase
Dim maildoc As NotesDocument
Dim doc As NotesDocument
Set doc = Source.Document
If Not doc.IsNewNote Then
Set maildb = New NotesDatabase("","")
Call maildb.OpenMail
If Not maildb.IsOpen Then
Messagebox "Fehler beim Zugriff auf Mail-Datenbank"
Exit Sub
End If
Set maildoc = New NotesDocument(maildb)
maildoc.Form = "Memo"
maildoc.SendTo = doc.AutorenFeld
Call maildoc.Send(True)
End If
End Sub
Öffnet eine Nachricht an den Namen im AutorenFeld
Statt dem Namen aus dem AutorenFeld kann auch eine feste Adresse angegeben werden.
Auch ein doc.subject kann noch vorgegeben werden
Silke 8)