PDF Eki Ekranda Toplu İş Yazdır

Bu makale, bir veri ambarlama uzmanı ve How-To Geek

'nin iyi bir arkadaşı olan Sean Tsai tarafından yazıldı. Outlook e-posta kutunuza aldığınız her eki yazdırmak istediniz mi? Diyelim ki PDF e-posta servisine ücretsiz bir faks abone ettiniz ve otomatik olarak eski moda bir faks makinesinde olduğu gibi yazdırılmasını istiyorsunuz.

İşte biraz VB( makro) programlama ile rahat iseniz bunu başarmak için hızlı bir yoludur.

Burada gösterdiğimiz, Outlook'ta bir kural oluşturmak ve gelen faks e-postalarını ayrı bir alt klasöre taşımaktır. VB kodunu kullanarak, alt klasördeki her e-postaya karşı bir yazdırma işi yürütmeniz için bir makro oluşturuyoruz, böylece e-postayı açıp ekleri teker teker basmanız gerekmiyor.

Adım 1

Outlook'ta "Mailbox - YourName" altında "Toplu İşaretler" adlı bir alt klasör oluşturun.

Adım 2

Outlook'ta şu şekilde görünen bir kural oluşturun( Araçlar / Kurallar ve Uyarılar menüsünden):

Faks satıcınızdan gelen e-posta adresini "[email protected]" alanına yerleştirin. Konu satırında, her seferinde faks satıcısından gönderilen kalıcı metni yerleştirin( periyodik olarak değiştirilecek metni koymayın).3. alan "Toplu Baskılar", ilk adımda oluşturduğunuz alt klasördür.

Adım 3

Bir VB makrosu oluşturun.Önce Araçlar /Macro/ Visual Basic Düzenleyicisine giderek VB düzenleyicisini getirin. VB düzenleyicisinin şu şekilde göründüğünü görmelisiniz:

Adım 4

Sol taraftaki Proje penceresinden Project1 öğesine sağ tıklayın ve Module1 adlı bir modül ekleyin:

Adım 5

Module1 oluşturulduktan sonra aşağıdaki kodu kopyalayın.penceresinde sağ taraftaki mermi # 3'te gösterildiği gibi.

Ortak Alt PrintAttachments() Dim Gelen Kutusu MAPIFolder Dim Öğesi MailItem Olarak Dim Atmt Eklentisi Dim DosyaAdı String Dim i As Integer Set Gelen Kutusu = GetNamespace( "MAPI"). GetDefaultFolder( olFolderInbox). Parent. Folders. Item( "Toplu Baskılar") Her Öğe İçin Inbox. Items'te Her Atmt için Item. Attachments'taki tüm ekler önce C: \ Temp geçici klasörüne kaydedilir. Bu klasörü oluşturduğunuzdan emin olun. DosyaAdı = "C: \ Temp \" &Acrobat Reader'ın C sürücüsüne yüklenmemiş olması durumunda program klasörünü buna göre değiştirin: Shell "" "C: \ Program Files \ Adobe \ Reader 8.0 \ Reader \ acrord32.exe" "/ h /e-postanın otomatik olarak silinmesini istemiyorsanız, bu satırı kaldırın. Sonraki Set Inbox = Nothing End Sub

Hattı değiştirmeniz gerekebilir. Acrobat'ı sisteminizdeki yolla eşleştirmek için çağıran kod.

Adım 6

Şimdi kurulum tamamlandı.Faks sağlayıcınızdan gelen tüm e-postalar içeri girdiklerinde "Toplu İşaretler" bölümüne taşınacaktır. Örnekte, tüm eklerin PDF formatında olmasını bekliyoruz. Bu nedenle, her eki yazdırmak için Acrobat acrord32.exe'yi kullanıyoruz.

Makro

'yi Kullanma Artık, tüm ekleri basmak istediğinizde makroya gidin ve makro PrintAttachments makinesini çalıştırın ve tüm ekler sırayla yazdırılacaktır. E-posta silinir ve yazdırıldıktan sonra çöp kutusuna taşınır.

Not: baskılar varsayılan yazıcınıza yönlendirilir; bu nedenle geçerli bir yazıcı sürücüsünün kurulumundan ve seçilmesinden emin olmalısınız.

Bu yararlı olduğunu umuyoruz!