Aktuelle Auswahl senden funkt. nicht
13.04.2006 11:04:36
Peter
war eben mal auf der HP von Rainer und hab mir folgenden Code stipizt.
Leider funkt. der bei mir net. Hab alle Verweise durchgeschaut, nichts gekennzeichntet. Vers. XP passt auch, manuell gehts ohne Probleme.
Fehlermeldung bei With ActiveSheet.MailEnvelope. Meldung: Laufzeitfehler 430 Klasse unterstützt keine Automatisierung....
Und warum nicht, glaube ehrlich gesagt net das Ramses fehlerhaften Code postet.
Public Sub Mail_Schreiben(Adresse As String)
'by Ramses
'Getestet unter Office XP
'Ohne Select geht es nicht :-))
Range("A1:C9").Select
'Das anzeigen der Envelope Commandbar ist unabdingbar
ActiveWorkbook.EnvelopeVisible = True
'Nun werden die Adressen vergeben
With ActiveSheet.MailEnvelope
.Introduction = "Das ist der Einleitungstext." & vbCrLf & "mit einer zweiten Zeile"
.Item.To = "irgendwer@irgendwo.de"
.Item.Subject = "Die aktuellen Daten"
.Item.Send
End With
End Sub
MfG Peter