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

Outlook'ta Ek Eklemek İçin Dosya İletişim Kutusunu Nasıl Hızlıca Açılır?

Oluşturma e-postasına bir ek eklememiz gerektiğinde, genellikle Dosya Ekle iletişim kutusunu açmak için Ekle > Dosya Ekle > Bu Bilgisayara Gözat'a tıklamamız ve ardından ihtiyacımız olan dosyayı bulup eklememiz gerekir. Bu öğreticide, Dosya Ekle iletişim kutusunu tek bir tıklamayla kolayca açmanıza yardımcı olacak iki VBA kodu sağlıyoruz.


VBA ile Bir Ek Eklemek İçin Dosya İletişim Kutusunu Hızla Açın

Aşağıdaki VBA kodları elde edebilir:

VBA kodu 1: Bilgisayarınızdaki varsayılan Belgeler klasörünü açın
VBA kodu 2: Bilgisayarınızda belirtilen klasörü açın

Bunu yapmak için lütfen aşağıdakileri yapın.

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

2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Tools > Referanslar, sonra kontrol et Microsoft Komut Dosyası Çalışma Zamanı kutusu Referanslar – Proje1 iletişim kutusu.

3. tık Ekle > Modülü. Ardından aşağıdaki VBA kodlarından birini kopyalayın. modül pencere.

VBA kodu 1: Bilgisayarınızdaki varsayılan Belgeler klasörünü açın

Sub OpenFileDialog()
'Updated by Extendoffice 20220713
Dim xApp As Object
Dim xFileDlg As FileDialog
Dim xSelItem As Variant
Dim xMail As MailItem
On Error Resume Next
Set xApp = CreateObject("Excel.Application")
xApp.Visible = False
Set xFileDlg = xApp.Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.AllowMultiSelect = True
If xFileDlg.Show = 0 Then Exit Sub
Set xMail = Application.ActiveInspector.currentItem
For Each xSelItem In xFileDlg.SelectedItems
    xMail.Attachments.Add xSelItem
Next
xApp.Quit
Set xFileDlg = Nothing
Set xApp = Nothing
End Sub

VBA kodu 2: Bilgisayarınızda belirtilen klasörü açın

Sub OpenCertianFolderDialog()
'Updated by Extendoffice 20220713
Dim xApp As Object
Dim xFileDlg As FileDialog
Dim xSelItem As Variant
Dim xMail As MailItem
On Error Resume Next
Set xApp = CreateObject("Excel.Application")
xApp.Visible = False
Set xFileDlg = xApp.Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.InitialFileName = "C:\Users\Win10x64Test\Desktop\save attachments\"  'Specify the path to the folder you want to open
xFileDlg.AllowMultiSelect = True
If xFileDlg.Show = 0 Then GoTo L1
Set xMail = Application.ActiveInspector.CurrentItem
For Each xSelItem In xFileDlg.SelectedItems
    xMail.Attachments.Add xSelItem
Next
L1:
    xApp.Quit
    Set xFileDlg = Nothing
    Set xApp = Nothing
End Sub

Notlar:

1) VBA kodu 1, bilgisayarınızdaki varsayılan Belgeler klasörünü açmanıza yardımcı olur.
2) VBA kodu 2'de, lütfen aşağıdaki satırdaki klasör yolunu ihtiyacınız olan klasör yoluna değiştirin.
xFileDlg.InitialFileName = "C:\Users\Win10x64Test\Desktop\ekleri kaydet\"
Ardından, bu kodu her çalıştırdığınızda belirtilen klasör açılacaktır.

4. Tuşuna basın. Ara Toplam + Q kapatmak için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.

Şimdi makroyu çalıştırmak için bir düğmeye ihtiyacınız var.

5. tık Home > yeni e-posta Yeni bir e-posta oluşturmak için Mesaj penceresinde, Hızlı erişim araç çubuğunu özelleştir > Daha Komutlar.

6. içinde Outlook Seçenekleri iletişim kutusu, aşağıdaki gibi yapılandırmanız gerekir.

6.1) içinde Komutları seçin açılan listeden Makrolar;
6.2) Önceki adımda eklediğiniz makroyu seçin;
6.3) Ekle Bu makroyu eklemek için düğme Hızlı erişim araç çubuğunu özelleştir kutu.

7. Komut dosyasını sağdaki kutuda seçili tutun ve ardından değiştirmek buton. İçinde Değiştir Düğmesi iletişim kutusunda, komut dosyasına yeni bir düğme atayın ve OK.

8. tık OK içinde Outlook Seçenekleri değişiklikleri kaydetmek için iletişim kutusu.

9. Adım 7'de belirttiğiniz düğme daha sonra Hızlı Erişim Araç Çubuğu. Bir e-posta oluştururken, bir ek eklemek istiyorsanız, sadece bu düğmeyi tıklayarak dosyayı açabilirsiniz. Araştır klasörünü seçin ve eklemeniz gereken dosyayı seçin.


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