Pytanie : Using VBA inbox skrzynka pocztowa skrzynka pocztowa

My używać Wekslowy 2003/Światopogląd 2000.
All nasz inżynier mieć dodatkowy skrzynka pocztowa otwarty nazwany "sptmail "

The pismo nazwany miło czytać the brak inbox i dodawać wiadomość który istnieć w the Dostęp table.

I polubić ono the sptmail skrzynka pocztowa inbox zamiast the brak użytkownik.
I myśl the kawałek być tutaj ono, I właśnie biedak być sprawnie wszystkie together.

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

Set 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 Wszystkie Mailobject W InboxItems "Pętla przez inbox

Until Rst.EOF" Pętla przez database
            Jeżeli Rst! ID = Mailobject.EntryID Lub IsNull (Rst! ID) Wtedy Rozpoczynający pominięcie "Znajdować ID lub stół mieć nieobowiązujący ID
Rst.MoveNext
Pętla" Końcówka pętla przez database

"Żadny dopasowywanie wiadomość ID, dodawać table
Rst.AddNew" Dodawać database
Jeżeli Mailobject.Subject = "" Then
"Dodawać temat jako NIKT zamiast pusty
Rst! Temat = "Rst "
Else
Rst! Temat = Mailobject.Subject
Końcówka If

Rst! OD = "Od "
Rst! = Mailobject.To
Rst! Ciało = Mailobject.Body
Rst! Otrzymywać = Mailobject.ReceivedTime
Rst! ID = Mailobject.EntryID
Rst.Update
skip:
Next" Końcówka pętla przez inbox

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

End Sub

Related Rozwiązanie: Change Brak Skrzynka pocztowa skrzynka pocztowa w Microsoft Wekslowy Serwer setting

Odpowiedź : Using VBA inbox skrzynka pocztowa skrzynka pocztowa

DOS móc jakaś Windows kierowca. Wszystkie DOS program mieć obmurowany kierowca dla wszystkie the drukarka móc. Gdy PDF rozwijać until długi po tym jak DOS zamieniać Windows, tam  być żadny DOS zastosowanie który tworzyć PDFs.

O móc I móc być PCL PDF konwerter. Wtedy dostawać the DOS app (ono móc nawet który) i the konwerter móc nawet w górę the kartoteka i the PDF. Tam  być wiele PCL konwerter dostępny, na przykład:

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

Jeżeli twój DOS wydajność składać się z tekst tylko, bez jakaś drukarka kod, także mieć bezpłatny konwerter:

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

Kartoteka biegać od nakazowy linia, więc ty móc wsad program który utrzymywać dla PCL kartoteka. Jeżeli ono znajdować jeden, nawracać ono i kasować the oryginał.

Jeżeli twój DOS app móc tylko fizyczny port (e.g. LPT1) tam  być program który móc the wydajność i redirect ono kartoteka. Wtedy ty móc VeryPDF na ten kartoteka. Na przykład:

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