Estamos conectados a un Exchange Server 5.5 Segun entiendo, el Exchange me
podria ayudar con esta notificacion...
Gracias a todos
PABLO
Salu2
--
José Mª Fueyo
[MS MVP Access]
' Declaraciones necesarias para abrir una instancia de Exchange. Es
interesante trabajar con estas declaraciones, ya que en caso de necesitar
los comprobantes de LEIDO (previamente configurados en Outlook) este código
lo requiere.
Dim myOlApp As Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myfolder, myitem As Object
Set myOlApp = CreateObject("Outlook.Application") ' para marco de
trabajo
Set myNameSpace = myOlApp.GetNamespace("MAPI") ' para marco de trabajo
Set myfolder = myNameSpace.GetDefaultFolder(olFolderInbox) ' para marco
de trabajo. Hay varias constantes que definen el tipo de carpeta
predeterminada con la cual vamos a trabajar: olTaskFolder (para agregar una
tarea en outlook por ejemplo. olMeetFolder (agregar una cita), olFolderInbox
(un correo electronico), etc... puedes ver todas las constantes escribiendo
una en el VBA y presionando F1.
Set myitem = myfolder.Items.Add ' AÑADIENDO UN NUEVO ITEM A LA CARPETA
olFolderInbox declarada en la sentencia anterior (o sea un nuevo correo)
myitem.To = <CORREO ELECTRONICO AL CUAL ENVIAR CORREO>
myitem.Subject = <TEMA EN STRING DE UN CORREO ELECTRONICO (SUBJECT)>
myitem.Categories = <Este item me es util para utilizar las herramientas
de Outlook, y pueda ver la información filtrada por una categoria. Por
ejemplo, puede darse el caso que en sistemas HELPDESK todos se manejen por
un codigo. Aqui, se puede meter el codigo, y desde Outlook utilizar las
herramientas de Filtrado, ordenación, etc para ver todos los correos
electronicos gerenados por el sistema>
myitem.Body = <CUERPO DEL MENSAJE DE UN EMAIL> myitem.Display '
mostrando...
myitem.Send ' ENVIANDO AUTOMATICAMENTE. Se puede sustituir colocando
DISPLAY y en vez de enviar, muestra el correo antes de enviarlo.
Espero que te sirva Miguel
Saludos
PABLO
PABLO
"José Mª Fueyo (Desde el curro)" <jmf...@NOSPAMya.com> wrote in message
news:uaRkAwDE...@TK2MSFTNGP11.phx.gbl...
Muchas Gracias Pablo..
>-----Mensaje original-----
>.
>