Warum Laufzeitfehler 5 ?
11.06.2013 14:52:25
Pascal
Ich habe in einem Excel-Makro u.a. folgenden Code um eine Autosignatur in einer Email-Nachricht anzufügen:
D.h. es wird eine kleine Userform4 angezeigt, auf welcher der User seine gewünschte Signatur auswählt. (die Signaturen werden aus Outlook geladen in die Userform4 in eine Listbox)
Wenn man nun eine Email erzeugt, so hab ich dazu folgenden code hinter einer command-button:
Sub email()
Set rngBereich = Sheets(Tabelle1).Range("A1:B17")
'Schriftfarbe wird wieder auf schwarz gesetzt
Range("A1:Z100").Font.ColorIndex = xlAutomatic
Range("A1:Z100").Interior.ColorIndex = xlAutomatic
With objNachricht
.To = "mueller.fritz@test.com"
.Subject = "Email-Test" & " " & Sheets(Tabelle1).Range("A5").Value
.HtmlBody = vbLf & RangetoHTML(rngBereich)
.ReadReceiptRequested = False
.display
'Funktion um die Signatur auszuwählen
'Cursor ans Ende der EMail setzen
VBA.SendKeys "^{END}", True
'Name der gespeicherten Signatur - bitte anpassen
strSignatur = Signatur 'die auf der UserForm4 ausgewählte Signatur wird nun aus _
der Public-Variable gelesen.
'Einfügen einer bestimmten Signatur
.GetInspector.CommandBars.Item("Insert").Controls("Signatur").Controls( _
strSignatur). _
Execute
'.send
End With
End Sub
Das funktioniert einwandfrei.allerdings gibt es bei einigen Users merkwürdigerweise einen Laufzeitfehler 5 und die Meldung: Argument oder Prozedur inkorrekt.
dabei bleibt das Makro dann bei der Zeile stehen:
.GetInspector.CommandBars.Item("Insert").Controls("Signatur").Controls(strSignatur). _
Execute
waran mag das liegen ?
wie gesagt... bei einigen Users funktioniert das problemlos, bei anderen Users kommt obige Fehlermeldung.
Besten Dank für Eure Tips!