Skip to main content

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

Author: Siluvia Last Modified: 2025-06-10

Bir e-posta yazarken ek eklememiz gerektiğinde genellikle Ekle > Dosya Ekle > Bu Bilgisayarı Gözat seçeneğine tıklayarak Dosya Ekle iletişim kutusunu açarız, ardından ihtiyacımız olan dosyayı bulur ve ekleriz. Bu eğitimde, size Insert File iletişim kutusunu tek bir tıklamayla kolayca açmanıza yardımcı olacak iki VBA kodu sunuyoruz.


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

Aşağıdaki VBA kodları şunları gerçekleştirebilir:

VBA Kodu 1: Bilgisayarınızda varsayılan Belgeler klasörünü açın
VBA Kodu 2: Bilgisayarınızda belirli bir klasörü açın

Lütfen aşağıdaki adımları izleyerek işlemi tamamlayın.

1. Outlook'unuzu başlatın ve Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

2. Microsoft Visual Basic for Applications penceresinde Araçlar > Referanslar'a tıklayın ve ardından Referanslar – Proje1 iletişim kutusunda Microsoft Scripting Runtime kutucuğunu işaretleyin.

steps of opening the file dialog box to insert an attachment in outlook

3. Ekle > Modül'e tıklayın. Ardından aşağıdaki VBA kodlarından birini Modül penceresine kopyalayın.

steps of opening the file dialog box to insert an attachment in outlook

VBA Kodu 1: Bilgisayarınızda 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ızda 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 ihtiyaç duyduğunuz klasör yoluna değiştirin.
xFileDlg.InitialFileName = "C:\Users\Win10x64Test\Desktop\save attachments\"
Bu kodu her çalıştırdığınızda belirtilen klasör açılacaktır.

4. Alt + Q tuşlarına basarak Microsoft Visual Basic for Applications penceresini kapatın.

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

5. Ana Sayfa > Yeni E-posta'ya tıklayarak yeni bir e-posta oluşturun. İleti penceresinde, Sabit Araç Çubuğu'nun Kullanıcı Tanımlı Hızlı Erişim Araç Çubuğu > Daha Fazla Komut seçeneğine tıklayın.

steps of opening the file dialog box to insert an attachment in outlook

6. Outlook Seçenekleri iletişim kutusunda aşağıdaki yapılandırmaları yapmanız gerekmektedir.

6.1) Aşağı açılır listeden komutları seçin; Makrolar'ı seçin;
6.2) Önceki adımda eklediğiniz makroyu seçin;
6.3) Bu makroyu Sabit Araç Çubuğu'nun Kullanıcı Tanımlı Hızlı Erişim Araç Çubuğu kutusuna eklemek için Ekle düğmesine tıklayın.
steps of opening the file dialog box to insert an attachment in outlook

7. Sağdaki kutuda betiği seçili tutun ve ardından Değiştir düğmesine tıklayın. Değiştir Düğmesi iletişim kutusunda betik için yeni bir düğme atayın ve Tamam'a tıklayın.

steps of opening the file dialog box to insert an attachment in outlook

8. Outlook Seçenekleri iletişim kutusunda Tamam'a tıklayarak değişiklikleri kaydedin.

9. Adım 7'de belirttiğiniz düğme Hızlı Erişim Araç Çubuğu'na eklenecektir. Bir e-posta yazarken ek eklemek isterseniz, bu düğmeye tıklayarak Gözat klasörünü açabilir ve eklemek istediğiniz dosyayı seçebilirsiniz.

steps of opening the file dialog box to insert an attachment in outlook

En İyi Ofis Verimlilik Araçları

Son Dakika: Kutools for Outlook Ücretsiz Sürümünü Başlattı!

Yepyeni Kutools for Outlook ÜCRETSİZ sürümünü70'ten fazla harika özellikle sonsuza dek kullanabilirsiniz! Şimdi indirmek için tıklayın!

🤖 Kutools AI : Gelişmiş yapay zeka teknolojisiyle e-postaları zahmetsizce yönetir; yanıtlama, özetleme, optimize etme, genişletme, çeviri ve e-posta oluşturma işlemlerini kolayca gerçekleştirir.

📧 E-posta Otomasyonu: Otomatik Yanıt (POP ve IMAP için kullanılabilir) / E-postaları Zamanla Gönder / E-posta Gönderirken Kurallara Göre Otomatik CC/BCC / Otomatik Yönlendirme (Gelişmiş Kurallar) / Otomatik Selamlama Ekle / Çoklu Alıcılı E-postaları Otomatik Olarak Bireysel E-postalara Böl...

📨 E-posta Yönetimi: E-postayı Geri Çağır / Konu ve Diğerlerine Göre Dolandırıcılık E-postalarını Engelle / Yinelenen E-postaları Sil / Gelişmiş Arama / Klasörleri düzenle...

📁 Ekler Pro: Toplu Kaydet / Toplu Ayır / Toplu Sıkıştır / Otomatik Kaydet / Otomatik Ayır / Otomatik Sıkıştır...

🌟 Arayüz Sihri: 😊Daha Fazla Güzel ve Havalı Emoji / Önemli e-postalar geldiğinde sizi uyarır / Outlook'u Kapatmak Yerine Simge Durumuna Küçült...

👍 Tek Tıkla Harikalar: Tümüne Eklerle Yanıtla / Kimlik Avı E-postalarına Karşı Koruma / 🕘Gönderenin Saat Dilimini Göster...

👩🏼‍🤝‍👩🏻 Kişiler & Takvim: Seçilen E-postalardan Toplu Kişi Ekle / Bir Kişi Grubunu Bireysel Gruplara Böl / Doğum günü hatırlatıcısını kaldır...

Kutools for Outlook'u tek tıkla anında etkinleştirin. Beklemeyin, hemen indirin ve verimliliğinizi artırın!

kutools for outlook features1 kutools for outlook features2