Laufzeitfehler 429
27.06.2017 11:32:13
Pascal
Habe folgendes Problem:
Bei einigen Benutzern in meinem Büro erscheint Fehlermeldung "Laufzeitfehler 429 Objekterstellung durch ActiveX-Komponente ist nicht möglich" beim
Ausführen des folgenden Codes:
Sub MailSenden_TEST-SMS()
Dim Text_C1 As String 'Variable dient dazu, zum SMS-Vorschautext noch zusätzlich das Wort " _
TEST-SMS" anzuhängen
Dim objNachricht As Object
Dim objNachricht2 As Object
Dim objMail As Object
Dim objMail2 As Object
Dim SMSText_TEST-SMS As String
Dim Empfaenger As String
If UserForm3.CheckBox1 Then Empfaenger = Empfaenger & "; 0000000000@sms.ip-plus.net" 'Müller
If UserForm3.CheckBox2 Then Empfaenger = Empfaenger & "; 0000000000@sms.ip-plus.net" 'Meier
If UserForm3.CheckBox3 Then Empfaenger = Empfaenger & "; 0000000000@sms.ip-plus.net" 'Muster
If UserForm3.CheckBox4 Then Empfaenger = Empfaenger & "; 0000000000@sms.ip-plus.net" 'Test-Mann
'Stellvertreter-Nummern:
Empfaenger = Empfaenger & "; 0000000000@sms.ip-plus.net" 'Frau Test
Empfaenger = Empfaenger & "; 0000000000@sms.ip-plus.net" 'Herr Müller
Empfaenger = Empfaenger & "; test@hotmail.com" 'Email-Adresse
Set objMail = CreateObject("Outlook.Application")
Set objNachricht = objMail.CreateItem(0)
Set objMail2 = CreateObject("Outlook.Application")
Set objNachricht2 = objMail.CreateItem(0)
'SMS Text
SMSText_TEST-SMS = "Test-SMS " & UserForm3.TextBox5.Text
With objNachricht
.To = Empfaenger
.Body = SMSText_Entwarnung
.ReadReceiptRequested = False
.Display
'.send
End With
End Sub
Bei einigen Benutzern erscheint wie gesagt die Fehlermeldung "Laufzeitfehler 429 Objekterstellung durch ActiveX-Komponente ist nicht möglich" bei anderen Benutzer
hingegen wird der obige Code fehlerfrei abgearbeitet.
Was könnte da das Problem sein ?
Muss ich irgendwas anders deklarieren/programmieren/einstellen ?
Besten Dank für die Hilfe !