Вопрос : Using VBA для того чтобы прочитать inbox non-default почтового ящика

Мы используем обмен 2003/внешний вид 2000.
All наших инженеров имеем дополнительный почтовый ящик открытый вызванный сценарий

The, котор «sptmail " ниже славно читает inbox невыполнения обязательства и добавляет сообщения не существуют в доступе table.

I хотел были бы он прочитать inbox почтового ящика sptmail вместо потребителя невыполнения обязательства.
I думает части должны здесь сделать его, бедный человек I, котор как раз могут положить их together.

Dim как olApp DAO.Recordset
Dim как OutLook.Application
Dim Inbox как OutLook.MAPIFolder
Dim InboxItems как OutLook.Items
Dim Mailobject как db Object
Dim как DAO.Database

Set db = olApp CurrentDb

Set =
Set Inbox CreateObject все rst («Outlook.Application») =

Set Rst .GetDefaultFolder olApp.GetNamespace («Mapi») (olFolderInbox) =

Set InboxItems = Inbox.Items

For CurrentDb.OpenRecordset («tbl_OutlookTemp») каждое Mailobject в петле InboxItems «, котор петля до inbox

не сделать до Rst.EOF» до database
            Если Rst! Удостоверение личности = Mailobject.EntryID или IsNull (Rst! Удостоверение личности) После этого удостоверение личности переход скипа «ое сопрягая или таблица имеют нулевую петлю» петлю ID
Rst.MoveNext
конца до database

«никакое сопрягая удостоверение личности сообщения, добавляют к table
Rst.AddNew» добавляют к database
если Mailobject.Subject = "" Then
«добавляют вопрос как НИКАКИЕ вместо пустого
Rst! Вопрос = «никакие "
Else
Rst! Вопрос =
Rst If
конца Mailobject.Subject
! ОТ = «от "
Rst! К = Mailobject.To
Rst! Тело = Mailobject.Body
Rst! Получено = Mailobject.ReceivedTime
Rst! Удостоверение личности = Mailobject.EntryID
Rst.Update
skip: петля конца
Next» до olApp inbox

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

End Sub class= " ясное " >

Related: title= " почтовый ящик href= " /Software/Office_Productivity/Groupware/Outlook/Q_24650012.html " Change " class= " установки Мичрософт Ехчюанге Сервер qRelatedParent " для того чтобы собрать почтовый ящик в Мичрософт Ехчюанге Сервер setting

Ответ : Using VBA для того чтобы прочитать inbox non-default почтового ящика

DOS не может использовать всех водителей Windows. Все программы DOS имеют встроенных водителей для всех принтеров, котор они могут поддержать. По мере того как не начать PDF до тех пор пока длиной после того как DOS был заменен Windows, не будут применений DOS которые создают PDFs.

О всех, котор я могу думать использовать PCL к конвертеру PDF. После этого получите, что DOS app напечатать для того чтобы хранить (принимать его смогите даже сделать что) и конвертер может выбрать вверх вверх по архиву и создать PDF. Будут много имеющихся конвертеров PCL, например:

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

Если ваш выход DOS состоит из текста только, без любых Кодих принтера, то они также имеют свободно конвертер:

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

Оба побегут от линии передачи команд, поэтому вы smogли написать пакетную программу которая держит искать архив PCL. Если она находит одно, то преобразуйте его и уничтожьте оригинал.

Если ваш DOS app может только напечатать к физическому порту, то (например LPT1) будут программы могут захватить выход и перенаправить его к архиву. После этого вы можете использовать VeryPDF на том архиве. Например:

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