Domino 9 und frühere Versionen > ND6: Entwicklung

Mehrere Empfängeradressen für Mail in Backend

(1/3) > >>

sja:
Hallo,

folgendes Problem: hier unten ist Ausschnitt aus einer Script, wo soll eine Mail aus einem Frontend-Dokument uiDocA in einem Mail-Datenbank erstellt werden (Backend) und an Eingeladenen versendet werden.
Die Eingeladenen sind in einem Feld "SendTo" (NamensFeld, Mehrfachwerte zu lassen) in uiDocA gespeichert
Wenn da ist nur eine Mailadresse gespeichert, dann kein Problem, wenn mehrere, dann kommt Fehlermeldung "Mail kann nicht gesendet werden, keine Entsprechung in Adressbüchern gefunden". Ich habe versucht die var. Einladung als dynamische array zu definieren
Dim Einladung() As String
Einladung = uiDocA.FieldGetText("SendTo")(0)
und bekomme die Fehlermeldung: "Illegal reference to array or list: Einladung". Ich bin mit array nicht besonders vertraut.
Ich habe die Anträge in Forum schon durchgegangen, aber für meinen konkreten Fall habe nicht gefunden oder übersehen.

Vielen Dank im Voraus für jede Hilfe

Sub Click(Source As Button)
   Dim ws As NotesUIWorkspace   
   Dim db As NotesDatabase
   Dim uidb As NotesDatabase
   Dim uiDocA As NotesUIDocument
   Dim docM As NotesDocument
   Dim tmpSRV As String
   Dim tmpMAIL As String
   Dim Einladung As Variant

   Set ws = New NotesUIWorkspace
   Set uiDocA = ws.CurrentDocument

   tmpSRV = uiDocA.FieldGetText("srv_1")
   tmpMAIL = uiDocA.FieldGetText("MailDatei")
   Einladung = uiDocA.FieldGetText("SendTo")

   Set db = New NotesDatabase( tmpSRV, tmpMAIL )
   Set docM = db.CreateDocument
   Set item = docM.GetFirstItem( "SendTo")

   Call docM.ComputeWithForm( False, False )

   If (Einladung <> "") Then
      Call docM.Send( False, Einladung )
   End If
   Call docM.Save( True, True )
End Sub

Gruessen
Sofia

Glombi:
Ändere die Zeile
   Einladung = uiDocA.FieldGetText("SendTo")
um in
 Einladung = uiDocA.Document.SendTo

Im folgenden musst Du aber auch anstelle von Einlad auch  Einladung verwenden!
Also:

If (Einladung <> "") Then
      Call docM.Send( False, Einlad )
   End If


Andreas

sja:
Hallo Andreas,

vielen Dank für so schnelle Hilfe. Du bist immer so nett.

Habe das aufprobiert und bekam die Fehlermeldung "Type mismatch".

Gruessen
Sofia

sja:
dann habe ich so ausprobiert

Einladung = uiDocA.Document.SendTo(0)

und die Mail wurde nur an ersten in der Liste gesendet

wenn so:
Einladung = uiDocA.Document.SendTo()
dann kommt die Meldung "Wrong number of array subscripts"

pedsola:

Versuch es mal so:
Einladung = uiDocA.Document.SendTo

Ohne Klammer

Navigation

[0] Themen-Index

[#] Nächste Seite