Thema Datum  Von Nutzer Rating
Antwort
Rot Outlook Word Object und Signatur
12.05.2023 21:46:21 Gast79631
NotSolved
14.05.2023 17:01:36 Gast36402
NotSolved
15.05.2023 12:36:06 Gast10261
NotSolved

Ansicht des Beitrags:
Von:
Gast79631
Datum:
12.05.2023 21:46:21
Views:
665
Rating: Antwort:
  Ja
Thema:
Outlook Word Object und Signatur

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?


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 Outlook Word Object und Signatur
12.05.2023 21:46:21 Gast79631
NotSolved
14.05.2023 17:01:36 Gast36402
NotSolved
15.05.2023 12:36:06 Gast10261
NotSolved