AW: Excel in outlook kopieren?
27.10.2003 11:54:06
Russi
Hallo Micha!
Versuchs damit:
Public
Sub Russis_Sendmail()
Application.ScreenUpdating = False
Cells.Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ActiveWorkbook.Sendmail "EMPFÄNGER", "BETREFF"
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub
Der Code kopiert alle Zellinhalte in eine neue Datei und verschickt diese per Outlook.
Viele Grüße
Russi