"Feedback" Aktion

[bob]

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

[luna]

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

[Silke]

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