Office: In Excel Verweis Outlook setzen

normadrei · 13. November 2007

Hallo,

ich habe im Internet bei MaRuSoft.de Code gefunden, um per VBA einen Verweis auf die Outlook Object Libary zu setzen:

Code:

Sub OutlookVerweis()
Dim VGUID As String
Dim HAUPTNR, NEBENNR As Long
Dim tWb, VERWEIS As Object
On Error Resume Next
Set tWb = ThisWorkbook
' GUID der "Microsoft Outlook Object Library"
' GUID kann mit der prozedur VBEVerweise ermittelt werden
VGUID = "{00062FFF-0000-0000-C000-000000000046}"
' installierte verweise durchlaufen
For Each VERWEIS In tWb.VBProject.References
' verweis auf "Microsoft Outlook Object Library" gefunden
If VERWEIS.GUID = VGUID Then
HAUPTNR = VERWEIS.major
NEBENNR = VERWEIS.minor
Exit For
End If
Next
Set VERWEIS = tWb.VBProject.References(VGUID)
' verweis auf "Microsoft Outlook Object Library" löschen
tWb.VBProject.References.Remove VERWEIS
' verweis auf "Microsoft Outlook Object Library" setzen
tWb.VBProject.References.AddFromGuid GUID:=VGUID, major:=HAUPTNR, minor:=NEBENNR

Set tWb = Nothing
Set VERWEIS = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Meine Frage: Funktioniert das auch bei verschiedenen Office Versionen?

Der Hinweis, dass GUID über die Prozedur VBVerweise ermittelt werden kann, ist zwar ganz schön, funktioniert aber nur, wenn der Verweis bereits gesetzt ist.

Was mache ich, wenn nicht?

Danke und Gruß normadrei

:)

jinx · 15. November 2007

Moin, normadrei,

die Nummer stimmt z.B. mit der für OL2000 überein, wenn das die Frage beantwortet.

normadrei · 15. November 2007

Danke jinx - damit besteht Hoffnung.

Wichtig wären aber 2003 und 2007

Grüße normadrei

jinx · 15. November 2007

Moin, normadrei,

dazu muss ich an einen anderen Ort (und Rechner) - aber ich denke, dass auch diese übereinstimmen werden. Ich melde mich wieder.

normadrei · 15. November 2007

Hallo jinx,

das wäre super, auch wenn erst morgen. Ich kann es hier nicht ausprobieren und wenn man beim Vorführen dann sagen muss: "Ja äh, das muss ich noch prüfen." - macht einen schlechten Eindruck.

Gruß normadrei

jinx · 15. November 2007

Moin, normadrei,

bei allen mir verfügbaren Outlook-Versionen (2000, 2003 und 2007) lautet die GUID {00062FFF-0000-0000-C000-000000000046}, Major ist 9, Minor 0, 2 und 3 - das bringt mich zur Vermutung, dass für OL2002/XP Minor 1 sein könnte... *wink.gif*

normadrei · 15. November 2007

Vielen Dank, jinx, das hilft mir wirklich weiter.

Weiterhin frohes Schaffen - normadrei

Office: In Excel Verweis Outlook setzen

In Excel Verweis Outlook setzen

In Excel Verweis Outlook setzen

In Excel Verweis Outlook setzen

In Excel Verweis Outlook setzen - Similar Threads - Excel Verweis Outlook

Variable Abfrage auf verschiedene Tabellenblätter

Excel: Mehrere Ergebnisse in eine Zelle als Textkette

Verweis mit Datumszeitraum

Excel S-Verweis Wert finden

Excel: numerischer Verweis auf ein anderes Datenblatt

Werte zuweisen (Matrix, S-Verweis) in Excel 2019?

Bestimmtes Ereignis(Datum) in Zeitraum finden