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

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Capturar el correo del remitente al enviar un correo por Outlook

Publicado por Billy bill_mg@yahoo.com (8 intervenciones) el 22/10/2019 17:47:42
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:
*******************************************************************

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim categ As String, emailremitente As String
 
If Item.Class = olMail Then
   Set NewMail = Item
   NewMail.ShowCategoriesDialog
   categ = NewMail.Categories
   emailremitente = "xxx@xxx.com"
End If
 
leer categ, emailremitente
 
End Sub

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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 3.773
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Capturar el correo del remitente al enviar un correo por Outlook

Publicado por Andres Leonardo (1512 intervenciones) el 22/10/2019 19:17:00
Pero de donde lo vas a obtener? eso es lo qeu no me queda claro
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Capturar el correo del remitente al enviar un correo por Outlook

Publicado por Billy (8 intervenciones) el 22/10/2019 20:15:19
Del mismo outlook, es decir la cuenta de correo que esté enviando el correo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.773
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Capturar el correo del remitente al enviar un correo por Outlook

Publicado por Andres Leonardo (1512 intervenciones) el 22/10/2019 22:45:07
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Capturar el correo del remitente al enviar un correo por Outlook

Publicado por Billy Martinez bill_mg@yahoo.com (8 intervenciones) el 23/10/2019 14:26:08
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.773
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Capturar el correo del remitente al enviar un correo por Outlook

Publicado por Andres Leonardo (1512 intervenciones) el 23/10/2019 18:51:42
si usas el componente de outlook y quieres la cuenta seria


1
MsgBox olMail.Session.accounts.Item(1) ' Te saca la cuenta default de outlook
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar