Bedingter SendTo

[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
   

[Karotte]

*grins*

stand nicht weiter oben was von er ist ein Anfänger ?!?

[ata]

... nenn deine Optionsschaltfläche SendTo
... nenn ein feld "Subject" für den Betreff der Mail
... nenn ein RichTextFeld "Body" für den Inhalt deiner Mail

... in die Auswahl deiner Option gibts du dann folgendes ein:

Rudi Ratlos | rudi.ratlos@ratlos.de
Susi Sorglos | susi.sorglos@sorglos.de
Manfred Mustermann | m.m@mustermann.de

... jetzt noch einen Button, eine Aktion oder etwas zum Auslösen und dort als Formel

@MailSend

... das wars

ata

[RonMat]

Yupp,
 Karotte hat recht - sollte auch die oberen Einträge merken - oder doch schon Vergreisung. Sorry

[Doc]

Vielen Dank für die Antworten bzw. Hilfe.
Werde mich mal durchackern und mit ATA's Lösung beginnen.  

Gruss
Werner

p.s.
Das Forum hier ist ech klasse!!  Respekt
Bin froh es gefunden zu haben.

[Doc]

Guten Morgen zusammen,
habe die Lösung von ATA genommen sie funktioniert auch prächtig.

Dazu noch eine Frage:
Wie kann ich einen Feldwert nun noch mit  in die Betreffzeile bekommen?
Wenn ich ins "Subject" Feld noch den Wert
von "FeldName" angebe wird kein Wert übertragen.

SubjectFeld: "Kartenlimit für folgendes Konto wurde bestellt:" "FeldName"
(Vorabewert)  

oder muss ich weiter Parameter dann an den MailSend befehl anhängen?

Gruss
Werner

[Karotte]

"Kartenlimit für folgendes Konto wurde bestellt"+feldname;

[Doc]

Hallo Karotte, (putziger Nick)
so hatte ich es auch versucht, aber der Inhalt wird nicht in die Betreffzeile geschrieben, hatte auch schon den Feldwert in ein Anderes Feld (Berechnet zur Anzeige) übergeben und dann dieses Feld referenziert im Subject Feld.

Leider klappt das eben so wenig.

Noch nee Idee?

Gruss
Werner

[Karotte]

geht doch

schau mal die maske an:

[Karotte]

aehem deaktiviere evtl. noch die hide_when funktion, sonst siehste den sende button nicht  

[ata]

... da gibt es zwei Möglichkeiten

... das bearbeitbare Betreff-Feld darf nicht Subject heißen, nenn es EnterSubj oder so
... das Subject-Feld wird jetzt berechnet und zieht all die Werte und fixe Besandteile zusammen...

der andere Weg ist nicht den @Mailsend zu verwenden, sondern den mit den Parametern, dort kannst du dann direkt die Strings und Felder verketten...

ata

[Doc]

Vielen Dank an alle die mir so super geholfen haben.
Formular ist fertig & Danke Eurer Hilfe so wie ich es haben wollte.  

Gruss
Werner