E-Mail
13.03.2003 19:10:00
kai-jesko mill
wenn ich mit diesem makro eine excel tabelle versende verliere ich die seitenformatierung. kann man das verhindern.
kann man evtl. im makro auch schon einen emfänger unterbringen ?
Sub EmailVersand()
Dim rng As Range
Dim sAddress As String
Application.ScreenUpdating = False
Set rng = Range("A1:H54")
sAddress = Range("I28").Value
Workbooks.Add 1
rng.Copy Range("A1")
ActiveWorkbook.SendMail sAddress, "Reklamation QW Rücksendeschein Nr.:"
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub
Anzeige