Liebe Alle,
habe dieses Makro, welches Super funktioniert. Ich möchte aber auch einen festen E-Mail Test dazugeben und weiß nicht wie ich dies angeben muss. Ist wahrscheinlich ganz einfach, bekomme es aber nicht hin.
Danke für die Hilfe.
K.B.
Sub Distribution()
ActiveSheet.Copy
Application.Dialogs(xlDialogSendMail).Show _
Array("xxx@xxx", "yyy@yyy"), "Subject Text"
ActiveWorkbook.Close savechanges:=False
End Sub
|