Hallo,
wir haben bis jetzt PDF-Zeichnungen aus einem bestimmten Path von einem Server mit dem unten aufgeführten Makro unter Outlook 2003 in eine Email über ein Formular in dem man die Zeichnungsnummer (=Dateinamen) eingibt eingefügt.
Unter Outlook 2010 funktioniert es allerdings nicht mehr. Ich hoffe Ihr könnt mir helfen.
Fehlermeldung:
Fehler # 424 wurde ausgelöst von Projekt1
Objekt erforderlich
Script:
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then
On Error Resume Next
Err.Clear
Auswahl = TextBox1.text
TextBox1.text = ""
Selection.InsertFile FileName:="\\Server\Freigabe\" + Auswahl + ".pdf", Attachment:=True
If Err.Number <> 0 Then
If Err.Number = 5174 Or Err.Number = 5273 Then
MsgBox "Datei wurde nicht gefunden. Sie haben die Datei " + Auswahl + ".pdf ausgewählt", , "Fehler"
TextBox1.TabIndex = 0
Else
Mldg = "Fehler # " & Str(Err.Number) & " wurde ausgelöst von " _
& Err.Source & Chr(13) & Err.Description
MsgBox Mldg, , "Fehler", Err.HelpFile, Err.HelpContext
End If
Else
ListBox1.AddItem (Auswahl + ".pdf")
End If
End If
End Sub
|