Laufzeitfehler 1004 SENDMAIL
08.10.2003 10:28:56
Luke
ich möchte ein schreibgeschütztes excel-formular, das über den internet-explorer geöffnet wird mittels druck auf ein button, hinter dem folgendes makro versteckt ist, verschicken und auf dem standarddrucker ausgeben!
dabei erhalte ich den laufzeitfehler 1004:
die methode 'sendmail' für das objekt "_workbook" ist fehlgeschlagen
was mach ich falsch??? bitte um antwort.
gruss
Luke
Sub mail()
ActiveSheet.Unprotect Password:="aaa"
Dim arrRecipients As Variant
arrRecipients = Array("muster.k", "muster.l")
ActiveWorkbook.SendMail arrRecipients, "Betreff"
Range("A1:B32").Select
Selection.PrintOut Copies:=1, Collate:=True
ActiveSheet.Protect Password:="aaa", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Anzeige