Beste VBA-experts,
Ik heb het volgende probleem.
Ik heb in excel 365 een macro gemaakt om een PDF dat is opgeslagen in een bedrijfs.sharepoint-map in een mail te zetten die in excel opent.
Dat gaat allemaal goed, behalve het toegevoegde pdfbestand.
Het bestand wordt wel als attachment toegevoegd , maar als link naar de sharepointmap en niet als 'los bestand' dat door iemand die niet in die bedrijfs-sharepoint toegang heeft, bij kan.
hoe kan ik de macro zo veranderen dat in de mail een pdf-bestand komt dat kan worden opgeslagen door de lezer van de email?
(dus verzenden als niet cloud link/bestand)
Alvast dank voor de ondersteuning
Rob
Code;
Ik heb het volgende probleem.
Ik heb in excel 365 een macro gemaakt om een PDF dat is opgeslagen in een bedrijfs.sharepoint-map in een mail te zetten die in excel opent.
Dat gaat allemaal goed, behalve het toegevoegde pdfbestand.
Het bestand wordt wel als attachment toegevoegd , maar als link naar de sharepointmap en niet als 'los bestand' dat door iemand die niet in die bedrijfs-sharepoint toegang heeft, bij kan.
hoe kan ik de macro zo veranderen dat in de mail een pdf-bestand komt dat kan worden opgeslagen door de lezer van de email?
(dus verzenden als niet cloud link/bestand)
Alvast dank voor de ondersteuning
Rob
Code;
Code:
Sub Send_Range_CONTRACTviamailV1()
bstnm = ActiveSheet.Range("C56").Value & "-V1-" & Range("C62").Value & ".pdf"
Map = "https://bedrijf.sharepoint.com/sites/ZIBPOOpleidingzijinstroominhetberoepleraarPrimairOnderwijs/Gedeelde%20documenten/Scholingscontracten/Te_Archiveren/"
Bestand = Map & bstnm
' Een cellenbereik selecteren in het actieve werkblad.
With ActiveSheet.Range("A1:I31").Select
' De envelop weergeven in de actieve werkmap.
ActiveWorkbook.EnvelopeVisible = True
End With
' Een optionele toelichting toevoegen om
' een koptekst op te nemen in het e-mailbericht. Hiermee worden ook de regels
' Aan en Onderwerp ingesteld. Tot slot wordt het bericht
' verzonden.
With ActiveSheet.MailEnvelope
.Item.To = ActiveSheet.Range("O15").Value
.Item.Subject = "Tripartiete Contract V1 "
.Item.Attachments.Add Bestand
End With
End Sub
Laatst bewerkt door een moderator: