ich habe folgendes Problem:
Ich möchte einen markierten Bereich aus einem Arbeitsblatt versenden.
Dazu benutze ich folgendes Script:
Sub Send_OriginalRange_and_BO_from_Excel()
Range("A1:D30", "A42:H97").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Das ist eine automatisch versendete Mail. Bitte um Bearbeitung. "
.Item.To = "adresse@blabla.com"
.Item.Subject = ActiveSheet.Name & " vom " & Date
.Item.display
.Item.Send
End With
ActiveWorkbook.EnvelopeVisible = False
MsgBox "Nachricht wurde versendet"
Worksheets("Hauptseite").Activate
End Sub
Nachdem ich die Email empfangen habe , packt mir Outlook den markierten Bereich in den Body der Email. Ich möchte aber ein Attachment haben.
Kann mir jemand helfen ?