Opgelost Mailen

[xbox360]

Hoi,
ik gebruik deze macro om een tabblad te verzenden naar bepaalde mensen
mijn vraag is nu mailt hij de compleet tabblad als PDF
maar is het ook mogelijk om alleen een bereik van een tabblad als pdf te versturen

A15:M50



Sub Mailen()

Dim Bestand As String
Dim OutApp As Object
Dim OutMail As Object
Bestand = ThisWorkbook.Path & "\" & ActiveSheet.Name & ".PDF"
Range("A1:J50").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Bestand
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "Test@test"
.Subject = "PDF"
.Body = "Het bijgesloten document is in PDF"
.Attachments.Add Bestand
.Display 'Of .Send
End With
End Sub

 

[edmoor]

Dat werkt gewoon met de code die je al plaatste.

 

[xbox360]

@edmoor

Range("A1:J50") over het hoofd gezien even testen
Thnx

 

[xbox360]

@edmoor,
bereik klopt die kan ik aanpassen, maar dan is die net te breed voor een pdf dus worden er twee
kan het misschien liggend mailen als PDF?,
als je de PDF openend dat de tekst liggen is IPV staand

 

[edmoor]

Probeer dit voordat de PDF wordt gemaakt:

Activesheet.PageSetup.Orientation = xlLandscape

 

[xbox360]

@edmoor

Whoppa super blij en werkt perfect THNX