Excel'de birden çok eki olan e-posta nasıl gönderilir?

Bu makale, Outlook üzerinden Excel'de birden çok ek eklenmiş bir e-posta göndermekten bahsediyor.

Excel'de VBA kodu ile birden fazla ek içeren e-posta gönderin

Excel'de VBA kodu ile birden fazla ek içeren e-posta gönderin

İnanılmaz! Excel'de Chrome, Firefox ve Safari gibi Verimli Sekmeleri Kullanma!

Zamanınızın% 50'sinden tasarruf edin ve her gün binlerce fare tıklamasını azaltın!

---

Excel'de birden çok ek eklenmiş bir e-posta göndermek için lütfen aşağıdaki işlemleri yapın.

1. Lütfen tıklayarak bir komut düğmesi ekleyin Geliştirici > Ekle > Komut Düğmesi (ActiveX Kontrolü). Ekran görüntüsüne bakın:

2. Komut Düğmesini ekledikten sonra, lütfen sağ tıklayın ve seçin Kodu Görüntüle bağlam menüsünden.

3. Açılışta Uygulamalar için Microsoft Visual Basic pencere, lütfen tıklayın Tools > Referanslar aşağıda gösterilen ekran görüntüsü gibi.

4. içinde Referanslar - VBAProject iletişim kutusu, lütfen bulun ve kontrol edin Microsoft Outlook Nesne Kitaplığı seçeneğini ve ardından OK düğmesine basın.

5. Ardından Kod penceresindeki orijinal kodu aşağıdaki VBA koduyla değiştirin.

VBA kodu: Excel'de birden çok ek içeren e-posta gönderin

Private Sub CommandButton1_Click()
    Dim xStrFile As String
    Dim xFilePath As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
    If xFileDlg.Show = -1 Then
        With xMailOut
            .BodyFormat = olFormatRichText
            .To = "happy.xuebi@163.com"
            .Subject = "test"
            .HTMLBody = "test"
            For Each xFileDlgItem In xFileDlg.SelectedItems
                .Attachments.Add xFileDlgItem
            Next xFileDlgItem
            .Display
        End With
    End If
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

not: lütfen e-posta alıcınızı, konunuzu ve metninizi belirtiniz. .To = mutlu.xuebi@163.com, .Subject = "test" ve .HTMLBody = "test" koddaki satırlar.

6. Tuşuna basın. Ara Toplam + Q çıkmak için tuşları birlikte Uygulamalar için Microsoft Visual Basic pencere.

7. tık Geliştirici > Tasarım Modu Tasarım Modunu kapatmak için. Ekran görüntüsüne bakın:

8. Kodu çalıştırmak için Komut Düğmesine tıklayın. Haşhaşta Araştır penceresinde, e-postaya eklemeniz gereken dosyaları seçin ve ardından OK buton. Ekran görüntüsüne bakın:

9. Ardından, belirtilen alanlar ve eklerin listelendiği bir e-posta oluşturulur. Lütfen tıklayın Gönder göndermek için düğmesine basın. Ekran görüntüsüne bakın:

not: VBA kodu yalnızca Outlook'u e-posta programınız olarak kullandığınızda çalışır.

İlgili yazılar:

• Excel'deki hücrelerde belirtilen e-posta adreslerine nasıl e-posta gönderilir?
• Excel'deki e-posta gövdesine belirli bir aralığı kopyalayıp yapıştırarak e-posta nasıl gönderilir?
• Excel'de vba ile gönderirken Outlook e-postasına imza nasıl eklenir?
• Excel'de son tarih karşılanmışsa e-posta nasıl gönderilir?
• Excel'deki hücre değerine göre otomatik olarak e-posta nasıl gönderilir?

---

En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

• Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
• Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
• Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
• Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
• Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
• Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
• Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
• Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
• 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.

Devamı ... Ücretsiz indirin... Satın alma... 

---

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

• Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
• Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
• Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!

Devamı ... Ücretsiz indirin... Satın alma...