Capturar el correo del remitente al enviar un correo por Outlook
Publicado por Billy (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:
*******************************************************************
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.
*******************************************************************
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
0