Μετάβαση στο κύριο περιεχόμενο

Πώς να στείλετε φύλλο εργασίας μόνο μέσω του Outlook από το Excel;

Εάν θέλετε να στείλετε ένα φύλλο εργασίας μέσω ηλεκτρονικού ταχυδρομείου από ένα βιβλίο εργασίας στο Excel μέσω του Outlook, μπορείτε να στείλετε το φύλλο εργασίας ως συνημμένο, ως περιεχόμενο σώματος ή ως αρχείο PDF. Υπάρχουν όμως πιο γρήγοροι τρόποι για να αντιμετωπίσετε αυτό το πρόβλημα στο Excel;

Αποστολή μεμονωμένου φύλλου εργασίας ως σώμα από το Excel με εντολή Αποστολή σε παραλήπτη αλληλογραφίας

Αποστολή μεμονωμένου φύλλου εργασίας ως συνημμένου από το Excel με κωδικό VBA

Αποστολή μεμονωμένου φύλλου εργασίας ως αρχείο PDF από το Excel με κωδικό VBA


βέλος μπλε δεξιά φούσκα Αποστολή μεμονωμένου φύλλου εργασίας ως σώμα από το Excel με εντολή Αποστολή σε παραλήπτη αλληλογραφίας

Το Excel μας υποστηρίζει να στείλουμε το ενεργό φύλλο εργασίας μέσω ηλεκτρονικού ταχυδρομείου ως περιεχόμενο σώματος χρησιμοποιώντας την εντολή Αποστολή σε αλληλογραφία παραλήπτη. Μπορείτε να κάνετε τα εξής:

Εάν χρησιμοποιείτε το Excel 2007, 2010 ή 2013, πρέπει να το προσθέσετε Αποστολή στον παραλήπτη αλληλογραφίας εντολή στο Γραμμή εργαλείων γρήγορης πρόσβασης πρώτη.

1. Κάντε κλικ στο εικονίδιο του Προσαρμογή γραμμής εργαλείων γρήγορης πρόσβασης, και επιλέξτε Περισσότερες εντολές, δείτε το στιγμιότυπο οθόνης:

doc-email-sheet1

2. Και στο Επιλογές του Excel , επιλέξτε Εντολές Όχι στην Κορδέλα στο Επιλέξτε Εντολές από αναπτυσσόμενη λίστα και, στη συνέχεια, επιλέξτε το Αποστολή στον παραλήπτη αλληλογραφίας επιλογή και πατήστε Προσθήκη >> για να προσθέσετε αυτήν την εντολή, στο τελευταίο κλικ OK για να αποθηκεύσετε αυτήν τη ρύθμιση. Δείτε το στιγμιότυπο οθόνης:

doc-email-sheet2

3. Η Αποστολή στον παραλήπτη αλληλογραφίας η εντολή έχει εισαχθεί στο Γραμμή εργαλείων γρήγορης πρόσβασης, δείτε το στιγμιότυπο οθόνης:

doc-email-sheet3

4. Στη συνέχεια κάντε κλικ σε αυτό Αποστολή στον παραλήπτη αλληλογραφίας κουμπί εικονιδίου και εμφανίζεται ένα πλαίσιο προτροπής, στο Ε-mail πλαίσιο προτροπής, επιλέξτε Στείλτε το τρέχον φύλλο ως σώμα μηνύματος, και κάντε κλικ στο κουμπί OK. Δείτε το στιγμιότυπο οθόνης:

doc-email-sheet4

5. Και ένα πλαίσιο επεξεργασίας email εμφανίζεται πάνω από τα δεδομένα του φύλλου εργασίας, μπορείτε να εισαγάγετε τους παραλήπτες, το θέμα και την εισαγωγή σας στο αντίστοιχο πλαίσιο κειμένου. Δείτε το στιγμιότυπο οθόνης:

doc-email-sheet5

6. Στη συνέχεια κάντε κλικ στο κουμπί Στείλτε αυτό το Sheet για να στείλετε αυτό το ενεργό φύλλο εργασίας ως σώμα μηνύματος στο συγκεκριμένο άτομο σας.


βέλος μπλε δεξιά φούσκα Αποστολή μεμονωμένου φύλλου εργασίας ως συνημμένου από το 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 = ""
    .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

