Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Jens* am 03.10.05 - 14:17:33

Titel: MailSend - Doclink - Problem
Beitrag von: Jens* am 03.10.05 - 14:17:33

Hallo,

folgendes Problem:
Ich habe eine Maske in dem ich über einen Button einen DocLink zu einem bestimmten Dokument in der DB erstelle. Dieser DocLink wird dann in einem RTF angezeigt. Bis hierher kein Problem.

Wenn ich jetzt allerdings das Dokument sende mit @MailSend wird der DocLink aus der Mail entfernt! Warum u. wie kann ich das ändern?!?

Danke schonmal für Tips...

Gruß
Jens

EDIT:Ich sehe gerade, wenn ich ein RTF Feld habe wird gar nichts verschickt.. mhh

Titel: Re: MailSend - Doclink - Problem
Beitrag von: doliman am 03.10.05 - 14:48:17

Hi,

hast Du in Deiner Datenbank eine Standardansicht definiert?

Titel: Re: MailSend - Doclink - Problem
Beitrag von: Jens* am 03.10.05 - 14:52:08

Ja habe ich....

Titel: Re: MailSend - Doclink - Problem
Beitrag von: doliman am 03.10.05 - 14:57:37

@MailSend(SendenAn ; KopieAn ; BlindkopieAn ; Thema ; Anmerkung ; Haupttextfelder ; [Flags])

[Flags] : [INCLUDEDOCLINK]

hast Du diesen Paramter beim Aufruf dabei?

Titel: Re: MailSend - Doclink - Problem
Beitrag von: Jens* am 03.10.05 - 15:06:53

hallo,

das sieht wie folgt aus:

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

Die Mail wird ja verschickt, der DocLink zum Mail Formular ist auch dabei. Kein Problem. Im Feld MailText möchte ich einen DocLink zu einem anderen Dokument wählen.

Der Hintergrund. Ich erstelle eine Besprechung. Nachdem alle Felder ausgefüllt wurden wird eine Mail erzeugt. Dazu erstelle ich ein neues Dokument in dem ich dann die Besprechung auswähle u. dann die Mail verschickt wird...

jens

Titel: Re: MailSend - Doclink - Problem
Beitrag von: doliman am 03.10.05 - 15:28:03

also zwei DocLinks verschicken?

Titel: Re: MailSend - Doclink - Problem
Beitrag von: Jens* am 03.10.05 - 15:32:45

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

Titel: Re: MailSend - Doclink - Problem
Beitrag von: doliman am 03.10.05 - 15:36:54

gib mal den ganzen code damit ich ein bild davon bekomme

Titel: Re: MailSend - Doclink - Problem
Beitrag von: Jens* am 03.10.05 - 15:44:55

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])
		);
	""
	)

dann wird der Inhalt verschickt

Code

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

Mehr ist das nicht...

Titel: Re: MailSend - Doclink - Problem
Beitrag von: doliman am 03.10.05 - 16:21:17

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

Titel: Re: MailSend - Doclink - Problem
Beitrag von: Jens* am 03.10.05 - 17:35:15

danke für den code.. werde es mir mal anschauen..

Jens