VBA til excel: dan pdf fil og vedhæft i email

Nå, jeg tror jeg endte med selv at finde en måde at klarer det på - dog uden at det nødvendigvis er hverken kønt eller 100% korrekt, men det virker til det jeg skal bruge det til.

Jeg har primært fået inspiration her fra: http://msdn.microsoft.com/en-us/library/office/ee834871(v=office.11).aspx

Hvis andre har brug for lignende er koden her:


Sub CreatePDF_attach_to_EMAIL()

    Dim Wkb As String
    Dim TempFilePath As String
    Dim TempFileName As String
    Dim OutApp As Object
    Dim OutMail As Object

Wkb = ThisWorkbook.Name
TempFilePath = Environ$("temp") & "\"


TempFileName = TempFilePath & Wkb & ".pdf"

Worksheets("Dev Report").ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        TempFileName, Quality:= _
        xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
 

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

With OutMail
    .Display
    End With
        Signature = OutMail.body 'gets the email's standard signature

On Error Resume Next

With OutMail
.To = "email address" 'can instead be linked to a cell in the excel sheet
.CC = ""
.BCC = ""
.Subject = "Cost status report - " & ActiveWorkbook.Worksheets("Dev Report").Range("D5") & " - " & ActiveWorkbook.Worksheets("Dev Report").Range("D4") & " - " & ActiveWorkbook.Worksheets("Dev Report").Range("R4")
.body = "Hi" & Chr(10) & Chr(10) & "Please find attached cost status report for " & ActiveWorkbook.Worksheets("Dev Report TEST").Range("D4") & " at end of " & ActiveWorkbook.Worksheets("Dev Report TEST").Range("R4") & Chr(10) & Signature
.Attachments.Add TempFileName
.Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

If Dir(TempFileName) <> "" Then Kill TempFileName 'deletes the created PDF file in the temps-folder
   
End Sub

Tak for din løsning. Den hjalp mig rigtig meget og har gjort min dag til en super dag :-) Tak for det

Hvor er det smart, lige hvad jeg har brug for :-)

Jeg kan ikke få "Body" til at virke, jeg har skrevet
Dim strbody As String

Har fundet fejlen, nu virker det perfekt

Hej
Hvordan får jeg den til at danne 2 pdf-filer? Jeg har 2 faner jeg gerne vil have dannet om til hver sin pdf-fil.
Jeg kan finde ud af det, hvis fanerne skal i samme fil, men det skal de ikke :-)