Pergunta : Using VBA para ler o inbox da caixa postal non-default

Nós usamos a troca 2003/probabilidade 2000.
All de nossos côordenadores temos uma caixa postal que adicional o certificado chamado aberto do

The do “sptmail " abaixo lê agradàvel o inbox do defeito e adiciona as mensagens que não existem no acesso table.

I gostariam d de ler o inbox da caixa postal do sptmail em vez do usuário do defeito. o
I pensa que as partes estão aqui o fazer, mim apenas não puderam os põr de together.

Dim como o olApp de DAO.Recordset
Dim como OutLook.Application
Dim Inbox como OutLook.MAPIFolder
Dim InboxItems como OutLook.Items
Dim Mailobject como o DB de Object
Dim como DAO.Database

Set DB = olApp de CurrentDb

Set =
Set Inbox de CreateObject todo o rst (“Outlook.Application”) = .GetDefaultFolder de olApp.GetNamespace (“Mapi”) (o olFolderInbox)

Set Rst = o

Set InboxItems = Inbox.Items

For de CurrentDb.OpenRecordset (“tbl_OutlookTemp”) cada Mailobject no laço de InboxItems “laço através do inbox

fazem até Rst.EOF” através do database
se Rst! Identificação = Mailobject.EntryID ou IsNull (Rst! Identificação) Então a identificação de harmonização encontrada da faixa clara empreendedores “ou a tabela têm o laço nulo” laço de ID
Rst.MoveNext
da extremidade através do database

“nenhuma identificação de mensagem de harmonização, adicionam ao table
Rst.AddNew” adicionam ao database
se Mailobject.Subject = o "" Then
“adicionam o assunto como NENHUNS em vez do
Rst! Assunto = “nenhum "
Else
Rst! Assunto =
Rst de If
do fim de Mailobject.Subject
! DE = “" do
Rst! A = Mailobject.To
Rst! Corpo = Mailobject.Body
Rst! Recebido = Mailobject.ReceivedTime
Rst! Identificação = Mailobject.EntryID
Rst.Update
skip: laço extremidade do
Next da” com o olApp do inbox

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

End Sub class= > " desobstruído " do

soluções >Related class= title= da " caixa postal do href= " /Software/Office_Productivity/Groupware/Outlook/Q_24650012.html " do Change " do class= " do ajuste de Microsoft Exchange Server " para agrupar a caixa postal em Microsoft Exchange Server setting

Resposta : Using VBA para ler o inbox da caixa postal non-default

O DOS não pode usar nenhuma excitadores de Windows. Todos os programas do DOS têm excitadores internos para todas as impressoras que podem suportar. Porque o pdf não estêve desenvolvido até que por muito tempo depois que o DOS tinha sido substituído por Windows, não houve nenhuma aplicação do DOS que cria PDFs.

Sobre tudo que eu posso pensar de é usar um PCL ao conversor do pdf. Conseguir então o DOS app imprimir para arquivar (a suposição dele pode mesmo fazer que) e o conversor pode pegarar acima da lima e criar o pdf. Há muitos conversores de PCL disponíveis, por exemplo:

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

Se sua saída do DOS consiste no texto somente, sem nenhuns códigos da impressora, igualmente têm um conversor livre:

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

Ambos funcionarão de uma linha de comando, assim que você poderia escrever um programa de grupo que se mantivesse procurar uma lima de PCL. Se encontra um, convertê-lo e suprimir do original.

Se seu DOS app pode somente imprimir a um porto físico (por exemplo LPT1) há os programas que podem capturar a saída e a reorientar a uma lima. Então você pode usar VeryPDF nessa lima. Por exemplo:

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