ActiveX-Komponente fehlgeschlagen
06.04.2020 11:49:09
Selina
ich habe hinter einer Command-Box auf einer Userform den folgenden Code (stammt nicht von mir !) gefunden:
dieser Code soll dazu dienen Text ab einer UserForm per SMS / Outlook zu versenden:
Option Explicit
Sub MailSenden()
Dim objNachricht As Object
Dim objMail As Object
Dim olOldBody As String
Dim Empfaenger As String
Dim SMSText As String
If UserForm2.CheckBox1 Then Empfaenger = Empfaenger & "; Beispielsnatelnummer@sms.ip-plus.net"
'SMS Text
SMSText = UserForm2.TextBox5.Text
Set objMail = CreateObject("Outlook.Application")
Set objNachricht = objMail.CreateItem(0)
With objNachricht
.To = Empfaenger
.Body = SMSText
.ReadReceiptRequested = False
.Display
End With
UserForm2.Hide
End Sub
Bei einigen Benutzern wird das Email / SMS in Outlook erzeugt, bei anderen Benutzern erscheint eine Fehlermeldung:
AciveX Kompontente fehlgeschlagen.
Der Code bleibt dann bei der Zeile Set objMail = CreateObject("Outlook.Application") stehen.
was müsste ich im Code umprogrammieren / ändern (oder allenfalls auf den PC's der Benutzer einrichten) damit dieser sehr hilfreiche Code wieder funktioniert ?
Danke für Eure Unterstützung !