Excel'den yalnızca çalışma sayfasını Outlook aracılığıyla nasıl gönderebilirim?

Excel'deki bir çalışma kitabından tek bir çalışma sayfasını e-posta ile göndermek istiyorsanız, çalışma sayfasını ek olarak, içerik olarak veya PDF dosyası olarak gönderebilirsiniz. Ancak Excel'de bu sorunu çözmek için daha hızlı yollar var mı?

Excel'den E-posta Alıcısına Gönder komutu ile tek çalışma sayfasını içerik olarak gönderin

VBA kodu ile Excel'den tek çalışma sayfasını ek olarak gönderin

VBA kodu ile Excel'den tek çalışma sayfasını PDF dosyası olarak gönderin

Excel'den E-posta Alıcısına Gönder komutu ile tek çalışma sayfasını içerik olarak gönderin

Excel, E-posta Alıcısına Gönder komutunu kullanarak etkin çalışma sayfasını e-posta içeriği olarak göndermemize olanak tanır. Aşağıdaki adımları izleyebilirsiniz:

Excel 2007, 2010 veya 2013 kullanıyorsanız, önce bu E-posta Alıcısına Gönder komutunu Hızlı Erişim Araç Çubuğu'na eklemeniz gerekir.

1. Hızlı Erişim Araç Çubuğu'nun simgesine tıklayın ve daha fazla komut seçeneğini seçin, ekran görüntüsüne bakın:

2. Ve Excel Seçenekleri iletişim kutusunda, Komutları Şeritte Olmayanlar'dan seçin açılır listeden, ardından E-posta Alıcısına Gönder seçeneğini seçin ve bu komutu eklemek için Ekle >> düğmesine tıklayın, en sonunda bu ayarı kaydetmek için Tamam'a tıklayın. Ekran görüntüsüne bakın:

3. E-posta Alıcısına Gönder komutu Hızlı Erişim Araç Çubuğu'na eklendi, ekran görüntüsüne bakın:

4. Ardından bu E-posta Alıcısına Gönder simge düğmesine tıklayın ve bir uyarı kutusu açılacak, E-posta uyarı kutusunda Geçerli sayfayı ileti içeriği olarak gönder seçeneğini işaretleyin ve Tamam'a tıklayın. Ekran görüntüsüne bakın:

5. Ve bir e-posta düzenleme kutusu çalışma sayfası verilerinin üzerinde görüntülenecek, alıcılarınızı, konuyu ve girişinizi ilgili metin kutusuna girebilirsiniz. Ekran görüntüsüne bakın:

6. Ardından Bu Sayfayı Gönder'e tıklayarak bu etkin çalışma sayfasını belirli kişiye ileti içeriği olarak gönderin.

Kutools AI ile Excel Sihirini Keşfedin

• Akıllı Yürütme: Hücre işlemleri gerçekleştirin, verileri analiz edin ve grafikler oluşturun—tümü basit komutlarla sürülür.
• Özel Formüller: İş akışlarınızı hızlandırmak için özel formüller oluşturun.
• VBA Kodlama: VBA kodunu kolayca yazın ve uygulayın.
• Formül Yorumlama: Karmaşık formülleri kolayca anlayın.
• Metin Çevirisi: Elektronik tablolarınız içindeki dil engellerini aşın.

Yapay zeka destekli araçlarla Excel yeteneklerinizi geliştirin. Şimdi İndirin ve daha önce hiç olmadığı gibi bir verimlilik deneyimi yaşayın!

VBA kodu ile Excel'den tek çalışma sayfasını ek olarak gönderin

Etkin çalışma sayfasını ek olarak e-postalamak istiyorsanız, aşağıdaki VBA kodu size yardımcı olabilir.

1. Göndermek istediğiniz çalışma sayfanızı etkinleştirin.

2. ALT + F11 tuşlarına basılı tutun ve Microsoft Visual Basic for Applications penceresi açılacaktır.

3. Ekle > Modül'e tıklayın ve aşağıdaki kodu Modül Penceresi'ne yapıştırın.

VBA kodu: Excel'den mevcut çalışma sayfasını ek olarak gönder

Sub SendWorkSheet()
'Update 20131209
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Application.ScreenUpdating = False
Set Wb = Application.ActiveWorkbook
ActiveSheet.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 = "kte features"
    .Body = "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
Application.ScreenUpdating = True
End Sub

Not: Yukarıdaki kodda, aşağıdaki bilgileri kendi ihtiyaçlarınıza göre değiştirebilirsiniz.

• .To = "skyyang@extendoffice.com"
• .CC = ""
• .BCC = ""
• .Subject = "kte özellikleri"
• .Body = "Lütfen bu belgeyi kontrol edin ve okuyun."

4. Ardından bu kodu çalıştırmak için F5 tuşuna basın ve bir uyarı kutusu açılacak, ilerleme çubuğu tamamlandığında İzin Ver'e tıklayın, ardından mevcut çalışma sayfası alıcıya ek olarak gönderilmiştir.

VBA kodu ile Excel'den tek çalışma sayfasını PDF dosyası olarak gönderin

Bazen, çalışma sayfası raporunuzu başkalarına göndermeniz gerekebilir ancak başkalarının onu değiştirmesini istemeyebilirsiniz. Bu durumda, çalışma sayfasını Excel'den PDF dosyası olarak gönderebilirsiniz.

1. Göndermek istediğiniz çalışma sayfanızı etkinleştirin.

2. ALT + F11 tuşlarına basılı tutun ve Microsoft Visual Basic for Applications penceresi açılacaktır.

3. Ekle > Modül'e tıklayın ve aşağıdaki kodu Modül Penceresi'ne yapıştırın.

VBA kodu: Excel'den mevcut çalışma sayfasını PDF dosyası olarak gönder

Sub SendWorkSheetToPDF()
'Update 20131209
Dim Wb As Workbook
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
    .To = "skyyang@extendoffice.com"
    .CC = ""
    .BCC = ""
    .Subject = "kte features"
    .Body = "Please check and read this document."
    .Attachments.Add FileName
    .Send
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

Not: Yukarıdaki kodda, aşağıdaki bilgileri kendi ihtiyaçlarınıza göre değiştirebilirsiniz.

• .To = "skyyang@extendoffice.com"
• .CC = ""
• .BCC = ""
• .Subject = "kte özellikleri"
• .Body = "Lütfen bu belgeyi kontrol edin ve okuyun."

4. Ardından F5 tuşuna basın ve bir uyarı kutusu açılacak, ilerleme çubuğu bittikten sonra İzin Ver'e tıklayın, ardından etkin çalışma sayfası belirli kişiye PDF dosyası olarak gönderilmiştir.

Notlar:

1. Bu yöntemler yalnızca Outlook'u e-posta programınız olarak kullandığınızda kullanılabilir.

2. Mevcut çalışma sayfasını gönderdikten sonra, e-postanın başarıyla gönderildiğinden emin olmak için Outlook'unuza gidebilirsiniz.

Posta Listesi Oluştur ve E-postalar Gönder

Kutools for Excel'in Posta Listesi Oluştur ve E-postalar Gönder araçları, bir çalışma sayfasında hızlı bir şekilde posta listesi oluşturabilir ve aynı konu, aynı içerik ve aynı ekleri birden fazla e-posta adresine gönderebilir.

İndirme Sayfasına Git

İlgili makaleler:

Excel'den mevcut çalışma kitabını Outlook aracılığıyla nasıl gönderebilirim?

Excel'den Outlook aracılığıyla hücre aralığını nasıl gönderebilirim / e-posta ile paylaşabilirim?