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