Excel’den Outlook aracılığıyla bir hücre aralığı nasıl gönderilir?
Excel ile günlük çalışırken, genellikle bir raporu tamamlar ve ardından yalnızca verilerin bir kısmını belirli bir alıcıyla paylaşmanız gerekir. Örneğin, tüm çalışma kitabını değil de belirli bir hücre aralığından önemli bilgileri göndermek isteyebilirsiniz; bu hem gizliliği korur hem de alıcının yalnızca ilgili içeriğe odaklanmasını sağlar. Doğal olarak, çoğu kullanıcı Outlook’a manuel olarak geçmeyi veya içerik kopyalayıp yapıştırmayı gerektirmeyen çözümleri tercih eder. Peki Excel’den önceden tanımlanmış bir hücre aralığını doğrudan e-posta yoluyla göndermenin pratik ve verimli bir yolu var mıdır?
Bu eğitim, iş akışınızı kolaylaştırmak ve manuel çabayı en aza indirmek amacıyla Outlook üzerinden seçili hücreleri göndermenin birden fazla yöntemini ele alır; hem VBA çözümlerini hem de Excel’in yerleşik özelliklerini kapsar. Aralığı ek olarak e-postaya ekleme, hücreleri ileti gövdesine gömme, göndermeden önce hücre aralıklarını görüntü veya PDF olarak kaydetme ile eski Excel posta özelliklerinden yararlanma gibi çeşitli yaklaşımları keşfedeceksiniz. Kılavuz ayrıca temel kurulum adımlarını, senaryo analizini, sorun giderme ipuçlarını ve en iyi sonuçlar için pratik önerileri de içerir.
VBA koduyla Excel’den hücre aralığını ek olarak gönderme
VBA koduyla Excel’den hücre aralığını gövde olarak gönderme
VBA koduyla Excel’den hücre aralığını ek olarak gönderme
Tüm çalışma kitabına erişim sağlamadan yalnızca belirli bir veri kümesini paylaşmak istiyorsanız, önceden belirlenmiş bir hücre aralığını .xlsx veya .xls uzantılı bir dosya eki olarak Outlook üzerinden gönderebilirsiniz. Bu yöntem, alıcının sadece raporun ilgili bölümünü incelemesi gerekiyorsa ya da gizlilik kritik önem taşıyorsa özellikle faydalıdır. Aşağıdaki adımlar, bu süreci otomatikleştirmek üzere VBA kodunun nasıl kurulacağını ve kullanılacağını göstermektedir:
1. Hedef Excel çalışma kitabınızı açın. ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini başlatın; burada VBA kodunu ekleyebilir ve düzenleyebilirsiniz.
2.Ekle > Modül seçeneğine tıklayarak kodunuz için yeni bir modül oluşturun. Aşağıdaki betiği modül penceresine yapıştırın.
VBA kodu: Excel’den hücre aralığını ek olarak gönderme
Sub SendRange()
'Update 20131209
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim Ws As Worksheet
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
Dim WorkRng As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Wb = Application.ActiveWorkbook
Wb.Worksheets.Add
Set Ws = Application.ActiveSheet
WorkRng.Copy Ws.Cells(1, 1)
Ws.Copy
Set Wb2 = Application.ActiveWorkbook
Select Case Wb.FileFormat
Case xlOpenXMLWorkbook:
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
If Wb2.HasVBProject Then
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
Else
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
End If
Case Excel8:
xFile = ".xls"
xFormat = Excel8
Case xlExcel12:
xFile = ".xlsb"
xFormat = xlExcel12
End Select
FilePath = Environ$("temp") & "\"
FileName = Wb.Name & Format(Now, "dd-mmm-yy h-mm-ss")
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
With OutlookMail
.To = "skyyang@extendoffice.com"
.CC = ""
.BCC = ""
.Subject = "information of kte"
.Body = "hello, please check and read this document. "
.Attachments.Add Wb2.FullName
.Send
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Ws.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Subİpuçları ve özelleştirmeler:
- .ToTo
- .CCve .BCCihtiyaç duyulduğunda karbon kopya (CC) veya gizli karbon kopya (BCC) olarak ayarlanabilir.
- .Subjectve .Bodye-posta mesajınızı kişiselleştirmenize olanak tanır.
3. Kodu çalıştırmak için F5 tuşuna basın. Bir seçim istemi belirir. E-posta ile göndermek istediğiniz aralığı belirtin (göndermeden önce verileri onaylamanız önerilir). Örnek ekran görüntüsüne bakın:
4. Tamam düğmesine bastıktan sonra ilerleme istemi veya izin bildirimiyle karşılaşabilirsiniz. İşlem tamamlandığında, İzin Ver seçeneğine tıklayın. Belirlenen hücre aralığı, seçtiğiniz alıcıya bir Excel dosyası eki olarak gönderilecektir.
Önlemler ve sorun giderme:
- Outlook varsayılan e-posta programınız olarak yüklenmemişse veya çalışmıyorsa, kod düzgün şekilde çalışmayabilir.
- Makro güvenlik ayarlarınızın VBA betiklerinin çalışmasına izin verdiğinden emin olun. Gerekirse makroları etkinleştirmeniz veya Güven Merkezi ayarlarınızı güncellemeniz gerekebilir.
- Ek türü, kaynak dosya türüne ve VBA kodunda belirtilen satıra bağlıdır.
- Gönderdikten sonra teslimatı onaylamak için Outlook’taki Gönderilen Öğeler klasörünüzü kontrol edin.
Bu yaklaşım, güvenli veri paylaşımı, kayıt arşivleme ve orijinal Excel biçimlendirmesinin korunması gerektiği durumlar için idealdir; ancak alıcıların ek dosyaları açabilmek için uygun yazılıma sahip olmaları gerekir.
VBA koduyla Excel’den hücre aralığını gövde olarak gönderme
Alıcıların ek indirmeden bilgileri anında görüntülemesini istediğiniz senaryolarda—örneğin periyodik rapor özetleri veya ilerleme güncellemeleri gibi—seçili hücre aralığını doğrudan e-posta gövdesine gömebilirsiniz. Bu, yalnızca erişilebilirliği artırmanın ötesine geçerek, bilgilerin alıcılar tarafından daha kolay okunmasını ve daha hızlı işlenmesini sağlar.
1. Verilerinizi içeren çalışma sayfasına geçin. ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresine erişin.
2.Ekle>Modülseçeneğine tıklayarak bir modül penceresi açın, ardından aşağıdaki kodu yapıştırın:
VBA kodu: Excel’den hücre aralığını gövde olarak gönderme
Sub EmailRange()
'Update by Extendoffice
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
WorkRng.Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Please read this email."
.Item.To = "skyyang@extendoffice.com"
.Item.Subject = "information of kte"
.Item.Send
End With
Application.ScreenUpdating = True
End SubParametre notları ve pratik ayarlamalar:
- .Introductionaralığın kendisinden önce bir mesaj eklemenizi sağlar.
- .Item.Toistenen E-posta Adresi ile güncellenmelidir.
- .Item.Subjectraporunuzun veya e-postanızın odak noktasına uyacak şekilde düzenlenebilir.
3. Makroyu çalıştırmak için F5 tuşuna basın. İstendiğinde, göndermek istediğiniz hücre aralığını seçin.
4. Seçiminizi onaylayın ve Tamam düğmesine tıklayın. Güvenlik istemlerini takip edin. İşlem tamamlandığında, makroyu yetkilendirmek için İzin Ver seçeneğine tıklayın. Aralık seçildikten sonra, Outlook e-posta gövdenizde tablo olarak görünecektir.
Temel hatırlatmalar:
- Bu çözümün çalışabilmesi için Outlook’un kurulu olması ve varsayılan e-posta programınız olarak atanmış olması gerekir.
- VBA’nın sorunsuz çalışması için Excel’de makroları etkinleştirin. Hata oluşursa, Güven Merkezi’ndeki makro ayarlarınızı kontrol edin.
- Biçimlendirme korunur; ancak karmaşık hücre biçimleri, Excel’deki gibi değil, e-postada farklı şekilde görünebilir.
- İletinin gönderildiğinden emin olmak için Outlook’ta Giden Kutusu veya Gönderilen Öğeler klasörünü kontrol edin.
Bu yaklaşım, ekip durum güncellemeleri, hızlı veri paylaşımı veya hemen okunabilirliği tercih eden meslektaşlara ve müşterilere temel rakamların dağıtılması gibi senaryolarda mükemmel sonuçlar verir.
Diğer Yerleşik Excel Yöntemleri – Seçili hücreleri gövde olarak göndermek için "Posta Alıcısına Gönder" yerleşik özelliğini kullanma
Office 365 öncesi bazı eski Excel sürümlerinde, VBA gerektirmeden seçili hücreleri e-posta gövdesi olarak hızlıca göndermenizi sağlayan yerleşik bir “Posta Alıcısına Gönder” düğmesi bulunuyordu. Bu özellik modern Excel’de varsayılan olarak gizli olsa da, Hızlı Erişim Araç Çubuğu’nu özelleştirerek hâlâ kullanıma açılabiliyor. Bu çözüm, eski Excel sürümleri kullananlar veya makro kullanmak istemeyen kullanıcılar için idealdir.
Etkinleştirme ve kullanma yöntemi:
- Hızlı Erişim Araç Çubuğuna (Şeridinizin üzerindeki) sağ tıklayın ve Hızlı Erişim Araç Çubuğunu Özelleştir seçeneğini belirleyin.
- Komut listesindeki “Şu komutlardan seç:” bölümünü şununla değiştirin: Tüm Komutlar.
- Aşağı kaydırın ve Posta Alıcısına Gönder seçeneğini Hızlı Erişim Araç Çubuğuna ekleyin.
- Kurulumdan sonra göndermek istediğiniz hücreleri seçin ve Posta Alıcısına Gönder simgesine tıklayın—Excel, seçimi gövde olarak içeren gömülü bir e-posta penceresi oluşturur. Adresleri ve konuyu ekleyip doğrudan gönderin.
Önemli notlar:
- Bu yöntemin çalışması için Outlook’un varsayılan posta istemcisi olarak ayarlanmış olması gerekir.
- Gömülü e-posta penceresiyle çalışmak, normal Outlook yazımından farklı hissedilebilir—biçimlendirmeyi mutlaka tekrar kontrol edin.
- Bu özellik, bazı Excel sürümlerinde—özellikle yeni Office 365 sürümlerinde—devre dışı bırakılmış veya tamamen eksik olabilir. Böyle durumlarda VBA ya da PDF/görüntü dışa aktarma çözümlerini değerlendirmeyi düşünün.
Avantajlar ve dezavantajlar:
- Desteklenen sürümlerde son derece hızlı ve basittir; ne kod yazmanız ne de gelişmiş bir kurulum yapmanız gerekir.
- Tüm sürümlerde bulunmaz; yeni Excel kullanıcıları alternatif yöntemlere başvurmak zorunda kalabilir.
İlgili makaleler:
Excel’den yalnızca bir çalışma sayfası, Outlook aracılığıyla nasıl gönderilir?
Geçerli Excel çalışma kitabınızı Outlook aracılığıyla nasıl gönderirsiniz?
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