Liga a correo electrónico
Hola!
Estoy haciendo unas ligas de una presentación, lo que quiero que haga es que en el momento que se haga click sobre la liga se habrá automáticamente el outlook (o cualquier programa que tengan determinado) para poder redactar un mail a esa dirección de e-mail.
Gracias!
Estoy haciendo unas ligas de una presentación, lo que quiero que haga es que en el momento que se haga click sobre la liga se habrá automáticamente el outlook (o cualquier programa que tengan determinado) para poder redactar un mail a esa dirección de e-mail.
Gracias!
1 Respuesta
Respuesta de bedelludrica
1
Se hace así:
On mouseup me
gotoNetPage "mailto:[email protected]"
end
Te pongo mi comportamiento para automatizar el proceso:
--Creado por bedelludrica
property p_direccion, p_rutina,p_c,p_t
on getBehaviorTooltip me
return \
"Usa este comportamiento para mandar un e_mail mediante el programa de correo que tenga el usuario instalado."&\
return&\
"Comportamiento realizado por bedelludrica: " & \
return&\
"[email protected] "
end getBehaviorTooltip
on getPropertyDescriptionList
lista= [:]
addProp lista, #p_c, \
[#comment: "escribe la direccion de correo",#format:#String,\
#default: "[email protected]"]
addProp lista, #p_t, \
[#comment: "escribe si quieres el titulo del mensaje",#format:#String,\
#default: "titulo"]
addProp lista, #p_rutina,\
[#comment: "elige la rutina" ,#format:#String,\
#range:["On MouseUp","On MouseDown","On MouseEnter","On MouseLeave"],\
#default:"On MouseUp"]
return lista
end getPropertyDescriptionList
on beginsprite me
p_direccion=p_c&"?subject="&p_t
end
on MouseUp me
if p_rutina = "On MouseUp" then
gotoNetPage "mailto:"&p_direccion
end if
end MouseUp
on MouseDown me
if p_rutina = "On MouseDown" then
gotoNetPage "mailto:"&p_direccion
end if
end MouseDown
on MouseEnter me
if p_rutina = "On MouseEnter" then
gotoNetPage "mailto:"&p_direccion
end if
end MouseEnter
on MouseLeave me
if p_rutina = "On MouseLeave" then
gotoNetPage "mailto:"&p_direccion
end if
end MouseLeave
On mouseup me
gotoNetPage "mailto:[email protected]"
end
Te pongo mi comportamiento para automatizar el proceso:
--Creado por bedelludrica
property p_direccion, p_rutina,p_c,p_t
on getBehaviorTooltip me
return \
"Usa este comportamiento para mandar un e_mail mediante el programa de correo que tenga el usuario instalado."&\
return&\
"Comportamiento realizado por bedelludrica: " & \
return&\
"[email protected] "
end getBehaviorTooltip
on getPropertyDescriptionList
lista= [:]
addProp lista, #p_c, \
[#comment: "escribe la direccion de correo",#format:#String,\
#default: "[email protected]"]
addProp lista, #p_t, \
[#comment: "escribe si quieres el titulo del mensaje",#format:#String,\
#default: "titulo"]
addProp lista, #p_rutina,\
[#comment: "elige la rutina" ,#format:#String,\
#range:["On MouseUp","On MouseDown","On MouseEnter","On MouseLeave"],\
#default:"On MouseUp"]
return lista
end getPropertyDescriptionList
on beginsprite me
p_direccion=p_c&"?subject="&p_t
end
on MouseUp me
if p_rutina = "On MouseUp" then
gotoNetPage "mailto:"&p_direccion
end if
end MouseUp
on MouseDown me
if p_rutina = "On MouseDown" then
gotoNetPage "mailto:"&p_direccion
end if
end MouseDown
on MouseEnter me
if p_rutina = "On MouseEnter" then
gotoNetPage "mailto:"&p_direccion
end if
end MouseEnter
on MouseLeave me
if p_rutina = "On MouseLeave" then
gotoNetPage "mailto:"&p_direccion
end if
end MouseLeave
