19. september 2012 - 15:11
Der er
3 kommentarer og
1 løsning
Sende mail fra Word med pdf-fil
Hej
Jeg har et dokument jeg ønsker at sende via en mail i Outlook der der skal genereres via macro i Word.
Jeg har indspillet følgende makro via menuen "Send som PDF"
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"C:\Users\michael\AppData\Local\Temp\13\Mit dokument.pdf", _
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
Har sat referancen i Tools til Microsoft Outlook 14.0 Objekt Library.
Intet sker når macroen afspilles. Hvor går det galt ?
Pft. mange tak
PS. Peter ring gerne når du har tid :-)
20. september 2012 - 20:06
#4
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
