Formatierung
19.06.2003 08:07:48
Kai-jesko Mill
gruss kai-jesko mill
Sub EmailVersand()
Dim rng As Range
Dim sAddress As String
Application.ScreenUpdating = False
Set rng = Range("A1:i54")
sAddress = Range("I28").Value
Workbooks.Add 1
rng.Copy Range("A1")
ActiveWorkbook.SendMail sAddress, "Reklamation QW"
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub
Anzeige