Hallo Mase,
habe den Code nun wie folgt angepasst:
Dim objOut as Object
Dim myMessage as Outlook.Mailitem
Set objOut = getobject(, "Outlook.Application")-->hier springt der Degguer beim 2-ten Durchlauf hin
If objOut is nothing Then
Set objOut = CreateObject("Outlook.Application")
End if
Set myMessage = ActiveInspector.CurrentItem
With myMessage
...
...
End with
Set objOut = nothing
Set myMessage = nothing
End Sub
Ich erhalte aber immer noch einen Laufzeitfehler '429 Objekterstellung durch ActiveX-komponente nicht möglich. Aber das Objekt kann ja eigentlich nicht nothing sein, da ich ja mit jeden Hyperlink eine Outlookinstanz öffne oder? Lasse ich die Mail offen funktioniert das Makro wunderbar.
Gruß Timm
|