Hej,
Jeg har brugt denne kode adskillige gange, prøv at kigge lidt på den.
Du skal kopiere koden ind i et tomt modul og rette ting som adresse, emne, filnavn osv.
De ting som umiddelbart skal ændres, er fremhævet med rødt herunder.
Kør først 'Print_to_PDF' og derefter 'SendMail'
Const BrevFil = "Brev.pdf"
'*** Copyright 2011 - Allan Thustrup Mortensen - Excel-regneark.dk ***
Sub Print_To_PDF()
'Finder brugerens skrivebord
Dim objFolders As Object
Set objFolders = CreateObject("WScript.Shell").SpecialFolders
SaveDir = objFolders("desktop")
'Brev og data konverteres til PDF (Excel 2007 og nyere)
Brev.ExportAsFixedFormat Type:=xlTypePDF, Filename:=SaveDir & Application.PathSeparator & DataFil, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
Sub Sendmail()
'Finder brugerens skrivebord
Dim objFolders As Object
Set objFolders = CreateObject("WScript.Shell").SpecialFolders
SaveDir = objFolders("desktop")
Dim olApp As Outlook.Application
Dim oItem As Outlook.MailItem
Set olApp = New Outlook.Application
Set oItem = olApp.CreateItem(olMailItem)
With oItem
'Sendes til
.To = "HER SKRIVER DU EMAILADRESSEN"
.CC = ""
.BCC = ""
'Mail emne
.Subject = "HER SKRIVER DU EMNET"
'Mail tekst
.Body = "HER SKRIVER DU INDHOLDET I MAILEN"
'Vedhæftet PDF filer
.Attachments.Add SaveDir & Application.PathSeparator & BrevFil
'Mulighed for at kræve svar når modtager åbner mailen
.ReadReceiptRequested = False
.Send
End With
'Sletter PDF-fil
Kill SaveDir & Application.PathSeparator & BrevFil
End Sub
Virker det hos dig?
//Allan
Forum start
Forummets regler
Sådan uploader du filer
Marker Accepteret løsning
Del dine regneark
Excel-regneark.dk
Email en vedhæftet fil med VBA
Emne funktioner
