Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Monster am 16.01.03 - 11:01:02

Titel: Aktionsbutton SENDEN (um vollständigen Header zu ändern)
Beitrag von: Monster am 16.01.03 - 11:01:02

Hallo Admins,

ich möchte mir gern das Script, des Befehls "Senden",
in der Maildatenbank anschauen.

Leider weiss ich nicht wie ich an das Script komme.

Kann mir jemand helfen ???

Gruss
Monster

Titel: Re:Aktionsbutton SENDEN (Maildatenbank)
Beitrag von: Till_21 am 16.01.03 - 11:04:45

Dies ist eine Shared Action...
diese findest Du unter Other...

aber hier der QT:

MEMO_SEND:="1024";
FIELD ActionInProgress:=MEMO_SEND;
@If(@Command([FileSave]);@Command([FileCloseWindow]);@Return(""))

im querysave laeuft noch einiges ab, viel spass damit

gruss

Titel: Re:Aktionsbutton SENDEN (Maildatenbank)
Beitrag von: Monster am 16.01.03 - 13:22:34

Danke für deine Info.

Mein Ziel war ...
Den vollständigen Header zuverändern,
wenn der User aus einer MailIn-DB auf eine Mail antwortet,
wird aber die Mailadresse des Users mit übermittelt.
Und die Mailadresse wollte ich durch die Mailadresse der Datenbank ersetzen.

Lösung:
Ich habe einen weiteren Aktionsbutton angelegt,
der einen Agenten starten:

Sub Initialize
   Dim ws As New NotesUIWorkspace   
   Dim session As New NotesSession
   Dim db_mail As NotesDatabase
   Dim db_akt As NotesDatabase
   Dim view As NotesView
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim doc_akt As NotesDocument
   Dim uidoc As NotesUiDocument
   Dim item As NotesItem   
   Set uidoc=ws.currentdocument
   Dim MailBoxServer As String
   
   Set db_akt = session.CurrentDatabase
   If ( db_akt.Server = "" ) Then
      Messagebox( "Die Datenbank ist lokal. Bitte auf dem Server starten" )
      Exit Sub
   Else
      MailBoxServer = db_akt.Server
   End If
   Set db_mail = session.GetDatabase(MailBoxServer, "mail.box")      
   Set doc_akt= uidoc.document
   Set doc = db_mail.CreateDocument   
   Call uidoc.save
   
   Set item = New NotesItem ( doc_akt, "Saveoptions", 1 )
   doc_akt.ActionInProgress="1024"
   Call doc_akt.save(True,True)
   
   doc.Form = "Memo"
   doc.From = "name@xxx.de"
   doc.SendTo = doc_akt.SendTo
   doc.Subject = doc_akt.Subject
   doc.Body = doc_akt.Body
   doc.DeliveryDate = Now
   doc.PostedDate = Now
   doc.Recipients = doc_akt.EnterSendTo
   Call doc.Save(True, False)
   Call uidoc.save()
   Call uidoc.close
   
End Sub

Gruss
Monster