Note: The other languages of the website are Google-translated. Back to English

E-postalar Outlook'a ulaştığında ekleri otomatik olarak nasıl yazdırabilirim?

Bu öğretici, belirli e-postaların eklerini Outlook'a ulaştıklarında otomatik olarak yazdırmanıza yardımcı olmak için bir VBA komut dosyası ile bir Outlook kuralını birleştirme yöntemini gösterir.


Belirli e-postalar geldiğinde ekleri otomatik olarak yazdırın

Belirli bir göndericiden gelen e-postaların eklerini otomatik olarak yazdırmak istediğinizi varsayalım. Bunu yapmak için aşağıdaki gibi yapabilirsiniz.

Adım 1: Outlook'ta bir komut dosyası oluşturun

Öncelikle, Outlook'ta bir VBA komut dosyası oluşturmanız gerekir.

1. Outlook'unuzu başlatın, Ara Toplam + F11 anahtarları aynı anda açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. içinde Uygulamalar için Microsoft Visual Basic pencere, üzerine çift tıklayın Project1 > Microsoft Outlook Nesneleri > Bu OutlookOturumu açmak için ThisOutlookSession (Kod) penceresini açın ve ardından aşağıdaki kodu bu kod penceresine kopyalayın.

VBA kodu 1: E-postalar geldiğinde ekleri (her tür eki) otomatik olarak yazdır


Sub AttachementAutoPrint(Item As Outlook.MailItem)
'Updated by Extendoffice 20220413
  Dim xFS As FileSystemObject
  Dim xTempFolder As String
  Dim xAtt As Attachment
  On Error Resume Next
  Set xFS = New FileSystemObject
  xTempFolder = xFS.GetSpecialFolder(TemporaryFolder)
  xTempFolder = xTempFolder & "\ATMP" & Format(Now, "yyyymmddhhmmss")
  MkDir (xTempFolder)
  
  'Set Item = Application.ActiveExplorer.Selection.Item(1)
  Set xShell = CreateObject("Shell.Application")
  Set xFolder = xShell.NameSpace(0)
  For Each xAtt In Item.Attachments
    xFileName = xAtt.FileName
    xFileType = LCase$(Right$(xFileName, 4))
    xFileName = xTempFolder & "\" & xFileName
    xAtt.SaveAsFile (xFileName)
      Set xFolderItem = xFolder.ParseName(xFileName)
      xFolderItem.InvokeVerbEx ("print")
  Next xAtt
'xFS.DeleteFolder (xTempFolder)
Set xFS = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
Set xShell = Nothing
xError:
  If Err <> 0 Then
    MsgBox Err.Number & " - " & Err.Description, , "Kutools for Outlook"
    Err.Clear
  End If
Exit Sub
End Sub

Not: Bu kod, e-postalarda alınan her tür ekin yazdırılmasını destekler. Yalnızca pdf dosyaları gibi belirtilen ek türünü yazdırmak istiyorsanız, lütfen aşağıdaki VBA kodunu uygulayın.

VBA kodu 2: E-postalar geldiğinde belirtilen türdeki ekleri otomatik olarak yazdırın

Sub AttachementAutoPrint(Item As Outlook.MailItem)
'Updated by Extendoffice 20220413
  Dim xFS As FileSystemObject
  Dim xTempFolder As String
  Dim xAtt As Attachment
  On Error Resume Next
  Set xFS = New FileSystemObject
  xTempFolder = xFS.GetSpecialFolder(TemporaryFolder)
  xTempFolder = xTempFolder & "\ATMP" & Format(Now, "yyyymmddhhmmss")
  MkDir (xTempFolder)
  
  'Set Item = Application.ActiveExplorer.Selection.Item(1)
  Set xShell = CreateObject("Shell.Application")
  Set xFolder = xShell.NameSpace(0)
  For Each xAtt In Item.Attachments
    xFileName = xAtt.FileName
    xFileType = LCase$(Right$(xFileName, 4))
    xFileName = xTempFolder & "\" & xFileName
    xAtt.SaveAsFile (xFileName)
    Select Case xFileType
    Case "pdf" ‘change “pdf” to the file extension you want to print
      Set xFolderItem = xFolder.ParseName(xFileName)
      xFolderItem.InvokeVerbEx ("print")
     End Select
  Next xAtt
