Ich versuche eine Lösung für mein Problem zu finden. In der Login DB läuft ein Script ab für die Bestellung des Passworts. Und ich möchte die Absendermailadresse verändern, sonst entnimmt der Agent Sie aus der Notes ID, und das möchte ich ändern. Mein Script sieht so aus :
Dim docMemo As New NOTESDOCUMENT(db)
Dim bodyField As New NOTESRICHTEXTITEM(docMemo, "Body")
Dim userAddress As String
Dim firstName As String
'myServer Variable definieren und inizialisieren
Dim session As New NotesSession
Dim myDatabase As NotesDataBase
Dim myServer As String
Dim pos As Integer
Set myDatabase=Session.CurrentDataBase
myServer=myDatabase.Server
'hier wird der Server Name mit "Instr" und "Mid$" herraus operiert!!!
If myServer <> "" Then
pos = Instr(myServer,"CN=") 'position of the string "CN="
If pos > 0 Then
myServer = Mid$(myServer,pos+3,7) 'seven characters after the string "CN="
End If
End If
userAddress = docPerson.GetItemValue("MailAddress")(0)
firstName = docPerson.GetItemValue("FirstName")(0)
Call docMemo.ReplaceItemValue("Form","Memo")
Call docMemo.ReplaceItemValue("SendTo", userAddress)
Call docMemo.ReplaceItemValue("Subject","Your PERIS Self-Service account information")
Call docMemo.ReplaceItemValue("From","Self-Service.PERIS@swisscom.com")
Call docMemo.ReplaceItemValue("SendFrom","Self-Service.PERIS@swisscom.com")
Call docMemo.ReplaceItemValue("Principal","Self-Service.PERIS@swisscom.com")
Call docMemo.ReplaceItemValue("ReplyTo","Self-Service.PERIS@swisscom.com")
'Mitteilung in Deutsch
Call bodyField.APPENDTEXT("Deutsch")
Call bodyField.ADDNEWLINE(2)
Call bodyField.APPENDTEXT("Liebe Benutzerin, lieber Benutzer")
Call bodyField.ADDNEWLINE(2)
Call bodyField.APPENDTEXT("Ihr Benutzername lautet: " & doc.GetItemValue("FullName")(0))
Call bodyField.ADDNEWLINE(1)
Call bodyField.APPENDTEXT("Ihr neues Passwort lautet: " & doc.GetItemValue("NewPassword")(0))
Call bodyField.ADDNEWLINE(2)
Call bodyField.APPENDTEXT("Falls Sie das Passwort ändern wollen, benutzen Sie den folgenden Link")
Call bodyField.ADDNEWLINE(1)
Call bodyField.APPENDTEXT("und klicken dann auf Employee / Verwalten / 'Passwort ändern'")
Call bodyField.ADDNEWLINE(1)
Call bodyField.APPENDTEXT("Ihr PERIS Team")
Call bodyField.ADDNEWLINE(2)
'Call bodyField.APPENDTEXT("http://"& myServer &"/swisscom/ws_shd.nsf")
Call bodyField.APPENDTEXT("
https://ESSPERIS")
Call bodyField.ADDNEWLINE(3)
'Mitteilung in Französisch
Call bodyField.APPENDTEXT("Français")
Call bodyField.ADDNEWLINE(2)
Call bodyField.APPENDTEXT("Chère utilisatrice, cher utilisateur ")
Call bodyField.ADDNEWLINE(2)
Call bodyField.APPENDTEXT("Votre nom d'utilisateur est le suivant: " & doc.GetItemValue("FullName")(0))
Call bodyField.ADDNEWLINE(1)
Call bodyField.APPENDTEXT("Votre nouveau mot de passe est le suivant: " & doc.GetItemValue("NewPassword")(0))
Call bodyField.ADDNEWLINE(2)
Call bodyField.APPENDTEXT("Si vous désirez changer de mot de passe, veuillez utiliser le lien suivant")
Call bodyField.ADDNEWLINE(1)
Call bodyField.APPENDTEXT("et cliquer ensuite sur Employee / Administrer / 'Changer le mot de passe'.")
Call bodyField.ADDNEWLINE(1)
Call bodyField.APPENDTEXT("Votre équipe PERIS")
Call bodyField.ADDNEWLINE(2)
'Call bodyField.APPENDTEXT("http://"& myServer &"/swisscom/ws_shd.nsf")
Call bodyField.APPENDTEXT("
https://ESSPERIS")
Call bodyField.ADDNEWLINE(3)
'Mitteilung in Italiano
Call bodyField.APPENDTEXT("Italiano")
Call bodyField.ADDNEWLINE(2)
Call bodyField.APPENDTEXT("Gentile utente")
Call bodyField.ADDNEWLINE(2)
Call bodyField.APPENDTEXT("Il Suo nome di utente è: " & doc.GetItemValue("FullName")(0))
Call bodyField.ADDNEWLINE(1)
Call bodyField.APPENDTEXT("La Sua nuova password è: " & doc.GetItemValue("NewPassword")(0))
Call bodyField.ADDNEWLINE(2)
Call bodyField.APPENDTEXT("Se vuole modificare la password attivi il seguente link")
Call bodyField.ADDNEWLINE(1)
Call bodyField.APPENDTEXT("e poi clicchi su Employee / Amministrare / 'Modicare password'.")
Call bodyField.ADDNEWLINE(1)
Call bodyField.APPENDTEXT("Il Suo PERIS team")
Call bodyField.ADDNEWLINE(2)
'Call bodyField.APPENDTEXT("http://"& myServer &"/swisscom/ws_shd.nsf")
Call bodyField.APPENDTEXT("
https://ESSPERIS")
Call bodyField.ADDNEWLINE(3)
'Mitteilung in Englisch
Call bodyField.APPENDTEXT("English")
Call bodyField.ADDNEWLINE(2)
Call bodyField.APPENDTEXT("Dear User")
Call bodyField.ADDNEWLINE(2)
Call bodyField.APPENDTEXT("Your username is: " & doc.GetItemValue("FullName")(0))
Call bodyField.ADDNEWLINE(1)
Call bodyField.APPENDTEXT("Your new password is: " & doc.GetItemValue("NewPassword")(0))
Call bodyField.ADDNEWLINE(2)
Call bodyField.APPENDTEXT("If you wish to change your password, please use the following link")
Call bodyField.ADDNEWLINE(1)
Call bodyField.APPENDTEXT("and then click on Employee / Manage / 'Change Password'.")
Call bodyField.ADDNEWLINE(1)
Call bodyField.APPENDTEXT("Your PERIS Team")
Call bodyField.ADDNEWLINE(2)
'Call bodyField.APPENDTEXT("http://"& myServer &"/swisscom/ws_shd.nsf")
Call bodyField.APPENDTEXT("
https://ESSPERIS")
Call bodyField.ADDNEWLINE(3)
Call docMemo.Send(False)
Was mache ich falsch
Gruss
Hasi
