Sende mail fra Word med pdf-fil

Hej Michael

Send venligst tlf.nr pr. mail - ringer så torsdag..

PS: prøver også at se på dit problem

Der indspilles kun kode til konvertering af dokumentet til pdf - intet andet. Der skal lidt mere til.

Vender tilbage herom..

Mail er sendt.

Vi snakkes ved. Mvh. Michael

Const vedHftFilStiNavn = "C:\Dokument.pdf"
Rem Reference sættes til Microsoft Outlook xx Object Library under Tools / References
Public Sub konverterOgMail()
    konverterTilPdf
   
    klargørTilSend
End Sub
Public Sub klargørTilSend()
    ErOutLookÅben
   
    sendMailen "modtager@mail.dk", "Test-emne", "Meddelelsen er som sagt en test"
End Sub
Sub ErOutLookÅben()
    On Error GoTo OutlookIsNotRunning
    AppActivate ("Outlook")
    Exit Sub
   
OutlookIsNotRunning:
    Call Open_OutLook
End Sub
Sub Open_OutLook()
    Dim oOutlook As Object
    Dim oNameSpace As Object
    Dim oInbox As Object
   
    Set oOutlook = CreateObject("Outlook.Application")
    Set oNameSpace = oOutlook.GetNamespace("MAPI")
   
    Set oInbox = oNameSpace.GetDefaultFolder(olFolderInbox)
   
    oInbox.Display
End Sub
Private Sub sendMailen(modtager, emne, tekst)
Dim mailApp, Namespace, nyMail

    Set mailApp = CreateObject("Outlook.Application")

    Set nyMail = mailApp.CreateItem(olMailItem)
    Set nymod = nyMail.Recipients
    nymod.Add modtager
   
    nyMail.Attachments.Add vedHftFilStiNavn
   
    With nyMail
        .Subject = emne
        .body = tekst
   
        .Display
'        .Send
    End With
End Sub
Private Sub konverterTilPdf()
    ActiveDocument.ExportAsFixedFormat OutputFileName:=vedHftFilStiNavn _
        , 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
End Sub