E-mail as an PDF Attachment (men som VB kode)

Jeg har ikke mulighed for at afprøve noget i Lotus Notes (og ja, det har betydning), men måske du kan bruge koden, som findes her:
http://www.fabalou.com/VBandVBA/lotusnotesmail.asp

Du kan først oprette PDF-filen vha. koden, du har optaget - hvis du vil have PDF-filen gemt i samme mappe som det aktive dokument, kan du f.eks. gøre sådan (StrFileFullName indeholder derefter sti+navn på PDF-filen, som skal vedhæftes til e-mailen):

    Dim StrFileFullName As String
    Dim strFileName As String
   
    'Get name of active document without extension
    strFileName = WordBasic.FilenameInfo$(ActiveDocument.Name, 4)
    'Add .pdf to name
    strFileName = strFileName & ".pdf"
   
    'Append path
    StrFileFullName = ActiveDocument.Path & Application.PathSeparator & strFileName
   
    'Create e-mail with pdf as attachment - PDF saved in same folder as activedocument without being opened
    'Correct parameters as desired
    ActiveDocument.ExportAsFixedFormat _
        OutputFileName:=StrFileFullName, _
        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