Çalışma kitabı Excel'e kaydedildiğinde Outlook üzerinden nasıl e-posta gönderilir?
Bu makale, belirli bir çalışma kitabı Excel'e kaydedildiğinde Outlook aracılığıyla bir e-posta göndermekten bahsediyor. Lütfen öğreticide gösterildiği gibi yapın.
Çalışma kitabı VBA kodu ile kaydedildiğinde Outlook üzerinden bir e-posta gönderin
Çalışma kitabı VBA kodu ile kaydedildiğinde Outlook üzerinden bir e-posta gönderin
Çalışma kitabı Excel'e kaydedildiğinde Outlook üzerinden bir e-posta göndermek için lütfen aşağıdaki işlemleri gerçekleştirin.
1. Lütfen ilk önce çalışma kitabını Excel Makro Etkin Çalışma Kitabı olarak kaydedin. Tıklayın fileto > Farklı Kaydet. In Farklı Kaydet iletişim kutusunda, çalışma kitabını kaydetmek için bir klasör seçin, Dosya adı kutusunda adlandırın, seçin Excel Makro Etkin Çalışma Kitabı itibaren Kayıt türü açılır listeyi ve ardından İndirim buton. Ekran görüntüsüne bakın:
2. Az önce kaydettiğiniz Excel Makro Etkin Çalışma Kitabını açın, Ara Toplam + F11 anahtarları aynı anda açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. içinde Uygulamalar için Microsoft Visual Basic pencere, lütfen çift tıklayın Bu Çalışma Kitabı sol çubukta, ardından aşağıdaki VBA kodunu kopyalayıp Bu Çalışma Kitabı kod penceresi. 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: Lütfen değiştirin Eposta Adresi alıcı e-posta adresi ile aynı hizada .To = "E-posta Adresi", ve VBA kodundaki Cc, Subject ve gövde alanlarını istediğiniz gibi değiştirin.
3. Tuşuna basın. Ara Toplam + Q kapatmak için aynı anda tuşları Uygulamalar için Microsoft Visual Basic pencere.
Şu andan itibaren, çalışma kitabını güncelleyip kaydettiğinizde, güncellenmiş çalışma kitabının ekli olduğu bir e-posta otomatik olarak oluşturulacaktır. Lütfen tıklayın Gönder E-postayı 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.
İlgili yazılar:
- Excel'deki hücre değerine göre otomatik olarak e-posta nasıl gönderilir?
- Excel'de belirli bir hücre değiştirilirse e-posta nasıl gönderilir?
- Excel'de düğme tıklanırsa e-posta nasıl gönderilir?
- Excel'de son tarih karşılanmışsa e-posta nasıl gönderilir?
- Çalışma kitabı Excel'de güncellenirse e-posta hatırlatıcı veya bildirim nasıl gönderilir?
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
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!