|
Hi Severus,
ich habe bei dem CommandButton1 rausgefunden, dass ich das Dokument nicht als ThisDocument genannt habe sondern andere Name , deshalb stimmt die Code natürlich nicht mehr.
Aber jetzt wenn ich dieser CommandButton1 ausführe, bekomme ich immer folgende Fehlermeldung : Laufzeitfehler 4198 : Befehl missgelungen. Außerdem verschwindet die Code immer nach dem Ausführen und nicht der Button.
Bei dem CommandButton2 bleibt immer noch das gleiche Problem:
Fehlermeldung: Benutzerdefinierter Typ nicht definiert --> Dann wird beim Private Sub CommandButton2_Click() gelb markiert und in der Zeile 28 der Ausdruck: olApp As Outlook.Application
Es ist für mich außerdem ein bisschen merkwürdig, dass die Emailadresse immer in einer neuen Zeile geschreiben wird und nicht in Zeile 32 (also eine neue Zeile hinzugefügt). Somit stimmt die Zeilenangabe 32 nicht mehr oder? Hier ist der Auszug von dem Code:
Private Sub CommandButton2_Click()
'Es muß ein Verweis auf das "Microsoft Outlook nn.n Object Library" gesetzt sein!
Dim olApp As Outlook.Application, olMail As Outlook.MailItem
Dim olMail As Outlook.MailItem
Dim olRun As Boolean
Dim strEmailAdr As String
strEmailAdr = ""
strEmailAdr = "alex.strobl@gmx.de"
If strEmailAdr = "" Then
MsgBox "Wegen fehlender Emailadresse kann keine Antwortmail versandt werden!", vbCritical, "Abbruch..."
Exit Sub
End If
.....
Vielen Dank
|