Send Correo

Tengo una hoja de excel que trabaja con area de trabajo, en dicha hoja los
usarios deben llenar cierta información y debe ser enviada por correo
(Outlook), para esto tengo un boton donde le asigne la siguiente macro con el
siguiente código :

Application.Dialogs(xlDialogSendMail).Show (sistemas@xxxx).

Con esto quiero que en el encabezado del Para : me adicione la dirección
electrónica (sistemas@xxxx)y en el Asunto : (Pueda dejar la palabra
Requerimiento). Actualmente estos campos aparecen en blanco y el usuario
debe llenarlos manualmente

Alguien me puede colaborar para que esto sea automático? me podrían decir si
me sirve esta instrucción o se puede utilizar otra ?