Fråga : Using VBA som läser inbox av den non-default brevlådan

Vi använder utbytet 2003/framtidsutsikten 2000.
All av vårt iscensätter har en öppen kallad ”sptmail"

The för extra brevlåda att skriva nedanfört läser nicely standardinboxen och tillfogar meddelanden som inte finns i skulle något liknande för ta fram table.

I det för att läsa sptmailbrevlådans inbox i stället för standardanvändaren. den funderare för
I lappar är här att göra den, I precis har inte varit kompetent att sätta dem all rst för together.

Dim som olApp för DAO.Recordset
Dim som OutLook.Application
Dim Inbox som OutLook.MAPIFolder
Dim InboxItems som OutLook.Items
Dim Mailobject som Object
Dim db som DAO.Database

Set db = CurrentDb

Set olApp = CreateObject (”Outlook.Application”)
Set Inbox =

Set Rst för .GetDefaultFolder (olFolderInbox) för olApp.GetNamespace (”Mapi”) =

Set InboxItems = Inbox.Items

For för CurrentDb.OpenRecordset (”tbl_OutlookTemp”) som varje Mailobject i InboxItems ”kretsa till och med inbox

gör, tills Rst.EOF” kretsar till och med database
            Om Rst! LEGITIMATION = Mailobject.EntryID eller IsNull (Rst! LEGITIMATIONEN för GoTo överhopp för LEGITIMATION) därefter den fann matcha ”eller bordlägger har ogiltiga ID
Rst.MoveNext
att kretsa” avslutar kretsar till och med database

”ingen matcha meddelandeLEGITIMATION, tillfogar till table
Rst.AddNew” tillfogar till database
, om Mailobject.Subject = "" Then
”tillfogar betvingar som INGA i stället för tom
Rst! Betvinga = ”inga "
Else
Rst! Betvinga = Mailobject.Subject
avslutar If

Rst! FRÅN = ”från "
Rst! Till = Mailobject.To
Rst! Förkroppsliga = Mailobject.Body
Rst! Mottaget = Mailobject.ReceivedTime
Rst! LEGITIMATION = Mailobject.EntryID
Rst.Update
skip:
Next” avslutar kretsar till och med olApp = Nothing
Set Inbox = Nothing
Set InboxItems = Nothing
Set Mailobject = Nothing
Rst.Close
Set Rst = Nothing
DoCmd.Requery

End Sub för inbox

Set Related lösningar för class= ": title= " ändringsstandardbrevlåda för Change för Microsoft Exchange Server inställnings" class= " den qRelatedParent " som grupperar brevlådan i Microsoft Exchange Server setting

Svar : Using VBA som läser inbox av den non-default brevlådan

DOS kan inte använda några Windows chaufförer. Alla DOS-program har inbyggde chaufförer för alla skrivare som de kan stötta. Som PDF inte framkallades tills long, efter DOS hade bytts ut av Windows, det finns inte några DOS-applikationer som skapar PDFs.

Om alla som jag kan funderare av, är att använda en PCL till PDF-omformaren. Få därefter DOS app för att skriva ut för att spara (att anta det kan även göra att), och omformaren kan välja upp upp spara och skapa PDFEN. Det finns många tillgängliga PCL-omformare, till exempel:

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

Om ditt tillverkade DOS består av text endast, utan någon skrivare kodifierar, dem har också en fri omformare:

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

Båda ska körning från en befalla fodrar, så du kunde skriva ett grupperaprogram som uppehällen som söker efter en PCL, sparar. Om den finner en, konvertera den och ta bort original.

Om ditt DOS app kan endast skriva ut till en läkarundersökningport (e.g. LPT1) det finns program, som kan tillfångatagandet tillverkat, och att omdirigera det till en spara. Därefter du kan använda VeryPDF på det sparar. Till exempel:

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