Mehrere Entsprechungen in Adressbuecher. Evaluate + MailSend

[sja]

Hallo zusammen,

wäre sehr dankbar für jede Hilfe beim folgendem:

in einer Maske gibt es einige Abschnitte, die ein Adressat-Feld und einen Button mit der MailSend-Funktion (Formula Language) enthalten. Beim Klick auf den Button wird eine Email gesendet an den Adressat. Wenn den Adressat ist in der Domino-Directory und ein Eintrag mit dem gleichen Namen in persönlichem Adressbuch, erscheint ein Dialogfeld mit den Auswahl-Möglichkeiten
Bild 1. (Dialogfeld)

Es wurde erwünscht, dass alle Emails aus allen Abschnitten gleichzeitig beim Schlissen des Dokumentes gesendet werden sollten. Dafür habe ich in jedem Abschnitt ein Flag-Feld, welches beim Button-Klick auf “1“ gesetzt wird, und die Emailsendung ist  in Queryclose  (LotusScript) programmiert. Alles läuft wunderbar, nur in dem o.g. Fall (Adressat ist in Domino-Directory und in persönlichem Adressbuch enthalten) bekommt man statt Dialogfeld zur Auswahl eine Fehlermeldung
Bild 2 (Fehlermeldung)

Da ich selbst solche Dialogfeld schaffe nicht zu programmieren, habe es mir überlegt, ob ich dafür Evaluate verwenden kann. Also, statt der
Function MailSenden(Betreff As String, Message As String, an As Variant) (s. Code)
Evaluate-Funktion
Evaluate ({@MailSend(“} & an & {;"";"";"} & Betreff  &{";"";"} & Message & {";} & [IncludeDoclink])})

Aber bei mir funktioniert die Evaluate mit MailSend nicht. Ist es überhaupt unmöglich die Evaluate mit MailSend verwenden, oder mache ich was falsch. Hier ist der Abschnitt aus meinem Code

Dim db As NotesDatabase
Dim s As  NotesSession
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument
Dim MailDoc As NotesDocument

Dim tmpServer As String

Dim rtitem As NotesRichTextItem
Dim Betreff As String
Dim Message As String

Dim an As Variant
Dim ftarrayAn As Variant
Dim tmpAn As String

Sub Querysend(Source As Notesuidocument, Continue As Variant)
   Dim ws As New NotesUIWorkspace
   Set s = New NotesSession
   Set db = s.CurrentDatabase
   Set uidoc = ws.CurrentDocument
   tmpServer = db.Server
   
   Set doc = uidoc.Document
   …

   If uidoc.FieldGetText("flagSendKenntnisNahme")= "1" Then
      Betreff = "Text-Betreff"
      Message  = "Die Kenntnisnahme des aufgeführten Dokumentes ist erwünscht  ->  "
      an = uidoc.FieldGetText("Adressat1")

      Evaluate ({@MailSend(“} & an & {;"";"";"} & Betreff  &{";"";"} & Message & {"; [IncludeDoclink])})

      'Call MailSenden(Betreff, Message, an)

      Call uidoc.FieldSetText("flagSendKenntnisNahme","")   
      Call uidoc.Save
   End If   
   ….
End Sub

Function MailSenden(Betreff As String, Message As String, an As Variant)
   ftarrayAn = Fulltrim(an)
   
   If Not (ftarrayAn(0) = "") Then
      Set MailDoc = New NotesDocument(db)
      MailDoc.Form = "Memo"
      MailDoc.Subject = Betreff
      MailDoc.SendTo = an
      Set rtitem = New NotesRichTextItem( MailDoc , "Body" )
      Call rtitem.AppendText( Message)      
      Call rtitem.AppendDocLink( doc, Betreff)
      MailDoc.Send(False)
   End If
   Erase an
End Function


Für jede Hilfe vielen Dank im Voraus.

Schoene Gruesse
Sofia

[dirk_2909]

Hallo

Du musst eine Error-Routine einbauen. Wenn dann der besagte Fehler auftritt, mußt Du einfach hinter dem SendTo-Wert die Maildomäne anhzängen. Dann wird die Namensauflösung erst auf dem Server vorgenommen .
Du kannst aber auch direkt die Mail-Domäne an den SendTo-Wert anhängen..

[sja]

Hallo @dirk_2909,

herzlichen Dank!

Mit dem @maildomäne funktioniert perfekt 

Schoene Gruesse
Sofia