Question : Using VBA pour lire l'inbox de la boîte aux lettres non-default

Nous employons l'échange 2003/perspectives 2000.
All de nos ingénieurs avons une boîte aux lettres additionnelle le manuscrit appelé qu'ouvert du

The de « sptmail " ci-dessous lit bien l'inbox de défaut et ajoute les messages qui n'existent pas dans l'accès table.

I voudraient qu'il lise l'inbox de la boîte aux lettres de sptmail au lieu de l'utilisateur de défaut. le
I pensent que les morceaux sont ici pour le faire, je juste n'ont pas pu les mettre de together.

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

Set DB = olApp de CurrentDb

Set =
Set Inbox de CreateObject tout le rst (« Outlook.Application ») = .GetDefaultFolder d'olApp.GetNamespace (« Mapi ») (l'olFolderInbox)

Set Rst =

Set InboxItems = Inbox.Items

For de CurrentDb.OpenRecordset (le « tbl_OutlookTemp ») chaque Mailobject dans boucle d'InboxItems la « boucle par l'inbox

font jusqu'à Rst.EOF » par le database
si Rst! Identification = Mailobject.EntryID ou IsNull (Rst ! Identification) Puis l'identification assortie trouvée de saut GoTo « ou la table a la boucle nulle » boucle d'ID
Rst.MoveNext
d'extrémité par le database

« aucune identification de message assortie, s'ajoutent au table
Rst.AddNew » s'ajoutent au database
si Mailobject.Subject = "" Then
« ajoutent le sujet en tant qu'AUCUN au lieu du
Rst ! Sujet = « aucun "
Else
Rst ! Sujet =
Rst d'If
de fin de Mailobject.Subject
! DE = « " du
Rst ! À = Mailobject.To
Rst ! Corps = Mailobject.Body
Rst ! Reçu = Mailobject.ReceivedTime
Rst ! Identification = Mailobject.EntryID
Rst.Update
skip : boucle d'extrémité du
Next » par l'olApp = le Nothing
Set Inbox = Nothing
Set InboxItems = Nothing
Set Mailobject = Nothing
Rst.Close
Set Rst = Nothing
DoCmd.Requery

End Sub de l'inbox

Set class= > " clair " de

solutions >Related class= title= " du href= " /Software/Office_Productivity/Groupware/Outlook/Q_24650012.html de Change de class= pour grouper la boîte aux lettres dans Microsoft Exchange Server setting

Réponse : Using VBA pour lire l'inbox de la boîte aux lettres non-default

Le DOS ne peut employer aucun conducteurs de Windows. Tous les programmes de DOS ont les conducteurs intégrés pour tous les imprimeurs qu'ils peuvent soutenir. Car le pdf n'a pas été développé jusqu'à ce que longtemps après que le DOS ait été remplacé par Windows, il n'y a aucune application de DOS qui créent PDFs.

Au sujet de tous que je peux penser à est employer un PCL au convertisseur de pdf. Obtenir alors le DOS $$etAPP pour imprimer pour classer (l'assumer peut même faire que) et le convertisseur peut reprendre vers le haut du dossier et créer le pdf. Il y a beaucoup de convertisseurs de PCL disponibles, par exemple :

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

Si votre rendement de DOS ne se compose du texte seulement, sans aucun code d'imprimeur, ils ont également un convertisseur libre :

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

Tous les deux fonctionneront d'une ligne de commande, ainsi vous pourriez écrire un programme par lots qui continue à rechercher un dossier de PCL. S'il trouve un, le convertir et supprimer l'original.

Si votre DOS $$etAPP peut seulement imprimer à un port physique (par exemple LPT1) il y a des programmes qui peuvent saisir le rendement et le réorienter à un dossier. Alors vous pouvez employer VeryPDF sur ce dossier. Par exemple :

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