Excel'de birden fazla ek içeren e-posta nasıl gönderilir?

Bu makale, Excel'de birden fazla ek içeren bir e-postanın Outlook üzerinden nasıl gönderileceğini anlatmaktadır.

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

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

Lütfen Excel'de birden fazla ek içeren bir e-posta göndermek için aşağıdaki adımları izleyin.

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

2. Komut Düğmesini ekledikten sonra, lütfen sağ tıklayın ve açılır menüden Kodu Görüntüle'yi seçin.

3. Açılan Microsoft Visual Basic for Applications penceresinde, lütfen Araçlar > Referanslar'a tıklayın. Aşağıdaki ekran görüntüsünde gösterildiği gibi.

4. Referanslar – VBAProject iletişim kutusunda, lütfen Microsoft Outlook Object Library seçeneğini bulun ve işaretleyin, ardından Tamam düğmesine tıklayın.

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

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

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 kodda .To = happy.xuebi@163.com, .Subject = "test" ve .HTMLBody = "test" satırlarını değiştirerek e-posta alıcınızı, konuyu ve gövdeyi belirtin.

6. Microsoft Visual Basic for Applications penceresini kapatmak için Alt + Q tuşlarına birlikte basın.

7. Geliştirici > Tasarım Modu'na tıklayarak Tasarım Modunu kapatın. Ekran görüntüsüne bakın:

8. Komut Düğmesine tıklayarak kodu çalıştırın. Açılan Gözat penceresinde, e-postaya eklemek istediğiniz dosyaları seçin ve ardından Tamam düğmesine tıklayın. Ekran görüntüsüne bakın:

9. Ardından, belirtilen alanlar ve ekler listelenmiş bir e-posta oluşturulur. Lütfen Gönder düğmesine tıklayarak gönderin. 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 makaleler:

• Excel'deki hücrelerde belirtilen e-posta adreslerine nasıl e-posta gönderilir?
• Excel'de belirli bir aralığı kopyalayıp e-posta gövdesine yapıştırarak e-posta göndermek nasıl yapılır?
• Excel'de VBA ile gönderildiğinde Outlook e-postasına imza nasıl eklenir?
• Excel'de son teslim tarihi gelmişse e-posta nasıl gönderilir?
• Excel'de hücre değerine göre otomatik olarak e-posta göndermek nasıl yapılır?