Visual Basic - Capturar el correo del remitente al enviar un correo por Outlook

Estimados, tengo el siguiente código que almacena en una BD la fecha, el correo y la categoría seleccionada al enviar un correo por outlook.

*******************************************************************
ThisOutlookSession:
*******************************************************************


La rutina leer se ejecuta perfectamente y almacena los datos en la BD sin problemas, quiero reemplazar el valor de la variable emailremitente por un parametro que obtenga el correo sin tener que escribirlo de forma manual.

Gracias de antemano.

Pero de donde lo vas a obtener? eso es lo qeu no me queda claro

Del mismo outlook, es decir la cuenta de correo que esté enviando el correo

Pero no veo que lo escribes por que el correo ya esta en la macro
emailremitente = "xxx@xxx.com"

o es que cada vez que ejecutas lo escribes???

si es asi lo que debes hacer es buscar la fuente e irlo concatenando

SAludos

La rutina Private Sub Application_ItemSend, se ejecuta cada vez que envío un correo desde outlook con la cuenta de correos que se encuentra configurada, el valor de la variable emailremitente = "xxx@xxx.com" es el que quiero sustituir por algún método o propiedad de algo que devuelva la dirección de correos del remitente.

La dirección de correo xxx@xxx.com es un ejemplo y es lo que quiero obtener por código vba.

si usas el componente de outlook y quieres la cuenta seria