Πώς να στείλετε φύλλο εργασίας μόνο μέσω του Outlook από το Excel;
Εάν θέλετε να στείλετε ένα φύλλο εργασίας μέσω ηλεκτρονικού ταχυδρομείου από ένα βιβλίο εργασίας στο Excel μέσω του Outlook, μπορείτε να στείλετε το φύλλο εργασίας ως συνημμένο, ως περιεχόμενο σώματος ή ως αρχείο PDF. Υπάρχουν όμως πιο γρήγοροι τρόποι για να αντιμετωπίσετε αυτό το πρόβλημα στο Excel;
Αποστολή μεμονωμένου φύλλου εργασίας ως συνημμένου από το Excel με κωδικό VBA
Αποστολή μεμονωμένου φύλλου εργασίας ως αρχείο PDF από το Excel με κωδικό VBA
Αποστολή μεμονωμένου φύλλου εργασίας ως σώμα από το Excel με εντολή Αποστολή σε παραλήπτη αλληλογραφίας
Το Excel μας υποστηρίζει να στείλουμε το ενεργό φύλλο εργασίας μέσω ηλεκτρονικού ταχυδρομείου ως περιεχόμενο σώματος χρησιμοποιώντας την εντολή Αποστολή σε αλληλογραφία παραλήπτη. Μπορείτε να κάνετε τα εξής:
Εάν χρησιμοποιείτε το Excel 2007, 2010 ή 2013, πρέπει να το προσθέσετε Αποστολή στον παραλήπτη αλληλογραφίας εντολή στο Γραμμή εργαλείων γρήγορης πρόσβασης πρώτη.
1. Κάντε κλικ στο εικονίδιο του Προσαρμογή γραμμής εργαλείων γρήγορης πρόσβασης, και επιλέξτε Περισσότερες εντολές, δείτε το στιγμιότυπο οθόνης:
2. Και στο Επιλογές του Excel , επιλέξτε Εντολές Όχι στην Κορδέλα στο Επιλέξτε Εντολές από αναπτυσσόμενη λίστα και, στη συνέχεια, επιλέξτε το Αποστολή στον παραλήπτη αλληλογραφίας επιλογή και πατήστε Προσθήκη >> για να προσθέσετε αυτήν την εντολή, στο τελευταίο κλικ OK για να αποθηκεύσετε αυτήν τη ρύθμιση. Δείτε το στιγμιότυπο οθόνης:
3. Η Αποστολή στον παραλήπτη αλληλογραφίας η εντολή έχει εισαχθεί στο Γραμμή εργαλείων γρήγορης πρόσβασης, δείτε το στιγμιότυπο οθόνης:
4. Στη συνέχεια κάντε κλικ σε αυτό Αποστολή στον παραλήπτη αλληλογραφίας κουμπί εικονιδίου και εμφανίζεται ένα πλαίσιο προτροπής, στο Ε-mail πλαίσιο προτροπής, επιλέξτε Στείλτε το τρέχον φύλλο ως σώμα μηνύματος, και κάντε κλικ στο κουμπί OK. Δείτε το στιγμιότυπο οθόνης:
5. Και ένα πλαίσιο επεξεργασίας email εμφανίζεται πάνω από τα δεδομένα του φύλλου εργασίας, μπορείτε να εισαγάγετε τους παραλήπτες, το θέμα και την εισαγωγή σας στο αντίστοιχο πλαίσιο κειμένου. Δείτε το στιγμιότυπο οθόνης:
6. Στη συνέχεια κάντε κλικ στο κουμπί Στείλτε αυτό το Sheet για να στείλετε αυτό το ενεργό φύλλο εργασίας ως σώμα μηνύματος στο συγκεκριμένο άτομο σας.
Ξεκλειδώστε το Excel Magic με Kutools AI
- Έξυπνη εκτέλεση: Εκτελέστε λειτουργίες κυψέλης, αναλύστε δεδομένα και δημιουργήστε γραφήματα—όλα αυτά καθοδηγούνται από απλές εντολές.
- Προσαρμοσμένες φόρμουλες: Δημιουργήστε προσαρμοσμένους τύπους για να βελτιστοποιήσετε τις ροές εργασίας σας.
- Κωδικοποίηση VBA: Γράψτε και εφαρμόστε τον κώδικα VBA χωρίς κόπο.
- Ερμηνεία τύπου: Κατανοήστε πολύπλοκους τύπους με ευκολία.
- Μετάφραση κειμένου: Σπάστε τα γλωσσικά εμπόδια στα υπολογιστικά φύλλα σας.
Αποστολή μεμονωμένου φύλλου εργασίας ως συνημμένου από το Excel με κωδικό VBA
Εάν θέλετε να στείλετε μήνυμα ηλεκτρονικού ταχυδρομείου στο ενεργό φύλλο εργασίας ως συνημμένο, ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει.
1. Ενεργοποιήστε το φύλλο εργασίας που θέλετε να στείλετε.
2. Κρατήστε πατημένο το ALT + F11 και ανοίγει το Παράθυρο Microsoft Visual Basic for Applications.
3. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.
Κωδικός VBA: αποστολή του τρέχοντος φύλλου εργασίας ως συνημμένο από το Excel
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
Σημείωση: Στον παραπάνω κώδικα, μπορείτε να αλλάξετε τις ακόλουθες πληροφορίες ανάλογα με τις ανάγκες σας.
- .To = "skyyang@extendoffice.com"
- .CC = ""
- .BCC = ""
- .Θέμα = "χαρακτηριστικά kte"
- .Body = "Ελέγξτε και διαβάστε αυτό το έγγραφο."
4. Στη συνέχεια κάντε κλικ στο κουμπί F5 για να εκτελέσετε αυτόν τον κωδικό και θα εμφανιστεί ένα πλαίσιο προτροπής, κάντε κλικ στο Επιτρέψτε όταν ολοκληρωθεί η γραμμή προόδου και, στη συνέχεια, το τρέχον φύλλο εργασίας έχει σταλεί στον παραλήπτη σας ως συνημμένο.
Αποστολή μεμονωμένου φύλλου εργασίας ως αρχείο PDF από το Excel με κωδικό VBA
Μερικές φορές, πρέπει να στείλετε την αναφορά του φύλλου εργασίας σας σε άλλους αλλά δεν θέλετε να την τροποποιήσουν οι άλλοι. Σε αυτήν την περίπτωση, μπορείτε να στείλετε το φύλλο εργασίας ως αρχείο PDF από το Excel.
1. Ενεργοποιήστε το φύλλο εργασίας που θέλετε να στείλετε.
2. Κρατήστε πατημένο το ALT + F11 και ανοίγει το Παράθυρο Microsoft Visual Basic for Applications.
3. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.
Κωδικός VBA: αποστολή του τρέχοντος φύλλου εργασίας ως αρχείο PDF από το Excel
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
Σημείωση: Στον παραπάνω κώδικα, μπορείτε να αλλάξετε τις ακόλουθες πληροφορίες ανάλογα με τις ανάγκες σας.
- .To = "skyyang@extendoffice.com"
- .CC = ""
- .BCC = ""
- .Θέμα = "χαρακτηριστικά kte"
- .Body = "Ελέγξτε και διαβάστε αυτό το έγγραφο."
4. Στη συνέχεια πατήστε F5 και θα εμφανιστεί ένα πλαίσιο προτροπής, κάντε κλικ στο Επιτρέψτε μετά την ολοκλήρωση της γραμμής προόδου, τότε το ενεργό φύλλο εργασίας έχει σταλεί στο συγκεκριμένο άτομο ως αρχείο PDF.
:
1. Αυτές οι μέθοδοι είναι διαθέσιμες μόνο όταν χρησιμοποιείτε το Outlook ως πρόγραμμα αλληλογραφίας.
2. Μετά την αποστολή του τρέχοντος φύλλου εργασίας, μπορείτε να μεταβείτε στο Outlook για να βεβαιωθείτε ότι το μήνυμα ηλεκτρονικού ταχυδρομείου έχει σταλεί με επιτυχία.
Δημιουργία λίστας αλληλογραφίας και μετά αποστολή μηνυμάτων ηλεκτρονικού ταχυδρομείου |
Η Kutools για Excel's Δημιουργία λίστας αλληλογραφίας και Αποστολή Emails Τα βοηθητικά προγράμματα μπορούν γρήγορα να δημιουργήσουν λίστα αλληλογραφίας σε ένα φύλλο εργασίας και, στη συνέχεια, να στείλουν το ίδιο θέμα, το ίδιο περιεχόμενο και τα ίδια συνημμένα σε πολλές διευθύνσεις email. |
Σχετικά άρθρα:
Πώς να στείλετε το τρέχον βιβλίο εργασίας μέσω του Outlook από το Excel;
Πώς να στείλετε / να στείλετε email μέσω κυττάρων μέσω προοπτικών από το Excel;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!