Note: The other languages of the website are Google-translated. Back to English
English English

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


pijl blauw rechts bel 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:

doc-e-mailblad1

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:

doc-e-mailblad2

3. De Verzenden naar e-mailontvanger commando is ingevoegd in het Snelle toegangswerkbalk, zie screenshot:

doc-e-mailblad3

4. Klik dan hierop Verzenden naar e-mailontvanger pictogramknop en er verschijnt een promptvenster in het E-mail ons promptvenster, vink aan Verzend het huidige blad als de berichtteksten klik OK. Zie screenshot:

doc-e-mailblad4

5. En een e-mailbewerkingsvak wordt weergegeven boven de werkbladgegevens, u kunt uw ontvangers, onderwerp en inleiding invoeren in het bijbehorende tekstvak. Zie screenshot:

doc-e-mailblad5

6. Dan klikken Stuur deze Sheet om dit actieve werkblad als berichttekst naar uw specifieke persoon te sturen.


pijl blauw rechts bel 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.

doc-e-mailblad6


pijl blauw rechts bel 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.

doc-e-mailblad6

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

De Kutools for Excel's Maak een mailinglijst en Verstuur de ticket 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.
doc mailinglijst 1
doc pijl naar beneden
doc mailinglijst 2

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.
kte tabblad 201905

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!
officetab onderkant
Comments (31)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Hoe voeg je in het tweede voorbeeld meerdere ontvangers toe met VBA-code?
Deze opmerking is gemaakt door de moderator op de site
dit werkt, maar hoe kunnen we automatisch in de cc de afzender toevoegen?
Deze opmerking is gemaakt door de moderator op de site
Wanneer ik de VBA-code gebruik om als pdf te verzenden, verzendt de e-mail prima, maar er is geen bijlage. Wat doe ik verkeerd? Bedankt, Chanda
Deze opmerking is gemaakt door de moderator op de site
Heb je hier een anwoord voor gekregen? Ik heb ook dezelfde moeilijkheid.
Deze opmerking is gemaakt door de moderator op de site
Hallo, ik wil alleen geselecteerde cellen via een opdrachtknop in Excel naar bonnen sturen via Outlook.
Deze opmerking is gemaakt door de moderator op de site
Ik heb verzenden naar e-mailontvanger bijgevoegd, maar wordt niet geactiveerd wanneer ik klik om Excel te verzenden. Wat doe ik verkeerd?
Deze opmerking is gemaakt door de moderator op de site
Ik probeer meerdere naambereiken binnen bepaalde werkmappen als PDF's via Outlook te verzenden. Het automatiseren van het openen en sluiten van talrijke werkmappen. Ik weet niet zeker hoe ik de onderstaande code moet wijzigen, wat prima werkt om een ​​werkblad met alle nieuwe versies op laptop te verzenden. Ik stuurde elke avond meerdere rapporten vanaf mijn desktop Windows 7 Excel en Outlook 10 Adobe Acrobat Pro 10 en probeerde opnieuw te configureren om hetzelfde te doen op een laptop met geüpgradede versies van Windows 8.1 Office 15 en Adobe Acrobat Xl. Uw aanbevolen codes voor het verzenden van werkbladen Sub SendWorkSheetToPDF() 'Update 20131209 Dim Wb As Workbook Dim FileName As String Dim OutlookApp As Object Dim OutlookMail As Object Bij fout Hervatten Volgende Set Wb = Application.ActiveWorkbook FileName = Wb.FullName xIndex = VBA.InStrRev( Bestandsnaam, ".") Als xIndex > 1 Dan Bestandsnaam = VBA.Left(Bestandsnaam, xIndex - 1) Bestandsnaam = Bestandsnaam & "_" + ActiveSheet.Name & ".pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= Bestandsnaam Set OutlookApp = CreateObject("Outlook.Application") Set OutlookMail = OutlookApp.CreateItem(0) With OutlookMail .To = "jbristow1@gmail.com" .CC = "" .BCC = "" .Subject = "Outlook Code" .Body = "Controleer en lees dit document." .Attachments.Add FileName .Send End With Kill Bestandsnaam Set OutlookMail = Niets Set OutlookApp = Niets End Sub
Deze opmerking is gemaakt door de moderator op de site
Jim, je moet toevoegen; achter het e-mailadres en voeg een ander toe, zie voorbeeld hieronder: .To = "jbristow1@gmail.com; iemand@gmail.com; onemoreperson@gmail.com"
Deze opmerking is gemaakt door de moderator op de site
Hallo, ik gebruik deze code, maar ik heb een probleem bij het verzenden. Het is geen groot probleem, maar ik vind het niet leuk :-) Ik sla het bestand eerst automatisch op een bepaalde locatie op via VBA voordat ik het bestand per post verstuur. Het bestand heeft al een naam die eindigt op .xlsx. Bij het e-mailen van het bestand leest de bijlage .xlsx.xlsx, zodat het .xslx aan het bestand toevoegt. Weet iemand of ik het opslaan kan negeren voordat ik het als bijlage verzend? Ik heb het al opgeslagen voordat ik het verzend... Bedankt,
Deze opmerking is gemaakt door de moderator op de site
Ik gebruik het tweede voorbeeld hierboven om een ​​enkel blad uit de werkmap te verzenden, maar het verzendt de hele werkmap. Ik heb het bovenstaande voorbeeld gekopieerd en het enige dat ik heb gewijzigd, was het e-mailadres. Ik weet niet zeker wat er mis is.
Deze opmerking is gemaakt door de moderator op de site
Ik gebruik de bovenstaande code om een ​​enkel blad als Excel-bijlage te verzenden, het probleem dat ik heb, is dat het de hele werkmap verzendt, niet alleen een enkel werkblad. Ik heb alleen de "Aan", "Onderwerp" en "Hoofdtekst" voor de e-mail gewijzigd. Ik weet niet zeker wat er mis is gegaan. Help alsjeblieft! :verdrietig:
Deze opmerking is gemaakt door de moderator op de site
[quote]Ik gebruik de bovenstaande code om een ​​enkel blad als Excel-bijlage te verzenden, het probleem dat ik heb, is dat het de hele werkmap verzendt, niet alleen een enkel werkblad. Ik heb alleen de "Aan", "Onderwerp" en "Hoofdtekst" voor de e-mail gewijzigd. Ik weet niet zeker wat er mis is gegaan. Help alsjeblieft! :verdrietig:Door Janet[/quote] Hallo, vertel me alsjeblieft de versie-informatie van je Office en computersysteem.
Deze opmerking is gemaakt door de moderator op de site
Hallo, ik gebruik Office 2010 en Windows 7. Bedankt!
Deze opmerking is gemaakt door de moderator op de site
[quote]Hallo, ik gebruik Office 2010 en Windows 7. Bedankt!Door Janet[/quote] Hallo, deze VBA is in orde met Office 2010 in Windows 7. Zorg ervoor dat u uw Outlook hebt geopend voordat u deze VBA uitvoert.
Deze opmerking is gemaakt door de moderator op de site
Ik probeer deze code te gebruiken om een ​​enkele spreadsheet te verzenden met behulp van een persoonlijk gemaakt sjabloon *.ost-bestand dat zich op de c:\-schijf bevindt. Ik kan er niet achter komen hoe ik de bovenstaande code daarvoor moet aanpassen. Enige aanwijzingen?
Deze opmerking is gemaakt door de moderator op de site
Stuur een enkel werkblad als bijlage vanuit Excel met VBA-code: Uitstekende VBA-code. Werkt goed !!! Dank u!!! :-) In plaats van de Aan: & CC: e-mails handmatig in te voeren, wil ik de e-mailadressen uit een apart werkblad met de naam "E-maillijst" halen. De (a1) heeft het "Aan" e-mailadres en (b1) heeft het "CC" e-mailadres. Ik weet dat dit relatief eenvoudig op te lossen is, maar ik kan er niet achter komen wat ik verkeerd doe. Iedereen alvast bedankt. Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat Met OutlookMail .To = "skyyang@extendoffice.com" .CC = "" .BCC = "" .Subject = "kte features" .Body = "Controleer en lees dit document." .Attachments.Add Wb2.FullName .Send End With Wb2.Close Kill FilePath & FileName & xFile Set OutlookMail = Niets Set OutlookApp = Niets Application.ScreenUpdating = True End Sub
Deze opmerking is gemaakt door de moderator op de site
Hallo, ik gebruik een automatiseringsproces in mijn bedrijf. Ik moet al mijn pc upgraden met Excel en Outlook 2010. Ik heb een code in Windows XP waarmee ik een blad verzend met Outlook Express. De code werkt prima in XP, maar nu ik moet het upgraden met Windows 7. Ik heb veel geprobeerd, maar ik kan het blad niet verzenden, dus help alsjeblieft
Deze opmerking is gemaakt door de moderator op de site
Hallo De macro werkt voor mij prima. Ik heb nog nooit macro's gebruikt, dus kan iemand me alsjeblieft in de goede richting sturen - ik probeer dit naar meer dan één persoon te sturen, maar ik weet niet zeker hoe extra e-mailadressen in het "aan"-gedeelte van de macro kunnen worden geplaatst. Bij voorbaat dank
Deze opmerking is gemaakt door de moderator op de site
Hallo, ik ben Frans, sorry voor mijn Engels. Hoe is het mogelijk om de cel van de waarde van mijn blad in .too/ .CC ... ik denk dat het zo is: 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 Volgende 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 = xlOpenXML Case8 xlOpenXML Case8 : xFile = ".xlsb" xFormat = xlExcel12 End Selecteer FilePath = Environ$("temp") & "\" FileName = Wb.Name & Format (Now, "dd-mmm-yy h-mm-ss") OutlookApp instellen = CreateObject("Outlook.Application") OutlookMail instellen = OutlookApp.Cre ateItem(12) Wb0.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat With OutlookMail .To = "skyyang@extendoffice.com" & RANGE("AVIVA!b12") .CC = "" & RANGE("AVIVA!c12") .BCC = "" .Subject = "NOUVEAU DOSSIER" .body = "Controleer en lees dit document." .Attachments.Add Wb2.FullName .DISPLAY .Send End With Wb2.Close Kill FilePath & FileName & xFile Set OutlookMail = Niets Set OutlookApp = Niets Application.ScreenUpdating = True End Sub bedankt voor je hulp
Deze opmerking is gemaakt door de moderator op de site
Kunnen we de gebruiker toestaan ​​om de e-mail-ID toe te voegen met de bovengenoemde code... Het werkt echt goed als we de Naar e-mail-ID vermelden...
Deze opmerking is gemaakt door de moderator op de site
Mijnheer, ik kan het geselecteerde werkblad als bijlage verzenden door onderwerp en tekst op te nemen. Maar de bestandsnaam wordt weergegeven als boek1-02-apr-2016.... In plaats daarvan wil ik de bestandsnaam in de code zelf geven (dezelfde naam om door te gaan elke keer dat ik verzend) Vriendelijk help me
Deze opmerking is gemaakt door de moderator op de site
Help me alstublieft dringend. Dit is de eerste keer dat ik het huidige werkblad als PDF gebruik, maar de onderstaande code werkte helemaal niet en het dialoogvenster om toe te staan ​​verscheen niet toen ik op ctrl+G drukte. Ik wil ook weten wat ik moet wijzigen om te verwijzen naar een cel die het e-mailadres bevat in plaats van "naar een specifiek e-mailadres. Sub SendWorkSheetToPDF() 'Update 20131209 Dim Wb As Workbook Dim FileName As String Dim OutlookApp As Object Dim OutlookMail As Object On Fout Hervatten Volgende 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 = "Controleer en lees dit document." .Attachments.Add FileName .Send End With Kill FileName Set OutlookMail = Niets Set OutlookApp = Niets Einde Sub
Deze opmerking is gemaakt door de moderator op de site
Deze code werkt goed, maar weet iemand een manier om een ​​veld te automatiseren als waarschuwing voor de e-mail om automatisch te gaan op basis van een datumkolom?
Deze opmerking is gemaakt door de moderator op de site
Hoi! Is het mogelijk om deze code te gebruiken, maar in plaats van meteen te verzenden opent de mail?
Deze opmerking is gemaakt door de moderator op de site
Je kunt deze code proberen:
Sub SendWorkSheet()
'Update 20180109'
Dim xFile als string
Dim xFormaat zo lang
Dim Wb als werkboek
Dim Wb2 als werkboek
Dim FilePath als string
Dim FileName As String
Dim Outlook-app als object
Dim OutlookMail als object
On Error Resume Next
Application.ScreenUpdating = False
Stel Wb = Application.ActiveWorkbook in
ActiveSheet.Kopiëren
Stel Wb2 = Application.ActiveWorkbook in
Selecteer Case Wb.Bestandsindeling
Case xlOpenXMLWerkboek:
xFile = ".xlsx"
xFormat = xlOpenXMLWerkmap
Case xlOpenXMLWorkbookMacroIngeschakeld:
Als Wb2.HasVBProject Dan
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
Anders
xFile = ".xlsx"
xFormat = xlOpenXMLWerkmap
End If
Geval Excel8:
xFile = ".xls"
xFormaat = Excel8
Geval xlExcel12:
xFile = ".xlsb"
xFormaat = xlExcel12
End Select
FilePath = Environ$("temp") & "\"
Bestandsnaam = Wb.Naam & formaat (Nu, "dd-mmm-jj h-mm-ss")
Stel OutlookApp = CreateObject ("Outlook.Application") in
Stel OutlookMail = OutlookApp.CreateItem(0) in
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
Met OutlookMail
.To = "skyyang @extendoffice.com "
.CC = ""
.BCC = ""
.Subject = "kte features"
.Body = "Controleer en lees dit document."
.Bijlagen.Wb2.FullName toevoegen
.Scherm
' .Versturen
Eindigt met
Wb2.Sluiten
Kill FilePath & FileName & xFile
Stel OutlookMail = niets in
Stel OutlookApp = Niets in
Application.ScreenUpdating = True
End Sub

Laat het me weten als het voor je werkt, bedankt.
Deze opmerking is gemaakt door de moderator op de site
Hoe dan ook, ik kan eenvoudig een Excel-werkblad door mijn Outlook sturen zonder dit alles ?? Ik kan de werkbladcontext verzenden, maar niet de werkmap als bijlage. Op mijn werkcomputer kan ik vanuit word en excel verzenden, maar heb thuis problemen.
Er zijn nog geen reacties geplaatst
Laad meer
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties