Excel'de çalışma kitabı kaydedildiğinde Outlook üzerinden e-posta nasıl gönderilir?

Bu kılavuz, belirli bir çalışma kitabı Excel'de kaydedildiğinde Outlook üzerinden otomatik olarak e-posta göndermeyi göstermektedir. Basit bir VBA kodu kullanarak, çalışma kitabınızdaki güncellemelerin sorunsuz bir şekilde paylaşılmasını sağlayabilirsiniz.

VBA kodu ile çalışma kitabı kaydedildiğinde Outlook üzerinden e-posta gönderme

VBA kodu ile çalışma kitabı kaydedildiğinde Outlook üzerinden e-posta gönderme

Excel'de çalışma kitabı kaydedildiğinde Outlook üzerinden e-posta göndermek için lütfen aşağıdaki adımları izleyin.

1. İlk olarak, çalışma kitabını Makro Etkin Excel Çalışma Kitabı olarak kaydedin. Dosya > Farklı Kaydet'e tıklayın. Farklı Kaydet iletişim kutusunda, çalışma kitabını kaydetmek için bir klasör seçin, Dosya adı kutusuna bir isim girin, Kaydetme Biçimini Belirt açılır listesinden Makro Etkin Excel Çalışma Kitabı'nı seçin ve ardından Kaydet düğmesine tıklayın. Ekran görüntüsüne bakın:

2. Az önce kaydettiğiniz Makro Etkin Excel Çalışma Kitabı'nı açın, Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına aynı anda basın.

2. Microsoft Visual Basic for Applications penceresinde, lütfen sol çubuktaki ThisWorkbook öğesine çift tıklayın, ardından aşağıdaki VBA kodunu ThisWorkbook kod penceresine kopyalayıp yapıştırın. Ekran görüntüsüne bakın:

VBA kodu: Çalışma kitabı kaydedildiğinde e-posta gönder

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'Updated by Extendoffice 20181102
    Dim xOutApp As Object
    Dim xMailItem As Object
    Dim xName As String
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailItem = xOutApp.CreateItem(0)
    xName = ActiveWorkbook.FullName
    With xMailItem
        .To = "Email Address"
        .CC = ""
        .Subject = "The workbook has been saved"
        .Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
        .Attachments.Add xName
        .Display
       '.send
    End With
    Set xMailItem = Nothing
    Set xOutApp = Nothing
End Sub

Not: .To = "E-posta Adresi" satırındaki E-posta Adresi'ni alıcının e-posta adresiyle değiştirin. VBA kodundaki Cc, Konu ve Gövde alanlarını gerektiği gibi değiştirin.

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

Şimdi itibaren, çalışma kitabını her güncellediğinizde ve kaydettiğinizde, güncellenmiş çalışma kitabı ekli olarak otomatik olarak bir e-posta oluşturulacaktır. Lütfen e-postayı göndermek için Gönder düğmesine tıklayın. Ekran görüntüsüne bakın:

Not: Bu VBA kodu yalnızca e-posta programınız olarak Outlook kullanıyorsanız çalışır.

İlgili makaleler:

• Excel'de hücre değerine göre otomatik olarak e-posta nasıl gönderilir?
• Excel'de belirli bir hücre değiştirildiğinde e-posta nasıl gönderilir?
• Excel'de bir düğmeye tıklandığında e-posta nasıl gönderilir?
• Excel'de son teslim tarihi gelmişse e-posta nasıl gönderilir?
• Excel'de çalışma kitabı güncellendiğinde e-posta hatırlatması veya bildirimi nasıl gönderilir?