Wie kann ich ein Arbeitsblatt nur über Outlook aus Excel senden?
Wenn Sie ein einzelnes Arbeitsblatt aus einer Arbeitsmappe in Excel über Outlook per E-Mail versenden möchten, können Sie das Arbeitsblatt als Anhang, als Textinhalt oder als PDF-Datei senden. Aber gibt es schnellere Möglichkeiten, um dieses Problem in Excel zu lösen?
Senden Sie ein einzelnes Arbeitsblatt als Text aus Excel mit dem Befehl An E-Mail-Empfänger senden
Senden Sie ein einzelnes Arbeitsblatt als Anhang aus Excel mit VBA-Code
Senden Sie ein einzelnes Arbeitsblatt als PDF-Datei aus Excel mit VBA-Code
Senden Sie ein einzelnes Arbeitsblatt als Text aus Excel mit dem Befehl An E-Mail-Empfänger senden
Excel unterstützt uns dabei, das aktive Arbeitsblatt mithilfe des Befehls An E-Mail-Empfänger senden als E-Mail-Inhalt per E-Mail zu versenden. Sie können wie folgt vorgehen:
Wenn Sie Excel 2007, 2010 oder 2013 verwenden, müssen Sie dies hinzufügen An E-Mail-Empfänger senden Befehl an die Quick Access Toolbar zuerst.
1. Klicken Sie auf das Symbol der Anpassen der Symbolleiste für den Schnellzugriff, und wähle Mehr Befehle, siehe Screenshot:
2. Und in der Excel-Optionen Dialogfeld, wählen Sie Befehle nicht in der Multifunktionsleiste der Wählen Sie Befehle aus Dropdown-Liste, dann wählen Sie die An E-Mail-Empfänger senden Option und klicken Sie auf Hinzufügen >> Klicken Sie auf die Schaltfläche, um diesen Befehl hinzuzufügen, und klicken Sie zuletzt auf OK um diese Einstellung zu speichern. Siehe Screenshot:
3. Das An E-Mail-Empfänger senden Befehl wurde in die eingefügt Quick Access Toolbar, siehe Screenshot:
4. Klicken Sie dann darauf An E-Mail-Empfänger senden Symbolschaltfläche und ein Eingabeaufforderungsfeld werden in der Schaltfläche angezeigt E-Mail Kontrollkästchen aktivieren Senden Sie das aktuelle Blatt als NachrichtentextUnd klicken Sie auf OK. Siehe Screenshot:
5. Über den Arbeitsblattdaten wird ein E-Mail-Bearbeitungsfeld angezeigt. Sie können Ihre Empfänger, Ihren Betreff und Ihre Einführung in das entsprechende Textfeld eingeben. Siehe Screenshot:
6. Dann klick Senden Sie dieses Sheet um dieses aktive Arbeitsblatt als Nachrichtentext an Ihre spezifische Person zu senden.
Senden Sie ein einzelnes Arbeitsblatt als Anhang aus Excel mit VBA-Code
Wenn Sie das aktive Arbeitsblatt als Anhang per E-Mail versenden möchten, kann der folgende VBA-Code einen Gefallen für Sie tun.
1. Aktivieren Sie Ihr Arbeitsblatt, das Sie senden möchten.
2. Halten Sie die Taste gedrückt ALT + F11 Tasten, und es öffnet die Microsoft Visual Basic für Applikationen-Fenster.
3. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modulfenster.
VBA-Code: Aktuelles Arbeitsblatt als Anhang aus Excel senden
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: Im obigen Code können Sie die folgenden Informationen nach Ihren Wünschen ändern.
- .An = ""
- .CC = ""
- .BCC = ""
- .Subject = "kte features"
- .Body = "Bitte überprüfen und lesen Sie dieses Dokument."
4. Dann klick F5 Klicken Sie auf, um diesen Code auszuführen, und ein Eingabeaufforderungsfeld wird angezeigt. Klicken Sie auf Erlauben Wenn der Fortschrittsbalken fertig ist und das aktuelle Arbeitsblatt als Anhang an Ihren Empfänger gesendet wurde.
Senden Sie ein einzelnes Arbeitsblatt als PDF-Datei aus Excel mit VBA-Code
Manchmal müssen Sie Ihren Arbeitsblattbericht an andere senden, möchten aber nicht, dass andere ihn ändern. In diesem Fall können Sie das Arbeitsblatt als PDF-Datei aus Excel senden.
1. Aktivieren Sie Ihr Arbeitsblatt, das Sie senden möchten.
2. Halten Sie die Taste gedrückt ALT + F11 Tasten, und es öffnet die Microsoft Visual Basic für Applikationen-Fenster.
3. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modulfenster.
VBA-Code: Aktuelles Arbeitsblatt als PDF-Datei aus Excel senden
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
Hinweis: Im obigen Code können Sie die folgenden Informationen nach Bedarf ändern.
- .An = ""
- .CC = ""
- .BCC = ""
- .Subject = "kte features"
- .Body = "Bitte überprüfen und lesen Sie dieses Dokument."
4. Dann drücken F5 Klicken Sie auf, und ein Eingabeaufforderungsfeld wird angezeigt. Klicken Sie auf Erlauben Nach Abschluss des Fortschrittsbalkens wurde das aktive Arbeitsblatt als PDF-Datei an die jeweilige Person gesendet.
Anmerkungen:
1. Diese Methoden sind nur verfügbar, wenn Sie Outlook als E-Mail-Programm verwenden.
2. Nach dem Senden des aktuellen Arbeitsblatts können Sie in Outlook sicherstellen, dass die E-Mail erfolgreich gesendet wurde.
Mailingliste erstellen und dann E-Mails senden
|
Das Kutools for Excel's Mailingliste erstellen und Absenden E-Mails Dienstprogramme können schnell eine Mailingliste in einem Arbeitsblatt erstellen und dann denselben Betreff, denselben Inhalt und dieselben Anhänge an mehrere E-Mail-Adressen senden. |
In Verbindung stehende Artikel:
Wie sende ich eine aktuelle Arbeitsmappe über Outlook aus Excel?
Wie kann ich eine Reihe von Zellen über Outlook aus Excel senden / per E-Mail versenden?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!