Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Thunder am 21.06.04 - 11:52:31

Titel: eMail per Script
Beitrag von: Thunder am 21.06.04 - 11:52:31

noch mal was einfaches...
Habe in einer Maske ein Feld, in dem mehrere eMail-Adressen gespeichert sind.(Mehrfachwerte !) Jetzt möchte ich über einen Button realisieren, daß diese Adressen automatisch in das 'An:' Feld eingetragen werden. Leider nimmt Notes nur die 1. Adresse. Wo liegt das Problem ?


Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Dim TheDocument As NotesDocument
   Dim eigener As String
   Dim server As String
   Dim Adresse As String
   Dim Text As String
   
   eigener = session.GetEnvironmentString ("MailFile", True)
   server = session.GetEnvironmentString ("MailServer", True)
   Set uidoc = Workspace.CurrentDocument
   Set TheDocument = uidoc.document
   Set db = New Notesdatabase (server, eigener)
   Set doc = db.createDocument
   
   Adresse = uidoc.FieldGetText("par_eMail")
   Text = "eMail"
   
   doc.Form = "Memo"
   doc.Subject = Text
   doc.SendTo = Adresse
   Call workspace.EditDocument (True, doc)
End Sub

Titel: Re:eMail per Script
Beitrag von: klaussal am 21.06.04 - 12:01:33

... die einzelnen einträge im feld par_eMail mit "forall" durchgehen (beispiel in der designer-hilfe)..

Titel: Re:eMail per Script
Beitrag von: koehlerbv am 21.06.04 - 12:03:45

Mehrfachwerte musst Du im Backend holen, also zum Bleistift so:
doc.SendTo = uidoc.Document.par_eMail

HTH,
Bernhard

Titel: Re:eMail per Script
Beitrag von: Axel am 21.06.04 - 12:08:22

Hi,


versuch's mal so:

Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Dim TheDocument As NotesDocument
   Dim eigener As String
   Dim server As String
   Dim Adresse As Variant
   Dim Text As String
   
   eigener = session.GetEnvironmentString ("MailFile", True)
   server = session.GetEnvironmentString ("MailServer", True)
   Set uidoc = Workspace.CurrentDocument
   Set TheDocument = uidoc.document
   Set db = New Notesdatabase (server, eigener)
   Set doc = db.createDocument
   
   Adresse = TheDocument.par_eMail
   Text = "eMail"
   
   doc.Form = "Memo"
   doc.Subject = Text
   doc.SendTo = Adresse
   Call workspace.EditDocument (True, doc)
End Sub

oder einfacher:

...
doc.SendTo = TheDocument.par_eMail
...

Axel

Titel: Re:eMail per Script
Beitrag von: Thunder am 21.06.04 - 12:58:25

Mit folgender Lösung funktioniert es:

Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Dim TheDocument As NotesDocument
   Dim eigener As String
   Dim server As String
   Dim Adresse As Variant
   Dim Text As String
   
   eigener = session.GetEnvironmentString ("MailFile", True)
   server = session.GetEnvironmentString ("MailServer", True)
   Set uidoc = Workspace.CurrentDocument
   Set TheDocument = uidoc.document
   Set db = New Notesdatabase (server, eigener)
   Set doc = db.createDocument
   
   Adresse = TheDocument.par_eMail
   Text = "eMail aus dem Telefonbuch"
   
   doc.Form = "Memo"
   doc.Subject = Text
   doc.SendTo = uidoc.Document.par_eMail
   Call workspace.EditDocument (True, doc)
End Sub

Besten Dank und grosses Lob an dieses Forum !

Titel: Re:eMail per Script
Beitrag von: koehlerbv am 21.06.04 - 13:03:21

By the way: Die Zeilen
Dim TheDocument As NotesDocument
und
Set TheDocument = uidoc.document
kannst Du dann streichen  ;)

Bernhard

Titel: Re:eMail per Script
Beitrag von: Thunder am 21.06.04 - 13:05:03

Ich muss mich unbedingt mehr mit Script beschäftigen.
Leider habe ich da zu wenig Zeit für - muss ja noch arbeiten nebenbei.  :'(

Titel: Re:eMail per Script
Beitrag von: Axel am 21.06.04 - 13:10:05

Zitat von: koehlerbv am 21.06.04 - 13:03:21

By the way: Die Zeilen
Dim TheDocument As NotesDocument
und
Set TheDocument = uidoc.document
kannst Du dann streichen  ;)

Bernhard

Hi,

wenn er die Lösung nimmt, die er gepostet hat, dann kann er die beiden Zeilen nicht streichen.

Denn schau mal hier (Codeauszug):
...
   Set db = New Notesdatabase (server, eigener)
   Set doc = db.createDocument
   
   Adresse = TheDocument.par_eMail
   Text = "eMail aus dem Telefonbuch"
   
   doc.Form = "Memo"
...


Axel

Titel: Re:eMail per Script
Beitrag von: koehlerbv am 21.06.04 - 13:20:36

... und zwei Zeilen, nachdem Du das Code-Zitat beendest, kommt:
doc.SendTo = uidoc.Document.par_eMail

Allerdings habe ich diese dritte Zeile, die es zu streichen gilt, vergessen, wie Du richtig anmerkst.

Bernhard

PS: Oder Thunder streicht Option Declare  ;D

Titel: Re:eMail per Script
Beitrag von: Axel am 21.06.04 - 13:31:45

Hi,

ähm, joo.  Da muss ich dir recht geben.

So kommst wenn man auf die Schnelle antwortet.  :-\


Axel

Titel: Re:eMail per Script
Beitrag von: koehlerbv am 21.06.04 - 13:36:44

Naja, mir ging es doch genauso. Erst unsere gemeinsamen Antworten gaben zusammen einen Sinn  ;D

Bernhard