pommeke
Gebruiker
- Lid geworden
- 17 jul 2007
- Berichten
- 237
Hallo,
Ik heb een formulier in Word gemaakt met een verzendknop.
Met behulp van AI ervoor gezorgd dat als men op deze knop klikt:
- Het doc wordt opgeslagen als pdf
- Verzonden per mail
Werkt perfect!
Alleen staat die knop mee op het pdf document en dat wil ik niet.
AI geeft verschillende opties, maar deze werken niet.
bv: Klik met de rechtermuisknop op de knop en selecteer "Eigenschappen".
Zoek naar de eigenschap "PrintObject" en stel deze in op "False".
Of wat aanpassingen in de code, maar geven fouten
Weet iemand een oplossing?
Dit is de code van de knop
Ik heb een formulier in Word gemaakt met een verzendknop.
Met behulp van AI ervoor gezorgd dat als men op deze knop klikt:
- Het doc wordt opgeslagen als pdf
- Verzonden per mail
Werkt perfect!
Alleen staat die knop mee op het pdf document en dat wil ik niet.
AI geeft verschillende opties, maar deze werken niet.
bv: Klik met de rechtermuisknop op de knop en selecteer "Eigenschappen".
Zoek naar de eigenschap "PrintObject" en stel deze in op "False".
Of wat aanpassingen in de code, maar geven fouten
Weet iemand een oplossing?
Dit is de code van de knop
Code:
Sub OpslaanEnMailen()
'
' OpslaanEnMailen Macro
'
'
Dim pdfPath As String
Dim olApp As Object
Dim olMail As Object
Dim todayDate As String
' Huidige datum ophalen en formatteren
todayDate = Format(Date, "yyyy-mm-dd")
' Pad om het PDF-bestand op te slaan met vaste tekst en datum
pdfPath = Environ("UserProfile") & "\Documents\tekst_" & todayDate & ".pdf"
' Document opslaan als PDF
ActiveDocument.ExportAsFixedFormat OutputFileName:=pdfPath, ExportFormat:=wdExportFormatPDF
' Outlook applicatie openen
Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.CreateItem(0)
' E-mail opstellen
With olMail
.To = "naam@mail.be"
.Subject = "mail"
.Body = "Hierbij het ingevulde formulier."
.Attachments.Add pdfPath
.Send
End With
' Opruimen
Set olMail = Nothing
Set olApp = Nothing
End Sub