Power Builder - Funcion de Fechas

Hola a todos alguien tiene una funcion quizas similar a lo que yo deseo hacer:

Si se registra una fecha: 08/08/2006. Sumarle 15 dias pero sin considerar sabados ni domingos osea el resultado seria: 29/08/2006

Gracias de antemano
Saludos Lima - Perú

/*Suma dias a una fecha (si cae fin de semana lo pasa al lunes )
y devuelve en formato datetime */

if a_dias = 0 or isnull(a_dias) then return a_fecdes
date ld_aux

ld_aux = date(a_fecdes)
ld_aux = RelativeDate(ld_aux,a_dias)
if a_dias > 0 then
choose case DayNumber(ld_aux)
case 1 /* si es domingo lo paso al lunes */
ld_aux = RelativeDate(ld_aux,1)
case 7 /* si es sabado lo paso al lunes */
ld_aux = RelativeDate(ld_aux,2)
end choose
else /* se le restan dias */
choose case DayNumber(ld_aux)
case 1 /* si es domingo lo paso al viernes */
ld_aux = RelativeDate(ld_aux,-2)
case 7 /* si es sabado lo paso al viernes */
ld_aux = RelativeDate(ld_aux,-1)
end choose
end if

return datetime(ld_aux)

hola a todos..
por favor me pueden explicar como me conecto al servidor exchange para mandar email a cualquier usuario....

ya lo he intentado pero siempre me conecto al outlook express y no al servidor de correo....

muchas gracias ...