Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Gravedigger am 14.04.03 - 13:37:47

Titel: Array per E-Mail versenden
Beitrag von: Gravedigger am 14.04.03 - 13:37:47
Hallo,

mit folgendem Script möchte ich gerne eine E-Mail versenden.
<START>
Sub MailSend
   
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Dim maildoc As Notesdocument
   
   Set db = session.CurrentDatabase
   Set doc = session.DocumentContext
   Set maildoc = New NotesDocument(db)
   
   maildoc.form="(frmMail)"
   maildoc.SendTo = "test@test.com"
   maildoc.Subject = "Useränderung"
   maildoc.Body = "Hallo," & Chr(13) & "folgende Änderungen wurden am User " & doc.fdFirstName(0) & " " & _
   doc.fdLastName(0) & " vorgenommen:" & Chr(13) & change & Chr(13) & Chr(13) & "Einen schönen Tag"
   
   Call maildoc.send(False)
   
End Sub
<ENDE>

Das funktioniert soweit alles wunderbar, nur das die Variable "change" in der E-Mail leer ist.
Bei "change" handelt es sich um ein Array, welches in Initialize gefüllt wird.

Schonmal danke für eure Hilfe.
Titel: Re:Array per E-Mail versenden
Beitrag von: Till_21 am 14.04.03 - 14:20:39
ist change denn global definiert, oder nur lokal in der initialize-prozedur ? wenn zweiteres, dann kann deine prozedur SendMail nicht auf diese zugreifen...

gruss
Titel: Re:Array per E-Mail versenden
Beitrag von: Gravedigger am 14.04.03 - 16:54:27
changed ist unter "(Declarations)" definiert und zwar als
Dim changed() as String

Aber es funktionert trotzdem nicht.  ???
Titel: Re:Array per E-Mail versenden
Beitrag von: meichhorner am 14.04.03 - 16:58:45
Hy,

ist es nun eine einfache String Variable oder ein String Array ?

du musst doch angeben was aus dem Array du verwenden möchtest.

Versuchs mal mit change(0) und wen's mehrere sind dann eben in einer Schleife durch alle Einträge durch.

Cu
Martin
Titel: Re:Array per E-Mail versenden
Beitrag von: Gravedigger am 14.04.03 - 17:25:58
Ich möchte gerne das ganze Array versenden.

Die Deklaration ist als String Array erfolgt.
Titel: Re:Array per E-Mail versenden
Beitrag von: ata am 14.04.03 - 19:06:13
... du kannst nicht einen String mit einem Array verketten, das geht nun mal definitiv nicht. Wenn du die Inhalte des Arrays witergeben willst, dann mußt du das Array in einen String aufdröseln...

Dim sArray As String
Dim i as Integer
' # das Array aufdröseln...
For i = LBound(change) to UBound(change)
    sArray = sArray + ", "
Next
' # das letzte Komma wieder entfernen
sArray = Left( sArray , Len( sArray ) - 2 )

... und anstelle von change jetzt sArray verwenden und das Array ist draußen...

ata
Titel: Re:Array per E-Mail versenden
Beitrag von: meichhorner am 15.04.03 - 11:29:32
Hy,

und mach dir ein dynamisches Array nicht das du bei zu vielen Änderungen einen Überlauf bekommst. ;)

Cu
Martin
Titel: Re:Array per E-Mail versenden
Beitrag von: Gravedigger am 15.04.03 - 11:56:10
Dank euch allen. Es funktioniert.