VBA: SendTo + Anzahl Kopien

Question

Hallo,
für die folgenden beiden Teile eines Makros fehlen mir noch 2 Ergänzungen:
1. Wie muss der 1. Teil geändert werden damit ich die Anzahl der Ausdrucke angeben kann?
2. Wie muss die Zeile "SendTo...." richtig lauten, damit die angegebene Adresse in Outlook übernommen wird?

Dim intFrage As Integer
intFrage = MsgBox("Soll die Tabelle gedruckt werden?", vbQuestion + vbYesNo + vbDefaultButton2)
If intFrage = 6 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If

intFrage = MsgBox("Soll die Tabelle per Email versandt werden?", vbQuestion + vbYesNo + vbDefaultButton2)
If intFrage = 6 Then
Application.Dialogs(xlDialogSendMail).Show
sendto: "woher55@gmail.com"
End If

mfg
Wolfgang

Answer 1

Hallo,

Dim VarPrints As Variant, intI As Integer, intK As Integer
'Inputbox mit Type 1 laesst nur Zahlen als Eingabe zu.
VarPrints = Application.InputBox("Anzahl der Ausdrucke", "Drucken", 0, Type:=1)
If VarPrints = False Then 'User selected cancel

Teil 1 habe ich gerade hie r in einem älteren Thread gefunden.

mfg
Wolfang