Thema Datum  Von Nutzer Rating
Antwort
Rot Datei an eine Email anhängen mit einem Makro
 17.05.2011 11:20:41 Trampo
NotSolved

Ansicht des Beitrags:
Von:
Trampo		 Datum:
17.05.2011 11:20:41		 Views:
2212		 Rating:
     
Antwort:
  Ja
Thema:
Datei an eine Email anhängen mit einem Makro

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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Datei an eine Email anhängen mit einem Makro
 17.05.2011 11:20:41 Trampo
NotSolved