Note: Στον παραπάνω κώδικα, μπορείτε να αλλάξετε τις ακόλουθες πληροφορίες ανάλογα με τις ανάγκες σας.

  • .Προς = ""
  • .CC = ""
  • .BCC = ""
  • .Θέμα = "χαρακτηριστικά kte"
  • .Body = "Ελέγξτε και διαβάστε αυτό το έγγραφο."

4. Στη συνέχεια κάντε κλικ στο κουμπί F5 για να εκτελέσετε αυτόν τον κωδικό και θα εμφανιστεί ένα πλαίσιο προτροπής, κάντε κλικ στο Επιτρέψτε όταν ολοκληρωθεί η γραμμή προόδου και, στη συνέχεια, το τρέχον φύλλο εργασίας έχει σταλεί στον παραλήπτη σας ως συνημμένο.

doc-email-sheet6


βέλος μπλε δεξιά φούσκα Αποστολή μεμονωμένου φύλλου εργασίας ως αρχείο 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 = ""
    .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

Σημείωση: Στον παραπάνω κώδικα, μπορείτε να αλλάξετε τις ακόλουθες πληροφορίες ανάλογα με τις ανάγκες σας.

  • .Προς = ""
  • .CC = ""
  • .BCC = ""
  • .Θέμα = "χαρακτηριστικά kte"
  • .Body = "Ελέγξτε και διαβάστε αυτό το έγγραφο."

4. Στη συνέχεια πατήστε F5 και θα εμφανιστεί ένα πλαίσιο προτροπής, κάντε κλικ στο Επιτρέψτε μετά την ολοκλήρωση της γραμμής προόδου, τότε το ενεργό φύλλο εργασίας έχει σταλεί στο συγκεκριμένο άτομο ως αρχείο PDF.

doc-email-sheet6

:

1. Αυτές οι μέθοδοι είναι διαθέσιμες μόνο όταν χρησιμοποιείτε το Outlook ως πρόγραμμα αλληλογραφίας.

2. Μετά την αποστολή του τρέχοντος φύλλου εργασίας, μπορείτε να μεταβείτε στο Outlook για να βεβαιωθείτε ότι το μήνυμα ηλεκτρονικού ταχυδρομείου έχει σταλεί με επιτυχία.


Δημιουργία λίστας αλληλογραφίας και μετά αποστολή μηνυμάτων ηλεκτρονικού ταχυδρομείου

Η Kutools για Excel's Δημιουργία λίστας αλληλογραφίας και  Αποστολή Emails Τα βοηθητικά προγράμματα μπορούν γρήγορα να δημιουργήσουν λίστα αλληλογραφίας σε ένα φύλλο εργασίας και, στη συνέχεια, να στείλουν το ίδιο θέμα, το ίδιο περιεχόμενο και τα ίδια συνημμένα σε πολλές διευθύνσεις email.
λίστα αλληλογραφίας εγγράφων 1
βέλος εγγράφου προς τα κάτω
λίστα αλληλογραφίας εγγράφων 2

Σχετικά άρθρα:

Πώς να στείλετε το τρέχον βιβλίο εργασίας μέσω του Outlook από το Excel;

Πώς να στείλετε / να στείλετε email μέσω κυττάρων μέσω προοπτικών από το Excel;

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

kte καρτέλα 201905


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (33)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Bonjour,

Est-il possible d'utiliser le code pour joindre deux feuilles du fichier Excel dans le mail ?

Merci d'avance.
This comment was minimized by the moderator on the site
Hello, Typhaine
To send multiple sheets, please apply the below code:
Note: In the code, you should change the sheet names to your own.
Sub Mail_Sheets_Array()
    Dim FileExtStr As String
    Dim FileFormatNum As Long
    Dim Sourcewb As Workbook
    Dim Destwb As Workbook
    Dim TempFilePath As String
    Dim TempFileName As String
    Dim OutApp As Object
    Dim OutMail As Object
    Dim sh As Worksheet
    Dim TheActiveWindow As Window
    Dim TempWindow As Window
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
    Set Sourcewb = ActiveWorkbook
    With Sourcewb
        Set TheActiveWindow = ActiveWindow
        Set TempWindow = .NewWindow
        .Sheets(Array("Sheet1", "Sheet2")).Copy
    End With
    TempWindow.Close
    Set Destwb = ActiveWorkbook
    With Destwb
        If Val(Application.Version) < 12 Then
           
            FileExtStr = ".xls": FileFormatNum = -4143
        Else
            
            Select Case Sourcewb.FileFormat
            Case 51: FileExtStr = ".xlsx": FileFormatNum = 51
            Case 52:
                If .HasVBProject Then
                    FileExtStr = ".xlsm": FileFormatNum = 52
                Else
                    FileExtStr = ".xlsx": FileFormatNum = 51
                End If
            Case 56: FileExtStr = ".xls": FileFormatNum = 56
            Case Else: FileExtStr = ".xlsb": FileFormatNum = 50
            End Select
        End If
    End With
    TempFilePath = Environ$("temp") & "\"
    TempFileName = "Part of " & Sourcewb.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss")

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    With Destwb
        .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
        On Error Resume Next
        With OutMail
            .To = ""
            .CC = ""
            .BCC = ""
            .Subject = "KTE features"
            .Body = "Please check and read this document"
            .Attachments.Add Destwb.FullName
           
            .Display
        End With
        On Error GoTo 0
        .Close savechanges:=False
    End With
   
    Kill TempFilePath & TempFileName & FileExtStr

    Set OutMail = Nothing
    Set OutApp = Nothing

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
End Sub


