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?
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.





- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin