Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: aba am 10.02.03 - 15:02:23
-
Hallo ich habe in meinem Notes Adressbuch ein weiters Feld für eine private email Adresse erstellt. Wenn ich allerdings auf den Hotspot (Link) dieser Adresse klicke wird eine neues Mail mit der Adresse aus dem Orginalfeld erstellt. Ich habe herausgefunden, das es einen Agenten gibt der CreateMailMemo heißt und auch schon die Stelle gefunden an der ich drehen muß damit er nicht mehr den Inhalt des Orginalfeldes ausgibt. Die Stelle lautet "mailnote.SendTo = SendToNames" Wenn ich anstatt SendToNames, Räuber Hotzenplotz schreibe, dann erscheint das als Empfängeradresse in meiner neuen Mail. Ich würde eben gerne wissen was ich wo verändern muß damit es den Inhalt aus meinem neu erstellten Feld nimmt?!?!?
Hier ist der Script:
Sub Initialize
'declare local variables
Dim x As Integer
'instantiate objects
InstantiateVariables
If (collection.Count = 0) Then
Messagebox "Es wurden keine Dokumente ausgewählt.",0,"Fehler"
Exit Sub
End If
Redim SendToNames(collection.Count-1)
'for each document in the collection, get the mail address
'we use the GetNth method since the resulting collection is an IDTable
For x = 1 To collection.Count
Set note = collection.GetNthDocument(x)
SendToNames(counter) = GetMailAddress
counter = counter + 1
Next
Set mailnote = New NotesDocument(maildb)
mailnote.SendTo = SendToNames
mailnote.Form = "Memo"
mailnote.Logo = session.GetEnvironmentString("DefaultLogo",False)
mailnote.Principal = profile.Owner(0)
Call ws.EditDocument(True,mailnote)
End Sub
-
aba wenn du dir eine etwas veränderte Mail machen willst benutze doch einfach eine eigene Mail Maske ohne jegliches Skript/Bibliotheksgewurschtel
hauptsächlich brauchst du nur 3 Felder damit der Router nicht ins straucheln kommt : SendTo, Subject und dein Body Feld
cu
-
Hallo ich habe in meinem Notes Adressbuch ein weiters Feld für eine private email Adresse erstellt. Wenn ich allerdings auf den Hotspot (Link) dieser Adresse klicke wird eine neues Mail mit der Adresse aus dem Orginalfeld erstellt. Ich habe herausgefunden, das es einen Agenten gibt der CreateMailMemo heißt und auch schon die Stelle gefunden an der ich drehen muß damit er nicht mehr den Inhalt des Orginalfeldes ausgibt. Die Stelle lautet "mailnote.SendTo = SendToNames" Wenn ich anstatt SendToNames, Räuber Hotzenplotz schreibe, dann erscheint das als Empfängeradresse in meiner neuen Mail. Ich würde eben gerne wissen was ich wo verändern muß damit es den Inhalt aus meinem neu erstellten Feld nimmt?!?!?
Hier ist der Script:
Sub Initialize
'declare local variables
Dim x As Integer
'instantiate objects
InstantiateVariables
If (collection.Count = 0) Then
Messagebox "Es wurden keine Dokumente ausgewählt.",0,"Fehler"
Exit Sub
End If
Redim SendToNames(collection.Count-1)
'for each document in the collection, get the mail address
'we use the GetNth method since the resulting collection is an IDTable
For x = 1 To collection.Count
Set note = collection.GetNthDocument(x)
'###################################
SendToNames(counter) = note.MeinFeldMailFeld(0)
'###################################
counter = counter + 1
Next
Set mailnote = New NotesDocument(maildb)
mailnote.SendTo = SendToNames
mailnote.Form = "Memo"
mailnote.Logo = session.GetEnvironmentString("DefaultLogo",False)
mailnote.Principal = profile.Owner(0)
Call ws.EditDocument(True,mailnote)
End Sub