e-mail verschicken
19.06.2002 08:00:26
r.wurm
der einen bereich aus excel als e-mail mittels outlook verschicken soll. nur macht er mir anstatt outlook immer den
mailagent vom internet explorer auf. hier der code:
Private Sub cmdMail_Click()
Cells.Select
Selection.Copy
Range("d17").Select
Workbooks.Add
ActiveSheet.Paste
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveSheet.Range("d17").Select
Application.CutCopyMode = False
ActiveSheet.PageSetup.PrintArea = "$A$1:$O$57"
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Application.Dialogs(xlDialogSendMail).Show
was mache ich falsch?
Anzeige