Fehler bei Bereich als E-Mail versenden
Gerhard
nachstehender VBa Code hat unter Excel9 und W2K noch funktioniert.
Nach der Umstellung auf WIN XP Prof und Office XP bringt der Code Fehlermeldung: Laufzeitfehler 1004 die Show Methode des Dialog Objekts konnte nicht ausgeführt werden.
der Verweis auf Outlook10 Objekt Library ist gesetzt.
Kann mir jemand helfen diesen Code wieder zum laufen zu bringen?
Danke im voraus.
Gerhard
Code:
Sub eMail()
Dim Empfänger, Titel As String
Dim n As Range
Empfänger = " "
Titel = "Excel Bereich als Anhang"
Set n = Application.InputBox("Bitte Bereich auswählen", Type:=8)
Range(n.Address).Select
Selection.copy
Application.ScreenUpdating = False
Workbooks.Add Template:="TAB"
ActiveSheet.Paste Range("A1")
Application.Dialogs(xlDialogSendMail).Show Empfänger, Titel ==> hier wird fehlermeldung gebracht
ActiveWorkbook.Close savechanges:=False
End Sub
Anzeige