Cuestión : Usar VBA para leer el inbox de la caja non-default

Utilizamos el intercambio 2003/perspectiva 2000.
All de nuestros ingenieros tenemos una caja adicional que la escritura llamada abierta del

The del “sptmail " abajo lee agradable el inbox del defecto y que agrega los mensajes que no existen en el acceso table.

I quisieran que leyera el inbox de la caja del sptmail en vez del usuario del defecto. el
I piensa que los pedazos son aquí hacerlo, yo apenas no han podido ponerlos de together.

Dim como olApp de DAO.Recordset
Dim como OutLook.Application
Dim Inbox como OutLook.MAPIFolder
Dim InboxItems como OutLook.Items
Dim Mailobject como DB de Object
Dim como DAO.Database

Set DB = olApp de CurrentDb

Set = el
Set Inbox de CreateObject todo el rst (“Outlook.Application”) = el .GetDefaultFolder de olApp.GetNamespace (“Mapi”) (el olFolderInbox)

Set Rst = el

Set InboxItems = Inbox.Items

For de CurrentDb.OpenRecordset (el “tbl_OutlookTemp”) cada Mailobject en el lazo de InboxItems “lazo a través del inbox

hacen hasta Rst.EOF” a través del database
si Rst¡! ¡Identificación = Mailobject.EntryID o IsNull (Rst! Identificación) ¡Entonces la identificación que empareja encontrada del salto indicado “o la tabla tiene lazo nulo” lazo de ID
Rst.MoveNext
del extremo a través del database

“ninguna identificación de mensaje que empareja, agrega al table
Rst.AddNew” agrega al database
si Mailobject.Subject = el "" Then
“agregan el tema como NINGUNOS en vez del
Rst! ¡Tema = “ninguno "
Else
Rst! ¡Tema =
Rst de If
del final de Mailobject.Subject
! ¡DE = “" del
Rst! ¡A = Mailobject.To
Rst! ¡Cuerpo = Mailobject.Body
Rst! ¡Recibido = Mailobject.ReceivedTime
Rst! Identificación = Mailobject.EntryID
Rst.Update
skip: lazo del extremo del
Next” con el olApp = Nothing
Set Inbox = Nothing
Set InboxItems = Nothing
Set Mailobject = Nothing
Rst.Close
Set Rst = Nothing
DoCmd.Requery

End Sub del inbox

Set class= > " claro " del

soluciones >Related class= title= " caja del href= " /Software/Office_Productivity/Groupware/Outlook/Q_24650012.html " del Change " del class= " del ajuste de Microsoft Exchange Server " para agrupar la caja en Microsoft Exchange Server setting

Respuesta : Usar VBA para leer el inbox de la caja non-default

El DOS no puede utilizar ninguna conductores de Windows. Todos los programas del DOS tienen conductores incorporados para todas las impresoras que pueden apoyar. Pues el pdf no fue desarrollado hasta que de largo después de que el DOS hubiera sido substituido por Windows, no hay usos del DOS que crean PDFs.

Sobre todos lo que puedo pensar en está utilizar un PCL al convertidor del pdf. Entonces conseguir el DOS app para imprimir para archivar (si se asume que lo puede incluso hacer que) y el convertidor puede coger encima del archivo y crear el pdf. Hay muchos convertidores de PCL disponibles, por ejemplo:

http://www.verypdf.com/pcltools/index.html

Si su salida del DOS consiste en el texto solamente, sin ningunos códigos de la impresora, también tienen un convertidor libre:

http://www.verypdf.com/txt2pdf/index.htm

Ambos funcionarán de una línea de comando, así que usted podría escribir un programa de hornada que guarda el buscar de un archivo de PCL. Si encuentra uno, convertirlo y suprimir la original.

Si su DOS app puede imprimir solamente a un puerto físico (e.g. LPT1) hay los programas que pueden capturar la salida y volverla a dirigir a un archivo. Entonces usted puede utilizar VeryPDF en ese archivo. Por ejemplo:

http://www.printfil.com/manualen/c7.htm