Outlook'ta ek eklemek için Dosya iletişim kutusunu nasıl hızlıca açarım?

YazarSiluvia Değiştirme Tarihi2024-09-13

Bir e-posta yazarken ek eklemeniz gerektiğinde, genellikle **Ekle > Dosya Ekle > Bu Bilgisayarı Gözden Geçir** yolunu izleyerek Dosya Ekle iletişim kutusunu açar ve ardından ihtiyacınız olan dosyayı seçersiniz. Bu öğreticide, Dosya Ekle iletişim kutusunu tek bir tıklamayla kolayca açmanıza olanak sağlayacak iki VBA kodu paylaşıyoruz.

Ek Eklemek İçin Dosya İletişim Kutusunu VBA ile 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çar
VBA kodu 2: Bilgisayarınızda belirtilen klasörü açar

İşlemi tamamlamak için lütfen aşağıdaki adımları takip edin.

1. Outlook'u 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 > Başvurular seçeneğine tıklayın, ardından Microsoft Scripting Runtime kutusunu Başvurular – Project1 iletişim kutusunda işaretleyin.

Outlook'ta bir ek eklemek için dosya iletişim kutusunu açma adımları

3. Ekle > Modül seçeneğine tıklayın. Ardından aşağıdaki VBA kodlarından birini Modül penceresine kopyalayın.

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

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çar

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) 1 numaralı VBA kodu, bilgisayarınızda varsayılan Belgeler klasörünü açmanıza yardımcı olur.

2) 2 numaralı VBA kodunda, aşağıdaki satırdaki Dosya Yolu kısmını ihtiyacınız olan Dosya Yolu ile değiştirin.
xFileDlg.InitialFileName = "C:\Users\Win10x64Test\Desktop\save attachments\"
Böylece 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. Giriş > Yeni Email seçeneğine tıklayarak yeni bir e-posta oluşturun. İleti penceresinde, Hızlı Erişim Araç Çubuğunu Özelleştir > Diğer Komutlar seçeneğine tıklayın.

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

6,1)Komutları şuradan seçinAçılır Liste listesinden Makrolar

6,2) Önceki adımda eklediğiniz makroyu seçin;

6,3) Bu makroyu Ekledüğmesine tıklayarak Hızlı Erişim Araç Çubuğunu Özelleştirkutusuna ekleyin.

7. Sağdaki kutuda betiği seçili tutun ve ardından Değiştir düğmesine tıklayın. Düğmeyi Değiştir iletişim kutusunda betiğe yeni bir düğme atayın ve Tamam seçeneğine tıklayın.

8. Tamam seçeneğine tıklayarak değişiklikleri kaydedin ve Outlook Seçenekleri iletişim kutusunu kapatın.

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

En İyi Office Verimlilik Araçları

Yepyeni Kutools for Outlook’i 100+ inanılmaz özelliğiyle deneyimleyin!Şimdi indirmek için tıklayın!

🤖KUTOOLS AI:E-postaları yanıtlama, özetleme, iyileştirme, uzatma, çevirme ve oluşturma dahil olmak üzere zahmetsizce yönetmek için gelişmiş yapay zeka teknolojisi kullanır.

📧E-posta Otomasyonu: Otomatik Yanıt (POP ve IMAP için kullanılabilir) / E-postaları Zamanlayarak Gönderme / E-posta Gönderirken Kurallara Göre Otomatik CC/BCC / Otomatik Yönlendirme (Gelişmiş Kurallar) / Otomatik Selam Eklemesi / Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölme…

📨E-posta Yönetimi:E-postayı Geri Çağırma, Konularına ve Diğer Özelliklerine Göre Dolandırıcı E-postaları Engelleme, Yinelenen E-postaları Silme, Gelişmiş Arama, Klasörleri Düzenleme…

📁Ekler Pro: Toplu Kaydetme, Toplu Ayırma, Toplu Sıkıştırma, Otomatik Kaydet, Otomatik Ayır, Otomatik Sıkıştır…

🌟Arayüz Büyüsü: 😊 Daha Güzel ve Havalı Emojiler / Önemli e-postalar geldiğinde sizi uyarır / Outlook’u Kapatmak Yerine Küçültür…

👍Tek Tıkla Harikalar: Tümüne Eklerle Yanıtla / Phishing E-postalarına Karşı Koruma / 🕘 Gönderenin Mevcut Saati ve Saat Dilimini Gösterme…

👩🏼‍🤝‍👩🏻Kişiler ve Takvim:Seçili E-postalardan Toplu Kişi Ekleme/Bir Kişi Grubunu Bireysel Gruplara Bölme/Doğum Günü Hatırlatıcısını Kaldırma…

Kutools’u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve 40’tan fazla başka dil desteğiyle!

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

Kutools for Outlook Özellik Listesi Şimdi İndir Satın Alma Sayfasına Git

🚀 Tek Tıkla İndir — Tüm Office Eklentilerini Edinin

Kesinlikle Önerilir: Kutools for Office (5’li Paket)

Beş yükleyiciyi tek tıkla indirin beş yükleyiciyiaynı anda —Kutools for Excel, Outlook, Word, PowerPointve Office Tab Pro.Şimdi indirmek için tıklayın!

✅Tek tıkla kolaylık: Tüm beş kurulum paketini tek seferde indirin.
🚀Her Office görevine hazır: İhtiyacınız olduğunda, ihtiyacınız olan eklentileri yükleyin.
🧰İçerik: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

Paket Hakkında ⬇ Paketi İndir 💳 Paketi Satın Al