Sänder mail i outlook och önskar hjälp med att få filen i pdf.
Sub Send_Range() |
ActiveSheet.Range("A20:B40").Select |
ActiveWorkbook.EnvelopeVisible = True |
With ActiveSheet.MailEnvelope |
.Introduction = "10" |
.Item.To = "xxxxxxx@xxx.xxx" |
.Item.Subject = "Faktura" |
.Item.Send |
End With |
End Sub |
Tack på förhand
Byson