Vraag : Het gebruiken van VBA om inbox van niet-gebrekbrievenbus te lezen

Wij gebruiken Uitwisseling 2003/Vooruitzichten 2000.
Elk van onze ingenieurs een extra brievenbus hebben het open geroepen „sptmail " manuscript

The hieronder keurig het gebrek inbox leest en berichten toevoegt die niet in de Toegang table.

I zouden willen het bestaan de sptmailbrievenbus inbox in plaats van de standaardgebruiker lezen.
I denkt de stukken hier het moeten doen, heb ik net niet hen al together.

Dim rst als DAO.Recordset
Dim olApp als OutLook.Application
Dim Inbox als OutLook.MAPIFolder
Dim InboxItems als OutLook.Items
Dim Mailobject als Object
Dim db als DAO.Database

Set kunnen zetten db = CurrentDb

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

Set Rst = CurrentDb.OpenRecordset („tbl_OutlookTemp“)

Set InboxItems = Inbox.Items

For Elke Mailobject in Lijn InboxItems de „Lijn door inbox

tot Rst.EOF“ door database
als doet Rst! Identiteitskaart = Mailobject.EntryID of IsNull (Rst! IDENTITEITSKAART) skip GoTo „Gevonden passende identiteitskaart of de lijst de lijn van het Eind hebben dan van de ongeldige Lijn van ID
Rst.MoveNext
“ door database

„Geen passende berichtidentiteitskaart, aan table
Rst.AddNew“ toevoegt aan database
toevoegt als Mailobject.Subject = "" Then
„onderwerp als NIETS in plaats van lege
Rst toevoegt! Onderwerp = „niets "
Else
Rst! Onderwerp = Mailobject.Subject
Eind If

Rst! VAN = „van "
Rst! Aan = Mailobject.To
Rst! Lichaam = Mailobject.Body
Rst! Ontvangen = Mailobject.ReceivedTime
Rst! Identiteitskaart = Mailobject.EntryID
Rst.Update
skip: de“ lijn van het Eind
Next door inbox

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

End Sub

Related Oplossingen: Van de standaard Change StandaardBrievenbus aan groepsbrievenbus in de Server setting van de Uitwisseling van Microsoft

Antwoord : Het gebruiken van VBA om inbox van niet-gebrekbrievenbus te lezen

Dos kan geen bestuurders van Vensters gebruiken. Alle Dos- programma's hebben ingebouwde bestuurders voor alle printers zij kunnen steunen. Aangezien PDF niet tot lang werd ontwikkeld nadat Dos door Vensters was vervangen, zijn er geen toepassingen van Dos die tot PDFs leiden.

Ongeveer alle kan ik denken van een PCL aan convertor te gebruiken PDF is. Dan breng Dos app ertoe om aan dossier dat (kan het zelfs doen dat) veronderstelt te drukken en de convertor kan het dossier omhoog opnemen en tot PDF leiden. Er zijn vele beschikbare convertors PCL, bijvoorbeeld:

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

Als uw output van Dos slechts uit tekst, zonder enige printercodes bestaat, hebben zij ook een vrije convertor:

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

Allebei zullen van een bevellijn lopen, zodat kon u een partijprogramma schrijven dat houdt zoekend een Pcl- dossier. Als het één vindt, zet het om en schrap origineel.

Als uw Dos app slechts aan een fysieke haven (b.v. LPT1) kan drukken er zijn programma's die de output kunnen vangen en het opnieuw richten aan een dossier. Dan kunt u VeryPDF op dat dossier gebruiken. Bijvoorbeeld:

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