Domino 9 und frühere Versionen > ND6: Entwicklung

MailSend - Doclink - Problem

<< < (2/3) > >>

doliman:
also zwei DocLinks verschicken?

Jens*:
ja wobei der zweite [IncludeDocLink] nicht so wichtig ist, die Maske dient ja eigentlich nur um die Mail zu erstellen...

doliman:
gib mal den ganzen code damit ich ein bild davon bekomme

Jens*:
ok:

es gibt 2 Felder: MailBetreff u. MailText

Der Code zum Doclink erzeugen


--- Code: ---_Server := @Subset (@DbName; 1);
_Database := @Subset (@DbName; -1);
_ViewUNID := "($DocLinkUNID)";
_ViewPicklist := "($DocLinkPicklist)";
_ViewNumberWithUNID := 2;
_PicklistTitle := @DbTitle;
_PicklistText := "Choose a document:";

_unid := @PickList([Custom]:[Single];"":"";_ViewPicklist; _PicklistTitle;_PicklistText;_ViewNumberWithUNID);

@If(_unid != "";
@Do(
@Command([FileOpenDatabase];_Server :_Database ;_ViewUNID;_unid;"1";"1");
@Command([EditMakeDocLink]);
@PostedCommand([EditGotoField];"MailText");
@PostedCommand([EditPaste])
);
""
)

--- Ende Code ---

dann wird der Inhalt verschickt


--- Code: ---@Command([FileSave]);
@MailSend(SitzungsLeiter; Protokollant; ""; MailBetreff ;""; MailText; [IncludeDoclink])

--- Ende Code ---

Mehr ist das nicht...

doliman:
also du stehst auf dokument A, erstellst ein dokument B (Mail) und willst ein Doclink auf dokument C.
Nun wenn ich deiner formel richtig folgen kann, kennt diese dokument b nicht und fügt den doklink in dokument A ein.
Außerdem ist der Parameter "MailBetreff" kein RTF sondern nur Text der da weitergegeben werden kann, also würde es mit doclink nicht funktionieren.
Die einzige möglichkeit wäre per Script im Backend, da geht das.

Hier mal ein rudimentäres script.
Leider konnte ich es nicht ganz ausfeilschen, da ich jetzt weg muß:
Zumindest sendet es eine Mail aus einem über Picklist gewähltem Dokument. Du mußt lediglich die Parameter abändern. Somit kannst Du auch mehrere Doklinks verschicken.

Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim s As New notessession   
   Dim db As NotesDatabase
   Dim picklist As Variant
   Dim messagelist As String
   Dim docForLink As NotesDocument
   Dim newDoc As NotesDocument
   
   Set db = s.CurrentDatabase
   picklist = workspace.PickListStrings( _
   PICKLIST_CUSTOM, _
   False, _
   db.Server, _
   db.FilePath, _
   "$LookupMedienByUnid", _
   "Titel in der Picklist", _
   "Please select some documents.", _
   Spaltennummer mit der ID )
   Forall plist In picklist
      id$ = plist
      If id$<>"" Then
         Set docForLink = db.GetDocumentByUNID(id$)
         If Not docForLink Is Nothing Then
            'maile doclink
            Set newDoc = New NotesDocument( db )
            newDoc.Form = "Memo"
            newDoc.SendTo = "mail@domände.de"
            newDoc.Subject = "Here's the document you wanted"
            Set rtitem = New NotesRichTextItem( newDoc, "Body" )
            Call rtitem.AppendDocLink _
            ( docForLink, docForLink.Subject( 0 ))
            Call newDoc.Send( False )
         End If
      End If
   End Forall   
End Sub

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete