Hoe stuur ik een werkblad alleen via Outlook vanuit Excel?
Als u een enkel werkblad vanuit een werkmap in Excel via Outlook wilt e-mailen, kunt u het werkblad als bijlage, als hoofdtekst of als pdf-bestand verzenden. Maar zijn er snellere manieren om dit probleem in Excel op te lossen?
Stuur een enkel werkblad als hoofdtekst vanuit Excel met de opdracht Verzenden naar e-mailontvanger
Stuur een enkel werkblad als bijlage vanuit Excel met VBA-code
Stuur een enkel werkblad als een PDF-bestand vanuit Excel met VBA-code
Stuur een enkel werkblad als hoofdtekst vanuit Excel met de opdracht Verzenden naar e-mailontvanger
Excel ondersteunt ons om het actieve werkblad als hoofdinhoud te e-mailen met behulp van de opdracht Verzenden naar e-mailontvanger. U kunt het volgende doen:
Als u Excel 2007, 2010 of 2013 gebruikt, moet u dit toevoegen Verzenden naar e-mailontvanger opdracht aan de Snelle toegangswerkbalk eerste.
1. Klik op het pictogram van het Pas de werkbalk Snelle toegang aanen kies Meer opdrachten, zie screenshot:
2. En in de Excel-opties dialoogvenster, kies Commando's niet in het lint functie in het Kies Commando's uit vervolgkeuzelijst en selecteer vervolgens het Verzenden naar e-mailontvanger optie en klik op Toevoegen >> knop om dit commando toe te voegen, klik ten slotte OK om deze instelling op te slaan. Zie screenshot:
3. Het Verzenden naar e-mailontvanger commando is ingevoegd in het Snelle toegangswerkbalk, zie screenshot:
4. Klik dan hierop Verzenden naar e-mailontvanger pictogramknop en er verschijnt een promptvenster in het E-mail promptvenster, vink aan Verzend het huidige blad als de berichtteksten klik OK. Zie screenshot:
5. En een e-mailbewerkingsvak wordt weergegeven boven de werkbladgegevens, u kunt uw ontvangers, onderwerp en inleiding invoeren in het bijbehorende tekstvak. Zie screenshot:
6. Dan klikken Stuur deze Sheet om dit actieve werkblad als berichttekst naar uw specifieke persoon te sturen.
Stuur een enkel werkblad als bijlage vanuit Excel met VBA-code
Als u het actieve werkblad als bijlage wilt e-mailen, kan de volgende VBA-code een plezier voor u doen.
1. Activeer uw werkblad dat u wilt verzenden.
2. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic for Applications-venster.
3. Klikken Invoegen > moduleen plak de volgende code in het Module Venster.
VBA-code: stuur het huidige werkblad als bijlage vanuit 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
Opmerking:: In de bovenstaande code kunt u de volgende informatie naar eigen behoefte wijzigen.
- .To = "skyyang @extendoffice.com "
- .CC = ""
- .BCC = ""
- .Subject = "kte features"
- .Body = "Controleer en lees dit document."
4. Dan klikken F5 toets om deze code uit te voeren, en er verschijnt een promptvenster, klik op Allow wanneer de voortgangsbalk is voltooid, en het huidige werkblad als bijlage naar uw ontvanger is verzonden.
Stuur een enkel werkblad als een PDF-bestand vanuit Excel met VBA-code
Soms moet u uw werkbladrapport naar anderen sturen, maar wilt u niet dat anderen het wijzigen. In dat geval kunt u het werkblad vanuit Excel als pdf-bestand verzenden.
1. Activeer uw werkblad dat u wilt verzenden.
2. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic for Applications-venster.
3. Klikken Invoegen > moduleen plak de volgende code in het Module Venster.
VBA-code: stuur het huidige werkblad als PDF-bestand vanuit 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
Opmerking: in de bovenstaande code kunt u de volgende informatie naar wens wijzigen.
- .To = "skyyang @extendoffice.com "
- .CC = ""
- .BCC = ""
- .Subject = "kte features"
- .Body = "Controleer en lees dit document."
4. Druk vervolgens op F5 toets, en er verschijnt een promptvenster, klik op Allow nadat de voortgangsbalk is voltooid, is het actieve werkblad als pdf-bestand naar de specifieke persoon gestuurd.
Opmerkingen:
1. Deze methoden zijn alleen beschikbaar als u Outlook als uw e-mailprogramma gebruikt.
2. Nadat u het huidige werkblad heeft verzonden, kunt u naar uw Outlook gaan om te controleren of de e-mail met succes is verzonden.
Maak een mailinglijst en verzend vervolgens e-mails
|
| Het Kutools for Excel's Maak een mailinglijst als Verstuur Emails hulpprogramma's kunnen snel een mailinglijst in een werkblad maken en vervolgens hetzelfde onderwerp, dezelfde inhoud en dezelfde bijlagen naar meerdere e-mailadressen sturen. |
|
|
 |
 |
 |
Gerelateerde artikelen:
Hoe verzend ik de huidige werkmap via Outlook vanuit Excel?
Hoe celbereik verzenden / e-mailen via Outlook vanuit Excel?
De beste tools voor kantoorproductiviteit
Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%
- visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
- Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
- Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
- Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
- Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
- Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
- Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
- Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
- Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken!
