Outlook'ta Toplu Yazdır PDF Ekleri
Bu makale, veri depolama uzmanı ve Nasıl Yapılır Geek'in iyi arkadaşı olan Sean Tsai tarafından yazılmıştır.
Outlook e-posta kutunuzda aldığınız her eki yazdırmak istediniz mi? Diyelim ki PDF e-posta servisine ücretsiz bir faksa abone oldunuz ve eski moda bir faks makinesi gibi otomatik olarak yazdırılmalarını istiyorsanız.
Biraz VB (makro) programlama konusunda rahatsanız, bunu elde etmenin hızlı bir yolu.
Burada gösterdiğimiz şey, Outlook'ta bir kural oluşturmak ve gelen faks e-postalarını ayrı bir alt klasöre taşımaktır. VB kodunu kullanarak, bu alt klasördeki her e-postaya karşı bir yazdırma işi yürütmeniz için bir makro oluştururuz; böylece e-postayı açmanız ve ekleri birer birer yazdırmanız gerekmez.
Aşama 1
Outlook'ta "Posta Kutusu - Adınız" altında "Toplu Baskılar" adlı bir alt klasör oluşturun.
Adım 2
Aşağıdaki gibi görünen Outlook'ta bir kural oluşturun (Araçlar / Kurallar ve Uyarılar menüsünden):
E-posta adresini faks satıcınızdan “[email protected]” alanına yerleştirin. Konu satırına, her defasında faks satıcısından gönderilen kalıcı metni yerleştirin (düzenli aralıklarla değiştirilecek metni girmeyin). 3rd “Batch Prints” alanı, ilk adımda oluşturduğunuz alt klasördür.
Aşama 3
Bir VB makrosu oluşturun. İlk önce Tools / Macro / Visual Basic Editor'a giderek VB editörünü getirin. VB editörünün şunun gibi göründüğünü görmelisiniz:
4. adım
Sol taraftaki Proje penceresinden, Project1 öğesine sağ tıklayın ve Module1 adında bir modül ekleyin:
Adım 5
Modül1 oluşturulduktan sonra, aşağıdaki kodu, madde # 3'te gösterildiği gibi sağ taraftaki pencereye kopyalayın..
Genel Alt PrintAttachments () MAPIFolder Olarak Dim Gelen Kutusu Dim Öğe MailItem Olarak Dim Dim Olarak Eklenti Olarak Dim Dim FileName Dize Olarak Dim i Tamsayı Olarak Ayarla Gelen Kutusu = GetNamespace ("MAPI"). ) Gelen Kutuda Her Bir Öğe İçin. Her Bir Öğe İçin Öğe.Attachments'ın tüm ekleri ilk önce C: \ Temp klasörüne kaydedilir. Bu klasörü oluşturduğunuzdan emin olun. FileName = "C: \ Temp \" & Atmt.FileName Atmt.SaveAsFile FileName ', Acrobat Reader C: Shell "" C: Kablosuna yüklenmemişse, lütfen program klasörünü uygun şekilde değiştirin: "\" C: \ Program Files \ Adobe \ Reader 8.0 \ Reader \ acrord32.exe "" / h / p "" "+ DosyaAdı +" "" ", vbHide Sonraki Öğe.Delete ', e-postanın otomatik olarak silinmesini istemiyorsanız, bu satırı kaldırın Sonraki Küme Ayarla = Nothing End Sub Acrobat'ı çağıran kod satırını sisteminizdeki yolla eşleştirmeniz gerekebileceğini unutmayın..
6. adım
Şimdi kurulum tamamlandı. Faks satıcınızdan gelen tüm e-postalar, geldiklerinde “Toplu Baskılar” ınıza taşınır. Lütfen, örnekte, tüm ekleri PDF biçiminde bekliyoruz; bu nedenle her eki yazdırmak için Acrobat acrord32.exe kullanıyoruz..
Makroyu Kullanma
Şimdi, tüm ekleri yazdırmak istediğinizde, sadece makroya gidin ve makroyu PrintAttachments'ı çalıştırın; tüm ekler sırayla yazdırılacaktır. E-posta silindikten sonra yazdırıldıktan sonra çöp kutusuna taşınır.
Not: baskılar varsayılan yazıcınıza yönlendirilir, böylece geçerli bir yazıcı sürücüsünün kurulduğundan ve seçildiğinden emin olmanız gerekir..
Umarım bu yararlıdır!
