Something

[macro-stdexten]

exten => s,1,Dial(${ARG1},36)
exten => s,2,Goto(s-${DIALSTATUS},1)


exten => s-BUSY,1,GotoIf($[${ARG2}=NONE]?3)
exten => s-BUSY,2,Voicemail(b${ARG2})
exten => s-BUSY,3,Hangup

exten => s-NOANSWER,1,GotoIf($[${ARG2}=NONE]?3)
exten => s-NOANSWER,2,Voicemail(u${ARG2})
exten => s-NOANSWER,3,Hangup

exten => s-.,1,Goto(s-NOANSWER,1)

exten => a,1,VoicemailMain(${ARG1})
exten => a,2,Hangup

[incoming]
exten => s,1,Wait,6
exten => s,2,Answer( )
exten => s,3,Background(enter-ext-of-person)
exten => s,4,Set(TIMEOUT(digit)=6)
exten => s,5,Set(TIMEOUT(response)=15)

exten => i,1,Playback(pbx-invalid)
exten => i,2,Goto(s,1)

;exten => t,1,Playback(vm-goodbye)
;exten => t,2,Hangup( )

exten => t,1,Background(vm-dailout)
exten => t,2,Dial(${DEFAULT},36)

include => internal

[internal]

; Dial, w/ timeout of 36s (6rings)
exten => 235111,1,Macro(stdexten,${KUCA},235111)
exten => 235112,1,Macro(stdexten,${SONJA},235112)