Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Sub tsh()
Dim TempFile As String
TempFile = Environ("TEMP") & "\Test.xlsx"
Sheets(1).Copy
ActiveWorkbook.SaveAs TempFile, 51
With CreateObject("Outlook.Application").CreateItem(0)
.To = "Collega@Bedrijf.com"
.Subject = "I make you an offer you can't refuse"
.Body = "Hallo."
.Attachments.Add TempFile
.Display
End With
ActiveWorkbook.Close 0
Kill TempFile
End Sub
Ik denk niet dat het aan de macro ligt.Ik heb het proberen te verzenden naar mijn eigen mail, maar hij komt niet aan.
Ik begrijp niet wat je bedoeltIs het ook mogelijk dat Outlook geopend wordt waarin dezelfde gegevens staan?
Ik heb de code enigszins herschreven zodat het actieve werkblad als tijdelijk bestand wordt opgeslagen en wordt aangehecht:En is dit enkel voor 1 tabblad of voor het hele document?
Sub tsh()
Dim TempFile As String
TempFile = Environ("TEMP") & "\Test.xlsx"
ActiveSheet.Copy
ActiveWorkbook.SaveAs TempFile, 51
With CreateObject("Outlook.Application").CreateItem(0)
.To = "Collega@Bedrijf.com"
.Subject = "I make you an offer you can't refuse"
.Body = "Best Regards, the Don."
.Attachments.Add TempFile
.Display
End With
ActiveWorkbook.Close 0
Kill TempFile
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.