Range als Email versenden
04.01.2016 13:52:01
Marvin
anbei findet ihr meinen Code#, bei dem folgendes nach Click auf den Commandbutton passiert:
1)Eine neue Mappe wird erstellt und der Inhalt aus dem alten Tabellenblatt wird übernommen.
2)Outlook öffnet sich und hat die neue Mappe im Anhang mit allen dazugehörigen Angaben.
Private Sub CommandButton2_Click()
Application.DisplayAlerts = False
Dim aws As String
Dim olapp As Object
ActiveWorkbook.ActiveSheet.Copy
ActiveWorkbook.Save
aws = ActiveWorkbook.FullName
Set olapp = CreateObject("Outlook.Application")
With olapp.CreateItem(0)
.to = "Email"
.CC = "Email"
.BCC = "Email"
.ReadReceiptRequested = True
'.htmlbody = "Text"
.Subject = "Bsp."
.ReadReceiptRequested = True
.Attachments.Add aws
.display
'SendKeys "%s", True ' optional Mail sofort senden
Set olapp = Nothing
Application.DisplayAlerts = True
End With
End Sub
Der Commandbutton befindet sich ebenfalls in dem kopierten Tabellenblatt.
Was ich gerne möchte:
Bei Click auf den Commandbutton sollen Punkte 1 und 2 genauso passieren, wie sie bisher laufen,
allerdings, soll nur ein bestimmter Bereich kopiert werden und nicht das gesamte Tabellenblatt, denn die Commandbutton sollen nicht mit gesendet werden.
Beste Grüße und gesundes neues Jahr euch allen.
Anzeige