Öffnen einer .msg Datei
20.02.2008 12:20:00
Daniel
ich habe es geschafft, dass Excel mir unter einer bestimmten Bedingung eine Worddatei öffnet.
Nun würde ich dasselbe gerne mit einer .msg Datei realisieren.
Anbei habe ich den Code zum Öffnen einer Worddatei angefügt (nur zur Info). Die genaue Syntax um eine eine .msg Datei zu öffnen ist mir jedoch fremd. Kann mir jmd. dabei weiterhelfen?
Freue mich auf baldige Antwort.
Viele Grüße
Daniel
Option Explicit
Dim oWord_App As Object, oDoc As Object, bWordVorhanden As Boolean
Private Function Word_Connect() As Boolean
Word_Connect = True
On Error GoTo OpenError
Set oWord_App = GetObject(Class:="Word.Application")
bWordVorhanden = True
On Error GoTo 0
Exit Function
OpenError:
On Error GoTo CreateError
Set oWord_App = CreateObject(Class:="Word.Application")
oWord_App.Visible = True
bWordVorhanden = False
Resume Next
Exit Function
CreateError:
MsgBox "Kein Word vorhanden"
Word_Connect = False
End Function
Private Sub Word_Disconnect()
On Error Resume Next
Set oDoc = Nothing
Set oWord_App = Nothing
End Sub
Public Sub Dateiname()
If Not Word_Connect Then Exit Sub
On Error GoTo Fehler
With oWord_App
.Documents.Open Filename:="Pfad zur Datei"
End With
Aufraeumen:
Word_Disconnect
Exit Sub
Fehler:
MsgBox Err.Description
Resume Aufraeumen
End Sub