Please have a try, hope it can help you!
This comment was minimized by the moderator on the site
Hej,

Muszę wysłać zakres (stały) arkusza jako obraz w treści maila jednocześnie dodając cały arkusz jako plik/załącznik. Czy jest to możliwe?
This comment was minimized by the moderator on the site
Hi the program worked just fine till 2021, I tried to run it  today, but it does send the email. As does notshow any errors
This comment was minimized by the moderator on the site
This is to inform you that i have an VBA code for send email from outlook with the help of excel vba,now i want to put "MDD Code" & " MDD Name" as well as Cells(i, 1) & Cells(i, 2) in a table like that.

MDD Code MDD Name
M123 Joydip

I am sending you the VBA Code,Request you for help.
VBA Code
----------------------------------------------------------------------------------------------------------------------------------------------
Sub sendmail()

Dim olapp As Outlook.Application

Dim olmail As Outlook.MailItem

For i = 2 To 35

Application.ScreenUpdating = False

Set olapp = New Outlook.Application

Set olmail = olapp.CreateItem(olMailItem)

With olmail

olmail.To = Cells(i, 4).Value

olmail.CC = Cells(i, 6).Value

olmail.Subject = Cells(i, 7).Value

olmail.HTMLBody = "Dear Partner ," & _

"
Please find the attchment." & _

"

MDD Code : " & Cells(i, 1) & _

"
MDD Name : " & Cells(i, 2) & _

"






Joydip Bhattacharjee" & _

"
Company" & _

"
MIS" & _

"
Country" & _

"
Contact No : 7602066491"







olmail.Attachments.Add Cells(i, 8).Value

'On Error Resume Next

'olmail.Attachments.Add Cells(i, 9).Value

'On Error Resume Next

'olmail.Attachments.Add Cells(i, 10).Value

'On Error Resume Next

'olmail.Attachments.Add Cells(i, 11).Value

'On Error Resume Next

'olmail.Attachments.Add Cells(i, 12).Value

'On Error Resume Next

'olmail.Attachments.Add Cells(i, 13).Value

'On Error Resume Next

'olmail.Attachments.Add Cells(i, 14).Value

'On Error Resume Next

olmail.Send

End With

Set olmail = Nothing

Next

End Sub
This comment was minimized by the moderator on the site
merhaba ben bunu belirli periyotta otomatik mail atmasını nasıl ayarlayabilirim
This comment was minimized by the moderator on the site
Excelent code. Thanks!
This comment was minimized by the moderator on the site
Anyway I can easily send an excel worksheet through my outlook without all this ?? I can send the worksheet context, but no the workbook as an attachment. On my work computer I can send from word and excel, but am having trouble at home.
This comment was minimized by the moderator on the site
Hi! Is it possible to use this code, but instead of sending straight away it opens up the mail?
This comment was minimized by the moderator on the site
You can try this code:
Sub SendWorkSheet()
'Update 20180109
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
.Display
' .Send
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Application.ScreenUpdating = True
End Sub

Please let me know if it works for you, thank you.
This comment was minimized by the moderator on the site
This code works good, however, does anyone know a way to automate a field as an alert for the email to go automatically based on a date column?
This comment was minimized by the moderator on the site
Kindly help me out urgently. This the first time I am using the send current worksheet as PDF but the below code did not work at all and the dialogue to allow did not show up when I presses ctrl+G. I also want to know what to change to reference a cell that contained the email address instead of "to a specific email address. 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
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations