Microsoft Office Tutorials and References
In Depth Information
9.4.6 Bestimmten Bereich in E-Mail versenden
Dim MailItem As Outlook.MailItem
' Bereich ermitteln, in neue Datei kopieren
Set Rg = Application.InputBox _
(Prompt:="Wählen Sie den Bereich aus," _
& " der gemailt werden soll", Type:=8)
Rg.Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs ThisWorkbook.Path _
& "\Mappe9Anhang.xlsx"
ActiveWorkbook.Close
' Anwendung Outlook starten, E-Mail erstellen
Set appOutlook = CreateObject("Outlook.Application")
Set MailItem = appOutlook.CreateItem(olMailItem)
' Eigenschaften hinzufügen
MailItem.To = "max.muster@mailziel.de"
MailItem.Subject = "Test"
MailItem.Attachments.Add ThisWorkbook.Path _
& "\Mappe9Anhang.xlsx"
MailItem.Send
appOutlook.Quit
End Sub
Zur Erläuterung:
Mit Hilfe der Methode Application.InputBox() kann der Benutzer
per Maus einen Bereich auswählen, der versendet werden soll:
Bereich auswählen
Abbildung 9.33
E-Mail mit ausgewähltem Bereich in Dateianhang
Die Methode Copy() wird genutzt, um diesen Bereich zu kopieren. Da
kein Ziel per Parameter angegeben wurde, liegt der Bereich in der
Zwischenablage.
Copy()
Search JabSto ::




Custom Search