Domino 9 und frühere Versionen > Entwicklung

Bedingter SendTo

(1/4) > >>

Doc:
Hallo,
weiss jemand von den Notes Gurus, wie ich es anstellen könnte, das SendTo Feld von einer Optionsschaltfläche abhängig zu machen.

also Optionauswahl  wäre zum Beispiel wp1 wp2 oder wp3
bei Auswahl von wp1 soll die Mail an A gesandt werden.
bei Auswahl von wp2 soll die Mail an B gesandt werden.
bei Auswahl von wp3 soll die Mail an C gesandt werden.

Bin wie man an der Fragestellung sieht noch nicht solange in der Notesentwicklung. Wäre Super von Euch, wenn mir jemand eine
Lösung dafür anbieten  könnte.

Also A, B und C wären fest defiierte "MailEmpfänger".


Gruss
Werner
   

Karotte:
Hmm lies doch mit "if" den Wert des Feldes aus, und schreib dann jeweils die MailSend anweisung.


Oder aber (müsste auch gehen) mach ein Auswahlfeld für die Leute wo dus hinhamwillst und dann folgendes:

@MailSend(Feldname;"";"";"";"Es wurde folgende Anfrage aufgegeben: " );
(hoffe der code war richtig ;) (oder aber ist alles total falsch))

Doc:
Ja dachte ich mir schon, aber wie sieht so etwas als Formel aus?
in wie gesagt noch recht neu im Notes Geschäft.  ;-)

Gruss
Werner

Karotte:
siehe obere Änderung, ich hab das Feld gleich "SendTo" genannt, bei mir wird zwar im Feld SendTo der Nutzername zurückgegeben (sprich der Absender) Über ne Schaltfläche ist dann ne Funktion drin wo du ne Antwortnachricht senden kannst, die SendMail sind dann so aus:

(sollte aber auch für dein Problem klappen)

@MailSend(SendTo;"";"";"Statusbericht";"Ihr gemeldetes Problem im Bereich: " + @NewLine +@NewLine+ Sbereich + @NewLine + "Mit folgender Bemerkung: " + @NewLine +   @NewLine + SText+@NewLine+@NewLine+"haben wir zur Kenntnis genommen und werden uns darum kümmern."+ @NewLine + @NewLine + "Mit freundlichen Grüßen" + @NewLine +@NewLine + "Ihr IT-Helpdesk Team";
[Sign] : [DeliveryReportConfirmed] : [ReturnReceipt])

RonMat:
Wie findest Du das?


Dim ws As New notesuiworkspace
   Dim uidoc As notesuidocument
   Dim uidocm As notesuidocument
   Set uidoc = ws.currentdocument
   Const macromaildb$ = "@MailDBName"
   maildb = Evaluate(macromaildb$)
   Dim a  As Variant
   a=uidoc.fieldgettext("email")
   b=uidoc.fieldgettext("email2")
                c= uidoc.fieldgettext("email3")    ->  u.s.w
   If b="" Then
      Set uidocm = ws.composedocument(maildb(0), maildb(1), "Memo")   
      Call uidocm.fieldsettext("EnterSendTo", a )
   Else
      Dim arr(1 To 2) As String
      arr(1)=a
      arr(2)=b
                                arr(3)=c                    -> u.s.w
      Dim ein As Variant      
      ein=ws.Prompt(PROMPT_OKCANCELLIST, "ACHTUNG!!!Die Person hat mehrere eMail Adressen", "Welche eMail Adresse soll verwendet werden?",a,arr)
      Set uidocm = ws.composedocument(maildb(0), maildb(1), "Memo")   
      On Error Resume Next
      Call uidocm.fieldsettext("SendTo", ein )
   End If
   

Navigation

[0] Themen-Index

[#] Nächste Seite