Excel'den görünüm aracılığıyla hücre aralığı nasıl gönderilir / e-posta ile gönderilir?
Bir çalışma sayfasındaki bir raporu bitirdikten sonra, bu çalışma sayfasındaki belirli alıcınıza bazı önemli verileri içeren bir dizi hücreye göndermeniz gereken bir sorunla hiç karşılaştınız mı? Outlook'u açmadan bu aralığı Excel'den e-postayla göndermenin hızlı bir yolu var mı?
VBA kodu ile Excel'den ek olarak hücre aralığı gönder
VBA kodu ile Excel'den gövde olarak hücre aralığı gönderin
VBA kodu ile Excel'den ek olarak hücre aralığı gönder
Aşağıdaki VBA kodu, seçtiğiniz aralığı Excel'de ek olarak göndermenize yardımcı olabilir. Lütfen şunu yapın:
1. Çalışma kitabınızı açın ve ardından ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic penceresi.
2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.
VBA kodu: Excel'den ek olarak hücre aralığı gönder
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 = ""
.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 Subnot: Yukarıdaki kodda, aşağıdaki bilgileri kendi ihtiyacınıza göre değiştirebilirsiniz.
- .To = ""
- .CC = ""
- .BCC = ""
- .Subject = "kte bilgisi"
- .Body = "merhaba, lütfen bu belgeyi kontrol edin ve okuyun."
3. Sonra tıklayın F5 Bu kodu çalıştırmak için bir tuşa basın ve göndermek istediğiniz aralığı seçmenizi hatırlatan bir komut kutusu açılır. Ekran görüntüsüne bakın:
4. Sonra tıklayın OKve bir komut kutusu görünecektir, ilerleme çubuğu tamamlandıktan sonra izin vermekve sonra belirli hücre aralığı ek olarak alıcınıza gönderilmiştir.
VBA kodu ile Excel'den gövde olarak hücre aralığı gönderin
Excel'den mesaj gövdesinin bir parçası olarak belirli bir aralık göndermek istiyorsanız, çözmek için aşağıdaki VBA kodunu da uygulayabilirsiniz.
| Kutools for Excel, ile daha fazla 120 kullanışlı fonksiyonlar, işlerinizi kolaylaştırır. | ||
1. Çalışma sayfanızı etkinleştirin ve ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic penceresi.
2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.
VBA kodu: Excel'den gövde olarak hücre aralığı gönder
Sub EmailRange()
'Update 20131209
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 = ""
.Item.Subject = "information of kte"
.Item.Send
End With
Application.ScreenUpdating = True
End Sub
Not: Yukarıdaki kodda aşağıdaki bilgileri ihtiyacınıza göre değiştirebilirsiniz.
- .Introduction = "Lütfen bu e-postayı okuyun."
- .Item.To = ""
- .Item.Subject = "kte bilgisi"
3. Sonra tıklayın F5 Bu kodu çalıştırmak için tuşuna basın ve göndermek istediğiniz bir aralığı seçmenizi hatırlatan bir komut kutusu açılır.
4. Sonra tıklayın OKve bir komut kutusu görünecektir, ilerleme çubuğu tamamlandıktan sonra izin vermekve ardından belirli hücre aralığı, alıcınıza ileti gövdesi olarak gönderilir.
Notlar:
1. Bu kodlar yalnızca posta programınız olarak Outlook'ta kullanılabilir.
2. Mevcut çalışma sayfasını gönderdikten sonra, e-postanın başarıyla gönderilip gönderilmediğinden emin olmak için Outlook'unuza gidebilirsiniz.
İlgili yazılar:
Çalışma sayfasını yalnızca Outlook üzerinden Excel'den nasıl gönderirim?
Geçerli çalışma kitabını Outlook'tan Excel'den nasıl gönderirim?
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!
