Si os encontráis con la necesidad de informar cuando se modifica un campo en siebel o algo similar. Yo me he montado el código para lazar un email.
Creo que este proceso es mas fácil realizado un Workflow policy o algo similar, de todos modos aquí tenéis un código para poner de PreSetvalue:
Case "Recargo" If (FieldValue "")Then Dim bsOutboundCommMgr As Service Dim psInputs As PropertySet Dim psOutputs As PropertySet Dim strCommProfile, strMsgToList, strMsgBody, strMsgSubject As String Dim strCliente,strCode,strNif,StrCodigoSap,strDireccion,strTel As String Dim CurrentUserId As String ' Inicializo business Service y los propertysets Set bsOutboundCommMgr = TheApplication().GetService("Outbound Communications Manager") Set psInputs = TheApplication().NewPropertySet() Set psOutputs = TheApplication().NewPropertySet() strCliente = me.getfieldvalue ("Name") strCode = me.getfieldvalue ("Postal Code") strNif = me.getfieldvalue ("DUNS Number") StrCodigoSap = me.getfieldvalue ("Parent HQ DUNS") strDireccion = Me.GetFieldValue("Street Address") strTel = Me.GetFieldValue("Main Phone Number") strCommProfile = "SMTP Recargo" 'perfil creado en siebel CurrentUserId = TheApplication.LoginId strMsgToList = "xxxx@xxxxx.com" If (FieldValue = "N") Then strMsgBody = "CAMBIOS EN REGIMEN: " &Chr(10) &Chr(10) Elseif FieldValue ="Y" Then strMsgBody = "CAMBIOS EN IMPUESTOS : " &Chr(10) &Chr(10) End If strMsgBody = strMsgBody + "Cliente : " &strCliente &Chr(10) strMsgBody = strMsgBody + "NIF/CIF : " &strNif &Chr(10) strMsgBody = strMsgBody + "Código SAP : " &StrCodigoSap &Chr(10) strMsgBody = strMsgBody + "Dirección : " &strDireccion &Chr(10) strMsgBody = strMsgBody + "Código P. : " &strCode &Chr(10) strMsgBody = strMsgBody + "Teléfono : " &strTel &Chr(10) strMsgBody = strMsgBody + "Cambiado Por : " &CurrentUserId &Chr(10) strMsgSubject = "Siebel Cambios en Cliente" psInputs.SetProperty "CommProfile", strCommProfile 'For web client use 'Remote' instead of 'Local' psInputs.SetProperty "ProcessMode", "Remote" psInputs.SetProperty "MsgToList", strMsgToList psInputs.SetProperty "MsgBody", strMsgBody psInputs.SetProperty "MsgSubject", strMsgSubject bsOutboundCommMgr.InvokeMethod "SendMessage", psInputs, psOutputs ' Vacio cola Set psInputs = Nothing Set psOutputs = Nothing Set bsOutboundCommMgr = Nothing End If End Select