bookmarks word in email outlook zetten

[bjornesto]

Ik heb een document waarbij bookmarks gebruikt zijn.

Ik zou nu graag willen dat de bookmarks van het word document in outlook automatisch dit invult

voorbeeld subject: zou de naam van de file moeten weergeven die in attachment staat

Is dit mogelijk.

hieronder de code die de file eerst in pdf zet en vervolgens een email van maakt

Public Sub SendForm()
 '
     Dim vDoc As Object
     Dim vPath As String
     vPath = ActiveDocument.Path & Application.PathSeparator & "test.pdf"
     ActiveDocument.ExportAsFixedFormat OutputFileName:=vPath, _
         ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
         wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
         Item:=wdExportDocumentWithMarkup, IncludeDocProps:=False, KeepIRM:=True, _
         CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
         BitmapMissingFonts:=True, UseISO19005_1:=False
     Call Mail_Workbook_1(vPath)
     Kill vPath
 End Sub
 Sub Mail_Workbook_1(vPath As String)
 ' Works in Excel 2000, Excel 2002, Excel 2003, Excel 2007, Excel 2010, Outlook 2000, Outlook 2002, Outlook 2003, Outlook 2007, Outlook 2010.
 ' This example sends the last saved version of the Activeworkbook object .
     Dim OutApp As Object
     Dim OutMail As Object

     Set OutApp = CreateObject("Outlook.Application")
     Set OutMail = OutApp.CreateItem(0)

        strbody = "test"

     On Error Resume Next
    ' Change the mail address and subject in the macro before you run it.
     With OutMail
         .To = "user@email.com"
         .CC = ""
         .BCC = ""
         .Subject = "Inci " & Format(Date)
         .HTMLBody = strbody
         .Attachments.Add vPath
         ' You can add other files by uncommenting the following line.
         '.Attachments.Add ("C:\test.txt")
         ' In place of the following statement, you can use ".Display" to
         ' display the mail.
         .Display
     End With
     On Error GoTo 0

     Set OutMail = Nothing
     Set OutApp = Nothing
 End Sub

 

[OctaFish]

Word document? Deze code is voor een Excel sheet. Ik snap je vraag ook niet; wil je mailen vanuit een Word document? Wat moeten die bladwijzers dan?

 

[bjornesto]

Deze code staat in Word en werkt perfect.
Bestand moeten ze openen en invullen

Vervolgens bovenaan kun je op een knop klikken en word gaat deze file dan in pdf zetten en een email maken. (blauwe balk

Nu zouden er uit dat bestand dat net gemaakt is, zoals responsible in outlook cc moeten komen

Bekijk bijlage Incidentenformulier blanco forum.docm

 

[OctaFish]

Dit document is nauwelijks geschikt om op die manier gebruikt te worden; er is geen enkele beveiliging op inhoud. Je hebt dus geen idee waar je de informatie vandaan moet halen als 'programmacode'. Zou je er een echt formulier van maken, met tekstvelden en keuzelijsten bijvoorbeeld, en dat beveiligen, dan kun je de gewenste gegevens uit de Bookmarks halen die aan de tekstvakken en keuzelijsten zijn toegewezen. Dan kun je die info prima verwerken in je mail.