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

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

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.


Excel'de oluşturulan posta listesinin alanlarına göre Outlook aracılığıyla kolayca e-posta gönderin:

The Mailleri gönder yarar Kutools for Excel Excel'de oluşturulan posta listesine dayalı olarak kullanıcıların Outlook aracılığıyla e-posta göndermesine yardımcı olur.
Şimdi indirin ve deneyin! (30-günlük ücretsiz iz)



İlgili yazılar:


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.
kte sekmesi 201905

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!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (14)
5 üzerinden 5 olarak derecelendirildi · 1 derecelendirme
Bu yorum sitedeki moderatör tarafından en aza indirildi
Yukarıdaki adımlarınızı kullanarak "Excel'de Kutools for Excel ile eklenmiş birden çok ek içeren e-postayı hızlı bir şekilde gönderebiliyorum", ancak bir adım daha ileri gitmek ve adlarını ekleyerek her e-postayı kişiselleştirmek istiyorum (Excel sayfasındaki bir sütundan) e-postanın gövdesine. E-postanın gövdesindeyken, alanı seçip "Yer Tutucu Ekle"yi tıklamayı deniyorum ama hiçbir şey olmuyor. Bunu neden veya nasıl düzeltebileceğim hakkında bir fikriniz var mı? Teşekkür ederim!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Ya yukarıdaki dosyalar alt klasörlerde bulunuyorsa? Klasör ve alt klasörlerde bir dosya nasıl aranır?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Farklı konu satırı ile birden fazla farklı kullanıcı ve farklı ek gönderilirse ne olur?
Bu yorum sitedeki moderatör tarafından en aza indirildi
yukarıdaki kod mükemmel çalışıyor teşekkürler! ancak e-posta otomatik imzam bu kodla kayboluyor gibi görünüyor. herhangi bir fikir neden?
Bu yorum sitedeki moderatör tarafından en aza indirildi
HI Team ....epostada eki göremiyorum, bu yüzden adımınızı takip edersem... lütfen yardım eder misiniz?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Süper...... Mükemmel çalışıyor.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Excel VBA içinden bir e-postaya birden çok ek eklemek için bu çözüm üzerinde çalışmaktan keyif aldım. Teşekkür ederim. Birçoğumuzun fayda sağladığını ve daha sonra tam olarak yapmaya çalıştığımız şey için özelleştirilmiş bir görünüm istediğini biliyorum. Ben farklı değilim ama 8. adım için. Araştır pencere ile açılacak mı? Farklı bir konumdaki başka bir klasöre göz atabilirim, ancak yolu ayarlayabilirsem bu zaman kazandıracak.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,
Beni en iyi şekilde değerlendiriyor, makro ve meraklı bir şekilde ilgileniyorum.
Çok teşekkür ederim.
Bu yorum sitedeki moderatör tarafından en aza indirildi
En iyi filtreler için uygun mu?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Alex de Graaf,
Kod, doğrudan Microsoft'un dosya seçim penceresini çağırır. Bu, VBA kullanıcılarının gerekli dosyaları seçmesini kolaylaştırır.
Bu yorum sitedeki moderatör tarafından en aza indirildi
merhaba kristal,

Evet bunu anladım. Ancak kullanıcıların yalnızca pdf dosyalarını seçebilmelerini istiyorum.
Mümkün mü?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Alex de Graaf,
Aşağıdaki VBA kodu, Gözat penceresinde yalnızca PDF dosyalarını listeler. Lütfen bir deneyin.

Private Sub CommandButton1_Click()
'Updated by Extendoffice 20220714
    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)
    xFileDlg.Filters.Add "PDF", "*.pdf", 1
xFileDlg.FilterIndex = 1
    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
Bu yorum sitedeki moderatör tarafından en aza indirildi
merhaba kristal,
Evet, bunu anlıyorum. Ancak, kullanıcıların yalnızca pdf dosyalarını seçmesini kısıtlamak mümkün müdür?
Bu yorum sitedeki moderatör tarafından en aza indirildi
أريد إرسال بريد إلكتروني مع البريد أو hotmail مع CDO ولكن كل ما لدي فقط مع مرفق واحد ولكن أريد أن أرسل مع العديد من المرفقات يرجى إرسال لي عن طريق بريدي الإلكتروني الرمز أو ملف Excel naims62@hotmail.com
5 üzerinden 5 olarak derecelendirildi
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

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır