Çalışma sayfasını yalnızca Outlook üzerinden Excel'den nasıl gönderirim?
Outlook aracılığıyla Excel'deki bir çalışma kitabından tek bir çalışma sayfasını e-posta ile göndermek istiyorsanız, çalışma sayfasını bir ek, gövde içeriği veya PDF dosyası olarak gönderebilirsiniz. Ancak Excel'de bu sorunu çözmenin daha hızlı yolları var mı?
Posta Alıcısına Gönder komutuyla tek bir çalışma sayfasını Excel'den gövde olarak gönder
Tek bir çalışma sayfasını VBA kodu ile Excel'den ek olarak gönderin
Tek bir çalışma sayfasını Excel'den VBA kodu ile PDF dosyası olarak gönderin
Posta Alıcısına Gönder komutuyla tek bir çalışma sayfasını Excel'den gövde olarak gönder
Excel, Posta Alıcısına Gönder komutunu kullanarak etkin çalışma sayfasını gövde içeriği olarak e-postayla göndermemizi destekler. Aşağıdaki gibi yapabilirsiniz:
Excel 2007, 2010 veya 2013 kullanıyorsanız, bunu eklemeniz gerekir Posta Alıcısına Gönder için komuta Hızlı Erişim Araç Çubuğu İlk.
1. Simgesini tıklayın. Hızlı erişim araç çubuğunu özelleştir, ve Seç Daha Komutlar, ekran görüntüsüne bakın:
2. Ve içinde Excel Seçenekleri diyalog kutusunu seçiniz Şeritte Olmayan Komutlar içinde Komutları seçin açılır listeyi seçin, ardından Posta Alıcısına Gönder seçeneğini işaretleyin ve tıklayın. Ekle >> bu komutu eklemek için düğme, son tıklamada OK bu ayarı kaydetmek için. Ekran görüntüsüne bakın:
3. The Posta Alıcısına Gönder komut içine eklendi Hızlı Erişim Araç Çubuğu, ekran görüntüsüne bakın:
4. Sonra bunu tıklayın Posta Alıcısına Gönder simge düğmesi ve bir komut kutusu açılır. E-posta komut kutusu, işaretleyin Geçerli sayfayı mesaj gövdesi olarak gönderVe tıklama OK. Ekran görüntüsüne bakın:
5. Çalışma sayfası verilerinin üzerinde bir e-posta düzenleme kutusu görüntülenir, ilgili metin kutusuna alıcılarınızı, konunuzu ve girişinizi girebilirsiniz. Ekran görüntüsüne bakın:
6. Sonra tıklayın Bu Shee'yi göndert Bu aktif çalışma sayfasını belirli kişiye mesaj gövdesi olarak göndermek için.
Tek bir çalışma sayfasını VBA kodu ile Excel'den ek olarak gönderin
Etkin çalışma sayfasını bir ek olarak e-posta ile göndermek isterseniz, aşağıdaki VBA kodu sizin için bir iyilik yapabilir.
1. Göndermek istediğiniz çalışma sayfanızı etkinleştirin.
2. Basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic penceresi.
3. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.
VBA kodu: mevcut çalışma sayfasını Excel'den 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 = ""
.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 ihtiyacınıza göre değiştirebilirsiniz.
- .To = ""
- .CC = ""
- .BCC = ""
- .Subject = "kte özellikleri"
- .Body = "Lütfen bu belgeyi kontrol edin ve okuyun."
4. Sonra tıklayın F5 Bu kodu çalıştırmak için bir anahtar ve bir komut kutusu açılır, tıklayın izin vermek ilerleme çubuğu tamamlandığında ve ardından mevcut çalışma sayfası bir ek olarak alıcınıza gönderilir.
Tek bir çalışma sayfasını Excel'den VBA kodu ile PDF dosyası olarak gönderin
Bazen, çalışma sayfası raporunuzu başkalarına göndermeniz gerekir, ancak başkalarının değiştirmesini istemezsiniz. Bu durumda, çalışma sayfasını Excel'den bir PDF dosyası olarak gönderebilirsiniz.
1. Göndermek istediğiniz çalışma sayfanızı etkinleştirin.
2. Basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic penceresi.
3. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.
VBA kodu: mevcut çalışma sayfasını Excel'den PDF dosyası olarak gönderin
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 = ""
.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 ihtiyacınıza göre değiştirebilirsiniz.
- .To = ""
- .CC = ""
- .BCC = ""
- .Subject = "kte özellikleri"
- .Body = "Lütfen bu belgeyi kontrol edin ve okuyun."
4. Daha sonra tuşuna basın. F5 tuşuna basın ve bir komut kutusu açılacaktır, izin vermek ilerleme çubuğu tamamlandıktan sonra, etkin çalışma sayfası belirli kişiye PDF dosyası olarak gönderilmiştir.
Notlar:
1. Bu yöntemler yalnızca Outlook'u posta programınız olarak kullandığınızda kullanılabilir.
2. Mevcut çalışma sayfasını gönderdikten sonra, e-postanın başarılı bir şekilde gönderildiğinden emin olmak için Outlook'unuza gidebilirsiniz.
Posta Listesi Oluşturun Sonra E-posta Gönderin
|
The Kutools for Excel's Posta Listesi Oluşturun ve Gönder E-postalar yardımcı programlar bir çalışma sayfasında hızla posta listesi oluşturabilir, ardından aynı konuyu, aynı içeriği ve aynı ekleri birden çok e-posta adresine gönderebilir. |
İlgili yazılar:
Geçerli çalışma kitabını Outlook'tan Excel'den nasıl gönderirim?
Excel'den görünüm aracılığıyla hücre aralığı nasıl gönderilir / e-posta ile 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!