Bir Excel çalışma sayfasını e-postaya ek olarak eklemek yerine e-posta olarak göndermek isterseniz, bu makalede açıklanan iki yöntemi kullanabilirsiniz.
Bazen, bir Excel dosyasını bir e-postaya ek olarak eklemekten farklı olarak, bir Excel çalışma sayfasını doğrudan e-posta gövdesine eklemek, başka bir deyişle e-posta olarak göndermek isteyebilirsiniz. Bu gereksinime cevaben, MS Excel veya MS Outlook'ta göndermek isteyip istemediğinize bağlı olarak aşağıdaki 2 yöntemden birini uygulayabilirsiniz. Şimdi ayrıntılı işlemleri almak için okumaya devam edin.
Yöntem 1: Excel'de Gönder
- En başta, kaynak Excel dosyasını açın.
- Ardından, Hızlı Erişim Araç Çubuğundaki aşağı oku tıklayın.
- Açılır listeden “Daha Fazla Komut” seçmelisiniz.
- Ardından, Hızlı Erişim Araç Çubuğuna “Posta Alıcısına Gönder” seçeneğini eklemelisiniz.
- İlk olarak, “Komutları şuradan seç:” açılır listesinden “Tüm Komutlar” öğesini seçin.
- Ardından, “Posta Alıcısına Gönder” komutunu bulun ve seçin.
- Daha sonra ortadaki “Ekle” düğmesine tıklayın.
- Sağ tarafa ekledikten sonra, değişiklikleri kaydetmek için “Tamam” ı tıklayın.
- Bundan sonra, ana Excel penceresine geri dönün ve Hızlı Erişim Araç Çubuğundaki "Posta Alıcısına Gönder" düğmesini tıklayın.
- Açılan iletişim kutusunda, "Geçerli sayfayı mesaj gövdesi olarak gönder"i seçin.
- Daha sonra, aşağıdaki ekran görüntüsü gibi yeni bir araç çubuğu görüntülenecektir. Artık e-posta ayrıntılarını ihtiyaçlarınıza göre oluşturabilirsiniz.
- Son olarak, bu sayfayı e-posta olarak göndermek için “Bu Sayfayı Gönder” düğmesine tıklayın.
Yöntem 2: Outlook'ta Gönder
- İlk etapta, Outlook programınızı başlatın.
- Ardından Outlook VBA editörünü açmak için “Alt + F11” tuş düğmelerine basın.
- Daha sonra yeni bir modül açın ve aşağıdaki VBA kodlarını içine kopyalayın.
Sub SendanExcelWorksheetAsEmail()
Dim strExcelFile As String
Dim objExcelApp As Excel.Application
Dim objExcelWorkBook As Excel.Workbook
Dim objExcelWorkSheet As Excel.Worksheet
Dim objMail As Outlook.MailItem
strExcelFile = InputBox("Copy the file path to the specific excel file here:", "Specify Excel file", "E:\Contacts.xlsx")
On Error Resume Next
Set objExcelApp = CreateObject("Excel.Application")
Set objExcelWorkBook = objExcelApp.Workbooks.Open(strExcelFile)
Set objExcelWorkSheet = objExcelWorkBook.Sheets("Sheet1")
'Change to your own desired email body
objExcelWorkSheet.MailEnvelope.Introduction = "Message Body"
Set objMail = objExcelWorkSheet.MailEnvelope.Item
With objMail
'Change the recipient and subject as per your needs
.To = "frank@datanumen.com"
.Subject = objExcelWorkSheet.Name
'Use .Send to send it out directly
.Save
End With
objExcelApp.Quit
End Sub
- Bundan sonra, araç çubuğundaki "Çalıştır" simgesini tıklayabilirsiniz.
- Hemen, makro tetiklenecektir.
- Ardından, belirli Excel dosyasına giden dosya yolunu giriş kutusuna kopyalamanız ve "Tamam" düğmesine basmanız istenecektir.
- Son olarak, gövdede Excel çalışma sayfasını içeren yeni bir e-posta "Taslaklar" posta klasörüne kaydedilecektir. Aşağıdaki ekran görüntüsü gibi bulabilirsiniz:
Zahmetli PST Sorunlarıyla Titizlikle Başa Çıkın
Outlook PST dosyasının hataya açık olması nedeniyle, Outlook'unuzda çeşitli sorunlarla karşılaşmış olabilirsiniz. Bu nedenle acı çekmemek için PST hasarı, PST dosyanız için düzenli veri yedeklemeleri yapmak akıllıca olacaktır. Ayrıca, yakınınızda güçlü bir düzeltme aracı bulundurmanız gerekir. DataNumen Outlook Repair.
Yazar Tanıtımı:
Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. sql hasarı ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com