'xFS.DeleteFolder (xTempFolder)
Set xFS = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
Set xShell = Nothing
xError:
  If Err <> 0 Then
    MsgBox Err.Number & " - " & Err.Description, , "Kutools for Outlook"
    Err.Clear
  End If
Exit Sub
End Sub

Not: Çizgide Dava "pdf", lütfen değiştir "pdf" yazdırmak istediğiniz dosya uzantısına

3. Devam edin ve tıklayın Araçlar > Referanslar. Haşhaşta Referanslar – Proje1 iletişim kutusunda Microsoft Komut Dosyası Çalışma Zamanı ve ardından OK düğmesine basın.

4. Kodu kaydedin ve Ara Toplam + Q kapatmak için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.

Not: Lütfen emin olun Tüm makroları etkinleştirin seçeneği Outlook'unuzda etkindir. Aşağıda gösterilen adımları izleyerek bu seçeneği kontrol edebilirsiniz.

Adım 2: Komut dosyasını kullanmak için bir kural oluşturun

Outlook'ta VBA komut dosyasını ekledikten sonra, komut dosyasını belirli koşullara göre kullanmak için bir kural oluşturmanız gerekir.

1. Ana Sayfa sekmesine gidin, kurallar > Kuralları ve Uyarıları Yönetin.

2. içinde Kurallar ve Uyarılar iletişim kutusunda, Yeni kural bir kural oluşturmak için düğmesine basın.

İpuçları: Outlook'unuza birden fazla e-posta hesabı eklediyseniz, lütfen Değişiklikleri bu klasöre uygula kuralı uygulamak istediğiniz açılır liste. Aksi takdirde, seçili e-posta hesabının gelen kutusuna uygulanacaktır.

3. İlkinde Kural Sihirbazı iletişim kutusunu seçin Alınan iletilere kural uygula içinde 1. Adım kutusunu ve sonra Tamam'ı tıklatın. Sonraki.

4. saniyede Kural Sihirbazı iletişim kutusu, yapmanız gerekenler:

4.1) Bir veya daha fazla koşul belirtin. 1. Adım ihtiyaçlarınıza göre kutu;
Bu durumda, yalnızca belirli bir göndericiden gelen e-postalardaki ekleri yazdırmak istiyorum. Burada, kontrol ediyorum insanlardan veya genel gruptan kutu.
4.2) Ekranda altı çizili değere tıklayın. 2. Adım durumu düzenlemek için kutu;
4.3) Tıklayın Sonraki. Ekran Bkz:

5. Üçüncü olarak Kural Sihirbazı iletişim kutusu, aşağıdaki gibi yapılandırmanız gerekir.

5.1) içinde Adım 1: Eylem(ler) bölümünü seçin, kontrol et bir komut dosyası çalıştır Kutu;
5.2) içinde 2. Adım bölümünde, altı çizili “bir komut dosyası” metnine tıklayın;
5.3) Açılışta Komut Dosyası Seçin iletişim kutusunda, yukarıda eklediğiniz VBA kodunun adına tıklayın ve ardından TAMAM;
5.4) Sonraki buton. Ekran görüntüsüne bakın:

İpuçları: Eğer "bir komut dosyası çalıştır” seçeneği eksik Kural Sihirbazı, bu makalede belirtilen yöntemi izleyerek görüntüleyebilirsiniz: Outlook kuralında eksik Komut Dosyası Çalıştır sayfasını geri yükle.

6. Sonra başka Kural Sihirbazı istisnalar soran açılır. Gerekirse istisnaları seçebilirsiniz, aksi takdirde Sonraki herhangi bir seçim olmadan düğme。

7. Sonunda Kural Sihirbazı, kural için bir ad belirtmeniz ve ardından Bitiş düğmesine basın.

