Questione : Using VBA per leggere inbox della cassetta postale non-default

Usiamo lo scambio 2003/prospettiva 2000.
All dei nostri assistenti tecnici abbiamo una cassetta postale che supplementare lo scritto chiamato aperto del

The “dello sptmail " qui sotto legge piacevolmente il inbox di difetto e che aggiunge i messaggi che non esistono nell'accesso table.

I lo vorrebbero leggere il inbox della cassetta postale dello sptmail anziché l'utente di difetto. il
I pensa che le parti siano qui farle, io appena non abbiano potute metterli di together.

Dim come olApp di DAO.Recordset
Dim come OutLook.Application
Dim Inbox come OutLook.MAPIFolder
Dim InboxItems come OutLook.Items
Dim Mailobject come db di Object
Dim come DAO.Database

Set db = olApp di CurrentDb

Set =
Set Inbox di CreateObject tutto il rst (“Outlook.Application„) = .GetDefaultFolder di olApp.GetNamespace (“Mapi„) (olFolderInbox)

Set Rst = il

Set InboxItems = Inbox.Items

For di CurrentDb.OpenRecordset (“tbl_OutlookTemp„) ogni Mailobject nel ciclo di InboxItems “ciclo attraverso inbox

fanno fino a Rst.EOF„ attraverso database
se Rst! Identificazione = Mailobject.EntryID o IsNull (Rst! Identificazione) Allora l'identificazione di corrispondenza trovata di salto di avanzamento “o la tabella ha ciclo nullo„ ciclo di ID
Rst.MoveNext
dell'estremità attraverso database

“nessun'identificazione di messaggio di corrispondenza, aggiunge a table
Rst.AddNew„ aggiunge a database
se Mailobject.Subject = il "" Then
“aggiungono l'oggetto come NESSUN anziché
Rst! Oggetto = “nessuno "
Else
Rst! Oggetto =
Rst di If
di conclusione di Mailobject.Subject
! DA = “" da
Rst! A = Mailobject.To
Rst! Corpo = Mailobject.Body
Rst! Ricevuto = Mailobject.ReceivedTime
Rst! Identificazione = Mailobject.EntryID
Rst.Update
skip: ciclo dell'estremità del
Next„ con il olApp del inbox

Set = Nothing
Set Inbox = Nothing
Set InboxItems = Nothing
Set Mailobject = Nothing
Rst.Close
Set Rst = Nothing
DoCmd.Requery

End Sub class= > " libero " del

soluzioni >Related class= title= " cassetta postale del href= " /Software/Office_Productivity/Groupware/Outlook/Q_24650012.html " di Change " del class= " della regolazione del Microsoft Exchange Server " per raggruppare cassetta postale in Microsoft Exchange Server setting

Risposta : Using VBA per leggere inbox della cassetta postale non-default

Il DOS non può usare alcuni driver di Windows. Tutti i programmi del DOS hanno driver incorporati per tutti gli stampatori che possono sostenere. Poichè non sviluppare il pdf fino a lungamente dopo che il DOS era stato sostituito da Windows, non ci sono le applicazioni del DOS che generano PDFs.

Circa tutti che possa pensare a è usare un PCL al convertitore del pdf. Allora convincere il DOS app per stampare per archivare (ammetterlo può persino fare che) ed il convertitore può prendere sulla lima e generare il pdf. Ci sono molti convertitori di PCL disponibili, per esempio:

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

Se la vostra uscita del DOS consiste del testo soltanto, senza alcuni codici dello stampatore, inoltre hanno un convertitore libero:

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

Entrambi si allontaneranno da una linea di ordine, in modo da potreste scrivere un programma in lotti che continu aare cercare una lima di PCL. Se trova uno, convertirlo e cancellare l'originale.

Se il vostro DOS app può stampare soltanto ad un orificio fisico (per esempio LPT1) ci sono programmi che possono bloccare l'uscita e riorientarli ad una lima. Allora potete usare VeryPDF su quella lima. Per esempio:

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