Excel’de bir çalışma kitabı kaydedildiğinde Outlook üzerinden e-posta nasıl gönderilir?
Bu kılavuz, Excel’de belirli bir çalışma kitabı her kaydedildiğinde Outlook üzerinden otomatik olarak e-posta göndermenin yöntemini adım adım açıklar. Basit bir VBA koduyla, çalışma kitabınızdaki güncellemeleri sorunsuzca paylaşabilirsiniz.
Çalışma kitabı kaydedildiğinde VBA kodu ile Outlook üzerinden e-posta gönderme
Çalışma kitabı kaydedildiğinde VBA kodu ile Outlook üzerinden e-posta gönderme
Excel’de çalışma kitabınız kaydedildiğinde Outlook üzerinden e-posta göndermek için lütfen aşağıdaki adımları izleyin.
1. Öncelikle çalışma kitabını Excel Makro Etkin Çalışma Kitabı olarak kaydedin. Dosya > Farklı Kaydet seçeneğine 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 Excel Makro Etkin Çalışma Kitabı seçeneğini seçin ve ardından Kaydet düğmesine tıklayın. Ekran görüntüsüne bakın:
2. Az önce kaydettiğiniz Excel Makro Etkin Çalışma Kitabını açın ve Alt + F11 tuşlarına aynı anda basarak Microsoft Visual Basic for Applications penceresini açın.
2. Microsoft Visual Basic for Applications penceresinde, sol çubukta yer alan ThisWorkbook öğesine çift tıklayın ve 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önderme
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 SubNot: E-posta Adresi satırındaki alıcı e-posta adresini, .To = "E-posta Adresi" satırıyla değiştirin. Gerekirse VBA kodundaki Cc, Konu ve Gövde alanlarını düzenleyin.
3. Alt+Q tuşlarına aynı anda basarak Microsoft Visual Basic for Applications penceresini kapatın.
Artık çalışma kitabını her güncellediğinizde ve kaydettiğinizde, güncellenmiş çalışma kitabı içeren bir e-posta otomatik olarak oluşturulacak. E-postayı göndermek için lütfen Gönder düğmesine tıklayın. Ekran görüntüsüne bakın:
Not: Bu VBA kodu, e-posta programınız olarak yalnızca Outlook kullandığınızda çalışır.
İlgili makaleler:
- Excel'de hücredeki değere göre e-posta nasıl otomatik olarak 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 Bitiş Tarihi koşulu sağlandığında e-posta nasıl gönderilir?
- Excel'de çalışma kitabı güncellendiğinde e-posta hatırlatması veya bildirim nasıl gönderilir?
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar