Hej Christian.
Så här ser koden:
Sub Mail()
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists("c:\Schema") Then
fso.CreateFolder "c:\Schema"
End If
ChDir "C:\Schema"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\schema\schema.pdf"
Dim OutLookApp As Object
Dim OutLookMailItem As Object
Dim myAttachments As Object
Set OutLookApp = CreateObject("Outlook.application")
Set OutLookMailItem = OutLookApp.CreateItem(0)
Set myAttachments = OutLookMailItem.Attachments
With OutLookMailItem
.To = Range("y1").Value
.Subject = "Schema"
.Body = Range("N1").Value
myAttachments.Add "C:\schema\schema.pdf"
'.send
.Display
End With
Set OutLookMailItem = Nothing
Set OutLookApp = Nothing
Range("O6").Select
Selection.Copy
Sheets("Måndag skolvecka").Select
Range("i1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("måndag skolvecka").PrintOut
Sheets("tisdag skolvecka").PrintOut
Sheets("onsdag skolvecka").PrintOut
Sheets("torsdag skolvecka").PrintOut
Sheets("fredag skolvecka").PrintOut
Sheets("lördag").PrintOut
Sheets("söndag").PrintOut
End Sub