|
Hallo zusammen habe zwei Probleme:
Das mit dem Latebinding klappt nicht so. Deshalb habe ich verschiedene Varianten getestet. Hier der Code:
Dim wrdApp As Object 'Word.Application
Dim wrdDoc As Word.Document
Set wrdApp = CreateObject("Word.Application")
Set wrdApp = GetObject(, "Word.Application")
On Error GoTo 0
If wrdApp Is Nothing Then Set wrdApp = New Word.Application
Wenn bereits eine Instanz offen ist, dann kommt der Sicherheitshinweis, dass eine Microsoft die Makros blockiert.: Dateipfad INetCache usw.
die latebinding variante mit getobject funktioniert nur, wenn eine Instanz erzeugt ist. Sonst gibts eine Fehlermeldung.
Zweites Problem:
Ich versuche bei einem mit reply erzeugten Mail die Signatur zu entfernen wie hier beschrieben:
https://www.slipstick.com/developer/code-samples/remove-email-signature-message-vba/
Doch die Variable bleibt nothing. Muss ich die Signatur noch irgendwie zu einem Bookmark umwandeln?
Sub RemoveSignature()
Dim Item As Outlook.MailItem, i As Long
Set Item = Application.ActiveInspector.CurrentItem
Dim objDoc As Word.Document
Dim oBookmark As Word.Bookmark
On Error Resume Next
Set objDoc = Item.GetInspector.WordEditor
Set oBookmark = objDoc.Bookmarks("Testsignatur")
i = objDoc.Bookmarks.Count
If Not oBookmark Is Nothing Then
oBookmark.Select
objDoc.Windows(1).Selection.Delete
End If
Set Item = Nothing
End Sub
Kann mir jemand auf die Sprünge helfen?
|