8. Ardından, Kurallar ve Uyarılar iletişim kutusunda, oluşturduğunuz kuralın içinde listelendiğini görebilirsiniz, OK Tüm ayarları bitirmek için düğmesine basın.

Şu andan itibaren, belirtilen kişiden bir e-posta alındığında, ekli dosyalar otomatik olarak yazdırılacaktır.


İlgili Makaleler

Outlook'ta Yalnızca Bir E-postadan veya Seçilmiş E-postalardan Gelen Ekleri Yazdırın
Outlook'ta e-postaları yazdırabilirsiniz, ancak ekleri yalnızca bir e-postadan mı yoksa Outlook'ta seçilen e-postalardan mı yazdırdınız? Bu makale, bu işi çözmenin püf noktalarını tanıtmaktadır.

Outlook'ta Yalnızca Bir E-postanın İleti Başlığını Yazdır
Outlook'ta bir e-posta yazdırırken, e-postada hem mesaj başlığını hem de mesaj gövdesini yazdıracaktır. Ancak, bazı özel durumlarda, konu, gönderen, alıcılar vb. ile mesaj başlığını yazdırmanız yeterli olabilir. Bu makale bunu yapmak için iki çözüm sunacaktır.

Outlook'ta Belirtilen/Özel Tarih Aralığında Bir Takvim Yazdırın
Normalde, Outlook'ta Ay görünümünde bir takvim yazdırırken, seçili tarihi içeren ayı otomatik olarak seçer. Ancak takvimi 3 ay, yılın yarısı gibi özel bir tarih aralığında yazdırmanız gerekebilir. Bu makale size çözümü tanıtacaktır.

Outlook'ta Resimli Bir Kişiyi Yazdır
Normalde, kişi Outlook'ta yazdırılırken kişinin resmi yazdırılmaz. Ancak bazen bir kişiyi resmiyle birlikte basmak daha etkileyici olacaktır. Bu makale, bunu halletmek için bazı geçici çözümler sunacaktır.

Outlook'ta Bir E-posta Seçimi Yazdır
Bir e-posta mesajı aldıysanız ve mesajın tamamını yazdırmak yerine e-posta içeriğinin bir kısmının yazdırılması gerektiğini fark ettiyseniz, ne yapardınız? Aslında Outlook, Firefox ve Internet Explorer gibi internet tarayıcılarının yardımıyla bu işlemi gerçekleştirmenize yardımcı olabilir. Burada örneğin İnternet tarayıcılarını alacağım. Lütfen aşağıdaki eğitimlere bakın.

"Outlook'ta yazdırma" hakkında daha fazla makale...


Outlook için Kutools - Outlook'a 100 Gelişmiş Özellik Getirir ve Çalışmayı Çok Daha Kolay Hale Getirir!

  • Otomatik CC / BCC e-posta gönderirken kurallara göre; Otomatik İleri Özel olarak birden çok E-posta; Otomatik cevap değişim sunucusu olmadan ve daha fazla otomatik özellik ...
  • BCC Uyarısı - tümünü yanıtlamaya çalıştığınızda mesaj göster posta adresiniz BCC listesindeyse; Eksik Olduğunda Hatırlatve daha fazlası özellikleri hatırlat ...
  • Posta görüşmesindeki Tüm Eklerle Yanıtla (Tümü); Birçok E-postayı Yanıtla saniyeler içinde; Otomatik Karşılama Ekleme cevap verdiğinde; Konuya Tarih Ekle ...
  • Ek Araçları: Tüm Postalardaki Tüm Ekleri Yönetin, Otomatik Ayır, Tümünü Sıkıştır, Tümünü Yeniden Adlandır, Tümünü Kaydet ... Hızlı Rapor, Seçili Postaları Say...
  • Güçlü Önemsiz E-postalar özel olarak; Yinelenen Postaları ve Kişileri Kaldır... Outlook'ta daha akıllı, daha hızlı ve daha iyi yapmanızı sağlar.
shot kutools görünüm kutools sekmesi 1180x121
shot kutools görünüm kutools artı sekme 1180x121
 
Yorumları sıralama ölçütü
Yorumlar (0)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0  Karakterler
Önerilen Konumlar