eMail per Script

[Thunder]

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

[klaussal]

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

[koehlerbv]

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

HTH,
Bernhard

[Axel]

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

[Thunder]

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 !

[koehlerbv]

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

Bernhard

[Thunder]

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

[Axel]

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

[koehlerbv]

... 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  

[Axel]

Hi,

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

So kommst wenn man auf die Schnelle antwortet.  


Axel

[koehlerbv]

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

Bernhard