"Dé grootste en gratis computerhelpdesk van Nederland"
-
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.
Actief excellblad verzenden
- Onderwerp starter Wlk
- Startdatum
- Status
In welke babbelbox ben ik nu weer beland:shocked: De wijzen komen uit het oosten (van Nederland) zal ik maar zeggen
Speciaal voor de TS, die wel meekijkt, maar lekker achterover leunt. (en om eens van die meterslange code af te komen)
De tekst is natuurlijk naar eigen wensen aan te passen.
Speciaal voor de TS, die wel meekijkt, maar lekker achterover leunt. (en om eens van die meterslange code af te komen)
Code:
Sub VenA()
If InStr([E16], "@") = 0 Then Exit Sub
c00 = ThisWorkbook.Path & "\" & Format(Now, "yyyyddmmhhmmss") & ".xlsx"
ActiveSheet.Copy
With ActiveWorkbook
.Sheets(1).Shapes(1).Delete
.SaveAs c00, 51
.Close 0
End With
With CreateObject("Outlook.Application").CreateItem(0)
.to = [E16]
.Subject = "Geen idee of er iets van dit overzicht klopt"
.body = "Hoi," & vbLf & vbLf & "Namens Jeanine Hennis-Plasschaert heb ik het genoegen, zonder er zelf iets voor gedaan te hebben, u dit zeer complexe urenoverzicht te sturen." _
& vbLf & vbLf & "Met dank aan de specialisten van Helpmij.nl is het gelukt om dit semi-automatisch te doen." _
& vbLf & vbLf & "Voor vragen of andere zaken moet u uiteraard niet bij zijn."
.display
.Attachments.Add c00
End With
Kill c00
End SubDe tekst is natuurlijk naar eigen wensen aan te passen.
- Status
